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

[Kim F . Storm]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.671 emacs/lisp/simple.el:1.672
*** emacs/lisp/simple.el:1.671  Tue Dec 14 00:51:02 2004
--- emacs/lisp/simple.el        Tue Dec 14 12:17:43 2004
***************
*** 645,654 ****
         (skip-chars-forward " \t")
         (constrain-to-field nil orig-pos t)))))
  
- (defvar inhibit-mark-movement nil
-   "If non-nil, movement commands, such as \\[beginning-of-buffer], \
- do not set the mark.")
- 
  (defun beginning-of-buffer (&optional arg)
    "Move point to the beginning of the buffer; leave mark at previous position.
  With \\[universal-argument] prefix, do not set mark at previous position.
--- 645,650 ----
***************
*** 660,667 ****
  Don't use this command in Lisp programs!
  \(goto-char (point-min)) is faster and avoids clobbering the mark."
    (interactive "P")
!   (or inhibit-mark-movement
!       (consp arg)
        (and transient-mark-mode mark-active)
        (push-mark))
    (let ((size (- (point-max) (point-min))))
--- 656,662 ----
  Don't use this command in Lisp programs!
  \(goto-char (point-min)) is faster and avoids clobbering the mark."
    (interactive "P")
!   (or (consp arg)
        (and transient-mark-mode mark-active)
        (push-mark))
    (let ((size (- (point-max) (point-min))))
***************
*** 686,693 ****
  Don't use this command in Lisp programs!
  \(goto-char (point-max)) is faster and avoids clobbering the mark."
    (interactive "P")
!   (or inhibit-mark-movement
!       (consp arg)
        (and transient-mark-mode mark-active)
        (push-mark))
    (let ((size (- (point-max) (point-min))))
--- 681,687 ----
  Don't use this command in Lisp programs!
  \(goto-char (point-max)) is faster and avoids clobbering the mark."
    (interactive "P")
!   (or (consp arg)
        (and transient-mark-mode mark-active)
        (push-mark))
    (let ((size (- (point-max) (point-min))))