[Emacs-diffs] Changes to emacs/lisp/simple.el

[Richard M . Stallman]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.716 emacs/lisp/simple.el:1.717
*** emacs/lisp/simple.el:1.716  Sat Apr 30 20:30:53 2005
--- emacs/lisp/simple.el        Sun May  1 18:54:00 2005
***************
*** 3201,3206 ****
--- 3201,3214 ----
  commands which are sensitive to the Transient Mark mode."
    :global t :group 'editing-basics :require nil)
  
+ (defvar widen-automatically t
+   "Non-nil means it is ok for commands to call `widen' when they want to.
+ Some commands will do this in order to go to positions outside
+ the current accessible part of the buffer.
+ 
+ If `widen-automatically' is nil, these commands will do something else
+ as a fallback, and won't change the buffer bounds.")
+ 
  (defun pop-global-mark ()
    "Pop off global mark ring and jump to the top location."
    (interactive)
***************
*** 3217,3223 ****
      (set-buffer buffer)
      (or (and (>= position (point-min))
             (<= position (point-max)))
!       (widen))
      (goto-char position)
      (switch-to-buffer buffer)))
  
--- 3225,3233 ----
      (set-buffer buffer)
      (or (and (>= position (point-min))
             (<= position (point-max)))
!       (if widen-automatically
!           (error "Global mark position is outside accessible part of buffer")
!         (widen)))
      (goto-char position)
      (switch-to-buffer buffer)))