mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(set-mark): When POS is nil, always clear mark-active.

Browse Source
This commit is contained in:
Richard M. Stallman 1994-08-30 00:36:48 +00:00
parent bb1e67a022
commit 24c2285241
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/simple.el
View File

@ -1335,8 +1335,12 @@ store it in a Lisp variable. Example:
(setq mark-active t)
(run-hooks 'activate-mark-hook)
(set-marker (mark-marker) pos (current-buffer)))
(deactivate-mark)
(set-marker (mark-marker) pos (current-buffer))))
;; Normally we never clear mark-active except in Transient Mark mode.
;; But when we actually clear out the mark value too,
;; we must clear mark-active in any mode.
(setq mark-active nil)
(run-hooks 'deactivate-mark-hook)
(set-marker (mark-marker) nil)))
(defvar mark-ring nil
"The list of saved former marks of the current buffer,