624 |
(mouse-set-region-1))) |
(mouse-set-region-1))) |
625 |
|
|
626 |
(defun mouse-set-region-1 () |
(defun mouse-set-region-1 () |
627 |
|
;; Set transient-mark-mode for a little while. |
628 |
|
(setq transient-mark-mode (or transient-mark-mode 'lambda)) |
629 |
(setq mouse-last-region-beg (region-beginning)) |
(setq mouse-last-region-beg (region-beginning)) |
630 |
(setq mouse-last-region-end (region-end)) |
(setq mouse-last-region-end (region-end)) |
631 |
(setq mouse-last-region-tick (buffer-modified-tick))) |
(setq mouse-last-region-tick (buffer-modified-tick))) |