Mercurial > emacs
diff lisp/mouse.el @ 56379:72ec8013c5a1
(mouse-set-region-1): If transient-mark-mode
is `identity', change it to `only'.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 09 Jul 2004 16:54:04 +0000 |
| parents | 89f3c86e4a77 |
| children | 7eb69809590b 029a652ac817 |
line wrap: on
line diff
--- a/lisp/mouse.el Fri Jul 09 16:08:17 2004 +0000 +++ b/lisp/mouse.el Fri Jul 09 16:54:04 2004 +0000 @@ -625,7 +625,8 @@ (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)))