/[emacs]/emacs/lisp/mouse.el
ViewVC logotype

Diff of /emacs/lisp/mouse.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.241.2.6 by miles, Tue Jul 6 10:17:17 2004 UTC revision 1.241.2.7 by miles, Sat Jul 17 02:49:46 2004 UTC
# Line 625  This should be bound to a mouse drag eve Line 625  This should be bound to a mouse drag eve
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 'only))    (if (memq transient-mark-mode '(nil identity))
629          (setq transient-mark-mode 'only))
630    (setq mouse-last-region-beg (region-beginning))    (setq mouse-last-region-beg (region-beginning))
631    (setq mouse-last-region-end (region-end))    (setq mouse-last-region-end (region-end))
632    (setq mouse-last-region-tick (buffer-modified-tick)))    (setq mouse-last-region-tick (buffer-modified-tick)))

Legend:
Removed from v.1.241.2.6  
changed lines
  Added in v.1.241.2.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26