diff options
| -rw-r--r-- | lisp/simple.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 8dc5fa1af74..1725dd6585b 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -1335,8 +1335,12 @@ store it in a Lisp variable. Example: | |||
| 1335 | (setq mark-active t) | 1335 | (setq mark-active t) |
| 1336 | (run-hooks 'activate-mark-hook) | 1336 | (run-hooks 'activate-mark-hook) |
| 1337 | (set-marker (mark-marker) pos (current-buffer))) | 1337 | (set-marker (mark-marker) pos (current-buffer))) |
| 1338 | (deactivate-mark) | 1338 | ;; Normally we never clear mark-active except in Transient Mark mode. |
| 1339 | (set-marker (mark-marker) pos (current-buffer)))) | 1339 | ;; But when we actually clear out the mark value too, |
| 1340 | ;; we must clear mark-active in any mode. | ||
| 1341 | (setq mark-active nil) | ||
| 1342 | (run-hooks 'deactivate-mark-hook) | ||
| 1343 | (set-marker (mark-marker) nil))) | ||
| 1340 | 1344 | ||
| 1341 | (defvar mark-ring nil | 1345 | (defvar mark-ring nil |
| 1342 | "The list of saved former marks of the current buffer, | 1346 | "The list of saved former marks of the current buffer, |