/[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.246 by kfstorm, Fri Apr 30 21:37:20 2004 UTC revision 1.247 by monnier, Fri May 28 21:06:26 2004 UTC
# Line 624  This should be bound to a mouse drag eve Line 624  This should be bound to a mouse drag eve
624      (mouse-set-region-1)))      (mouse-set-region-1)))
625    
626  (defun mouse-set-region-1 ()  (defun mouse-set-region-1 ()
627      ;; Set transient-mark-mode for a little while.
628      (setq transient-mark-mode (or transient-mark-mode 'lambda))
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)))

Legend:
Removed from v.1.246  
changed lines
  Added in v.1.247

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