diff options
| author | Richard M. Stallman | 1994-05-28 12:04:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-05-28 12:04:04 +0000 |
| commit | a4b9d3da053e4a5611e9b9cfb657dfbb71292e6f (patch) | |
| tree | a540b98269d39155f2802f1c03f2c2ea69885c0c | |
| parent | 65d0cca45b6dac2653b4c134af92fd4fe79bb495 (diff) | |
| download | emacs-a4b9d3da053e4a5611e9b9cfb657dfbb71292e6f.tar.gz emacs-a4b9d3da053e4a5611e9b9cfb657dfbb71292e6f.zip | |
(deactivate-mark): Do nothing unless transient-mark-mode.
| -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'." | |||
| 1305 | "Deactivate the mark by setting `mark-active' to nil. | 1305 | "Deactivate the mark by setting `mark-active' to nil. |
| 1306 | \(That makes a difference only in Transient Mark mode.) | 1306 | \(That makes a difference only in Transient Mark mode.) |
| 1307 | Also runs the hook `deactivate-mark-hook'." | 1307 | Also runs the hook `deactivate-mark-hook'." |
| 1308 | (setq mark-active nil) | 1308 | (if transient-mark-mode |
| 1309 | (run-hooks 'deactivate-mark-hook)) | 1309 | (progn |
| 1310 | (setq mark-active nil) | ||
| 1311 | (run-hooks 'deactivate-mark-hook)))) | ||
| 1310 | 1312 | ||
| 1311 | (defun set-mark (pos) | 1313 | (defun set-mark (pos) |
| 1312 | "Set this buffer's mark to POS. Don't use this function! | 1314 | "Set this buffer's mark to POS. Don't use this function! |