Commit 24c22852 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent bb1e67a0
...@@ -1335,8 +1335,12 @@ store it in a Lisp variable. Example: ...@@ -1335,8 +1335,12 @@ store it in a Lisp variable. Example:
(setq mark-active t) (setq mark-active t)
(run-hooks 'activate-mark-hook) (run-hooks 'activate-mark-hook)
(set-marker (mark-marker) pos (current-buffer))) (set-marker (mark-marker) pos (current-buffer)))
(deactivate-mark) ;; Normally we never clear mark-active except in Transient Mark mode.
(set-marker (mark-marker) pos (current-buffer)))) ;; 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 (defvar mark-ring nil
"The list of saved former marks of the current buffer, "The list of saved former marks of the current buffer,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment