/[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.543 by rost, Mon May 20 03:06:24 2002 UTC revision 1.544 by kfstorm, Mon May 27 12:13:56 2002 UTC
# Line 2321  Start discarding off end if gets this bi Line 2321  Start discarding off end if gets this bi
2321      (goto-char (mark t))      (goto-char (mark t))
2322      (pop-mark)))      (pop-mark)))
2323    
2324  (defun push-mark-command (arg)  (defun push-mark-command (arg &optional nomsg)
2325    "Set mark at where point is.    "Set mark at where point is.
2326  If no prefix arg and mark is already set there, just activate it."  If no prefix arg and mark is already set there, just activate it.
2327    Display `Mark set' unless the optional second arg NOMSG is non-nil."
2328    (interactive "P")    (interactive "P")
2329    (let ((mark (marker-position (mark-marker))))    (let ((mark (marker-position (mark-marker))))
2330      (if (or arg (null mark) (/= mark (point)))      (if (or arg (null mark) (/= mark (point)))
2331          (push-mark nil nil t)          (push-mark nil nomsg t)
2332        (setq mark-active t)        (setq mark-active t)
2333        (message "Mark activated"))))        (unless nomsg
2334            (message "Mark activated")))))
2335    
2336  (defun set-mark-command (arg)  (defun set-mark-command (arg)
2337    "Set mark at where point is, or jump to mark.    "Set mark at where point is, or jump to mark.

Legend:
Removed from v.1.543  
changed lines
  Added in v.1.544

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