Commit cc47c660 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(mouse-set-region-1): If transient-mark-mode

is `identity', change it to `only'.
parent 0fa19a57
......@@ -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)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment