diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-05-28 12:04:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-05-28 12:04:04 +0000 |
| commit | a4b9d3da053e4a5611e9b9cfb657dfbb71292e6f (patch) | |
| tree | a540b98269d39155f2802f1c03f2c2ea69885c0c /lisp | |
| parent | 65d0cca45b6dac2653b4c134af92fd4fe79bb495 (diff) | |
| download | emacs-a4b9d3da053e4a5611e9b9cfb657dfbb71292e6f.tar.gz | |
(deactivate-mark): Do nothing unless transient-mark-mode.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/simple.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 88165967892..4b00ad6f8fc 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -1305,8 +1305,10 @@ a mistake; see the documentation of `set-mark'." "Deactivate the mark by setting `mark-active' to nil. \(That makes a difference only in Transient Mark mode.) Also runs the hook `deactivate-mark-hook'." - (setq mark-active nil) - (run-hooks 'deactivate-mark-hook)) + (if transient-mark-mode + (progn + (setq mark-active nil) + (run-hooks 'deactivate-mark-hook)))) (defun set-mark (pos) "Set this buffer's mark to POS. Don't use this function! |