[Emacs-diffs] Changes to emacs/lisp/mouse.el

[Richard M . Stallman]

Index: emacs/lisp/mouse.el
diff -c emacs/lisp/mouse.el:1.248 emacs/lisp/mouse.el:1.249
*** emacs/lisp/mouse.el:1.248   Mon Jun 21 03:16:28 2004
--- emacs/lisp/mouse.el Fri Jul  9 16:54:04 2004
***************
*** 625,631 ****
  
  (defun mouse-set-region-1 ()
    ;; Set transient-mark-mode for a little while.
!   (setq transient-mark-mode (or 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)))
--- 625,632 ----
  
  (defun mouse-set-region-1 ()
    ;; Set transient-mark-mode for a little while.
!   (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)))