diff options
| author | Richard M. Stallman <rms@gnu.org> | 2004-07-09 16:54:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2004-07-09 16:54:04 +0000 |
| commit | cc47c660fa466456862d701a14e20ec247bafda8 (patch) | |
| tree | 92f56521d97a362146a07e67808b7d419e6176ce /lisp/mouse.el | |
| parent | 0fa19a5713d07321d3276e3c0abb519691e9cb0e (diff) | |
| download | emacs-cc47c660fa466456862d701a14e20ec247bafda8.tar.gz | |
(mouse-set-region-1): If transient-mark-mode
is `identity', change it to `only'.
Diffstat (limited to 'lisp/mouse.el')
| -rw-r--r-- | lisp/mouse.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 7f9d080478a..b73967b99dc 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -625,7 +625,8 @@ This should be bound to a mouse drag event." (defun mouse-set-region-1 () ;; Set transient-mark-mode for a little while. - (setq transient-mark-mode (or transient-mark-mode 'only)) + (if (memq transient-mark-mode '(nil identity)) + (setq transient-mark-mode 'only)) (setq mouse-last-region-beg (region-beginning)) (setq mouse-last-region-end (region-end)) (setq mouse-last-region-tick (buffer-modified-tick))) |