From de9606f01da32e4070bf7908ef4cf9ba835e4b6f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 18 May 2007 22:56:08 +0000 Subject: [PATCH] (push-mark): Doc fix. --- lisp/ChangeLog | 4 ++++ lisp/simple.el | 3 +-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 490a740c4fc..cd6587e6d57 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-05-18 Richard Stallman + + * simple.el (push-mark): Doc fix. + 2007-05-18 Rob Riepel * emulation/tpu-edt.el (CSI-map, SS3-map) Moved from global-map to diff --git a/lisp/simple.el b/lisp/simple.el index 7faa0547687..daedae6100c 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -3271,12 +3271,11 @@ purposes. See the documentation of `set-mark' for more information." If the last global mark pushed was not in the current buffer, also push LOCATION on the global mark ring. Display `Mark set' unless the optional second arg NOMSG is non-nil. -In Transient Mark mode, activate mark if optional third arg ACTIVATE non-nil. Novice Emacs Lisp programmers often try to use the mark for the wrong purposes. See the documentation of `set-mark' for more information. -In Transient Mark mode, this does not activate the mark." +In Transient Mark mode, activate mark if optional third arg ACTIVATE non-nil." (unless (null (mark t)) (setq mark-ring (cons (copy-marker (mark-marker)) mark-ring)) (when (> (length mark-ring) mark-ring-max) -- 2.39.5