625 |
|
|
626 |
(defun mouse-set-region-1 () |
(defun mouse-set-region-1 () |
627 |
;; Set transient-mark-mode for a little while. |
;; Set transient-mark-mode for a little while. |
628 |
(setq transient-mark-mode (or transient-mark-mode 'lambda)) |
(setq transient-mark-mode (or transient-mark-mode 'only)) |
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))) |