/[emacs]/emacs/lisp/simple.el
ViewVC logotype

Diff of /emacs/lisp/simple.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.671 by jurta, Tue Dec 14 00:51:02 2004 UTC revision 1.672 by kfstorm, Tue Dec 14 12:17:43 2004 UTC
# Line 645  If BACKWARD-ONLY is non-nil, only delete Line 645  If BACKWARD-ONLY is non-nil, only delete
645         (skip-chars-forward " \t")         (skip-chars-forward " \t")
646         (constrain-to-field nil orig-pos t)))))         (constrain-to-field nil orig-pos t)))))
647    
 (defvar inhibit-mark-movement nil  
   "If non-nil, movement commands, such as \\[beginning-of-buffer], \  
 do not set the mark.")  
   
648  (defun beginning-of-buffer (&optional arg)  (defun beginning-of-buffer (&optional arg)
649    "Move point to the beginning of the buffer; leave mark at previous position.    "Move point to the beginning of the buffer; leave mark at previous position.
650  With \\[universal-argument] prefix, do not set mark at previous position.  With \\[universal-argument] prefix, do not set mark at previous position.
# Line 660  of the accessible part of the buffer. Line 656  of the accessible part of the buffer.
656  Don't use this command in Lisp programs!  Don't use this command in Lisp programs!
657  \(goto-char (point-min)) is faster and avoids clobbering the mark."  \(goto-char (point-min)) is faster and avoids clobbering the mark."
658    (interactive "P")    (interactive "P")
659    (or inhibit-mark-movement    (or (consp arg)
       (consp arg)  
660        (and transient-mark-mode mark-active)        (and transient-mark-mode mark-active)
661        (push-mark))        (push-mark))
662    (let ((size (- (point-max) (point-min))))    (let ((size (- (point-max) (point-min))))
# Line 686  of the accessible part of the buffer. Line 681  of the accessible part of the buffer.
681  Don't use this command in Lisp programs!  Don't use this command in Lisp programs!
682  \(goto-char (point-max)) is faster and avoids clobbering the mark."  \(goto-char (point-max)) is faster and avoids clobbering the mark."
683    (interactive "P")    (interactive "P")
684    (or inhibit-mark-movement    (or (consp arg)
       (consp arg)  
685        (and transient-mark-mode mark-active)        (and transient-mark-mode mark-active)
686        (push-mark))        (push-mark))
687    (let ((size (- (point-max) (point-min))))    (let ((size (- (point-max) (point-min))))

Legend:
Removed from v.1.671  
changed lines
  Added in v.1.672

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26