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. |
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)))) |
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)))) |