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

[Miles Bader]

Index: emacs/lisp/mouse.el
diff -c emacs/lisp/mouse.el:1.241.8.2 emacs/lisp/mouse.el:1.241.8.3
*** emacs/lisp/mouse.el:1.241.8.2       Mon Jun 28 07:28:43 2004
--- emacs/lisp/mouse.el Sun Jul 11 22:07:44 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)))