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

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      08/04/02 20:16:33

Index: mouse.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mouse.el,v
retrieving revision 1.329
retrieving revision 1.330
diff -u -b -r1.329 -r1.330
--- mouse.el    1 Apr 2008 08:35:57 -0000       1.329
+++ mouse.el    2 Apr 2008 20:16:33 -0000       1.330
@@ -691,8 +691,11 @@
 
 (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))
+  (unless (eq (car-safe transient-mark-mode) 'only)
+    (setq transient-mark-mode
+         (cons 'only
+               (unless (eq transient-mark-mode 'lambda)
+                 transient-mark-mode))))
   (setq mouse-last-region-beg (region-beginning))
   (setq mouse-last-region-end (region-end))
   (setq mouse-last-region-tick (buffer-modified-tick)))
@@ -1029,11 +1032,6 @@
                              (overlay-start mouse-drag-overlay))
                           region-termination))
                       last-command this-command)
-                 (when (eq transient-mark-mode 'identity)
-                   ;; Reset `transient-mark-mode' to avoid expanding the region
-                   ;; while scrolling (compare thread on "Erroneous selection
-                   ;; extension ..." on bug-gnu-emacs from 2007-06-10).
-                   (setq transient-mark-mode nil))
                  (push-mark region-commencement t t)
                  (goto-char region-termination)
                  (if (not do-mouse-drag-region-post-process)