/[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.235 by rms, Sat Dec 29 04:21:15 2001 UTC revision 1.236 by rms, Thu Jan 17 02:07:54 2002 UTC
# Line 697  Upon exit, point is at the far edge of t Line 697  Upon exit, point is at the far edge of t
697  Highlight the drag area as you move the mouse.  Highlight the drag area as you move the mouse.
698  This must be bound to a button-down mouse event.  This must be bound to a button-down mouse event.
699  In Transient Mark mode, the highlighting remains as long as the mark  In Transient Mark mode, the highlighting remains as long as the mark
700  remains active.  Otherwise, it remains until the next input event."  remains active.  Otherwise, it remains until the next input event.
701    
702    If the click is in the echo area, display the `*Messages*' buffer."
703    (interactive "e")    (interactive "e")
704      (let ((w (posn-window (event-start start-event))))
705        (if (not (or (not (window-minibuffer-p w))
706                     (minibuffer-window-active-p w)))
707            (save-excursion
708              (read-event)
709              (set-buffer "*Messages*")
710              (goto-char (point-max))
711              (display-buffer (current-buffer)))
712          ;; Give temporary modes such as isearch a chance to turn off.
713          (run-hooks 'mouse-leave-buffer-hook)
714          (mouse-drag-region-1 start-event))))
715    
716    (defun mouse-drag-region-1 (start-event)
717    (mouse-minibuffer-check start-event)    (mouse-minibuffer-check start-event)
718    (let* ((echo-keystrokes 0)    (let* ((echo-keystrokes 0)
719           (start-posn (event-start start-event))           (start-posn (event-start start-event))

Legend:
Removed from v.1.235  
changed lines
  Added in v.1.236

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