diff options
| author | Richard M. Stallman | 2004-07-09 16:54:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-07-09 16:54:04 +0000 |
| commit | cc47c660fa466456862d701a14e20ec247bafda8 (patch) | |
| tree | 92f56521d97a362146a07e67808b7d419e6176ce | |
| parent | 0fa19a5713d07321d3276e3c0abb519691e9cb0e (diff) | |
| download | emacs-cc47c660fa466456862d701a14e20ec247bafda8.tar.gz emacs-cc47c660fa466456862d701a14e20ec247bafda8.zip | |
(mouse-set-region-1): If transient-mark-mode
is `identity', change it to `only'.
| -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." | |||
| 625 | 625 | ||
| 626 | (defun mouse-set-region-1 () | 626 | (defun mouse-set-region-1 () |
| 627 | ;; Set transient-mark-mode for a little while. | 627 | ;; Set transient-mark-mode for a little while. |
| 628 | (setq transient-mark-mode (or transient-mark-mode 'only)) | 628 | (if (memq transient-mark-mode '(nil identity)) |
| 629 | (setq transient-mark-mode 'only)) | ||
| 629 | (setq mouse-last-region-beg (region-beginning)) | 630 | (setq mouse-last-region-beg (region-beginning)) |
| 630 | (setq mouse-last-region-end (region-end)) | 631 | (setq mouse-last-region-end (region-end)) |
| 631 | (setq mouse-last-region-tick (buffer-modified-tick))) | 632 | (setq mouse-last-region-tick (buffer-modified-tick))) |