/[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 by rms, Wed May 29 16:36:55 2002 UTC revision 1.241.2.1 by miles, Tue Oct 14 23:51:19 2003 UTC
# Line 166  Default to the Edit menu if the major mo Line 166  Default to the Edit menu if the major mo
166            (lookup-key menubar (vector (car submap)))))))            (lookup-key menubar (vector (car submap)))))))
167    
168  (defun mouse-popup-menubar (event prefix)  (defun mouse-popup-menubar (event prefix)
169    "Pops up a menu equivalent to the menu bar a keyboard EVENT with PREFIX.    "Pop up a menu equivalent to the menu bar for keyboard EVENT with PREFIX.
170  The contents are the items that would be in the menu bar whether or  The contents are the items that would be in the menu bar whether or
171  not it is actually displayed."  not it is actually displayed."
172    (interactive "@e \nP")    (interactive "@e \nP")
# Line 895  If DIR is positive skip forward; if nega Line 895  If DIR is positive skip forward; if nega
895             (while (and (not (eobp)) (= (following-char) char))             (while (and (not (eobp)) (= (following-char) char))
896               (forward-char 1))))))               (forward-char 1))))))
897    
 ;; Return a list of region bounds based on START and END according to MODE.  
 ;; If MODE is 0 then set point to (min START END), mark to (max START END).  
 ;; If MODE is 1 then set point to start of word at (min START END),  
 ;; mark to end of word at (max START END).  
 ;; If MODE is 2 then do the same for lines.  
898  (defun mouse-start-end (start end mode)  (defun mouse-start-end (start end mode)
899    "Return a list of region bounds based on START and END according to MODE.
900    If MODE is 0 then set point to (min START END), mark to (max START END).
901    If MODE is 1 then set point to start of word at (min START END),
902    mark to end of word at (max START END).
903    If MODE is 2 then do the same for lines."
904    (if (> start end)    (if (> start end)
905        (let ((temp start))        (let ((temp start))
906          (setq start end          (setq start end
# Line 2245  and selects that window." Line 2245  and selects that window."
2245  (make-obsolete 'mldrag-drag-vertical-line 'mouse-drag-vertical-line "21.1")  (make-obsolete 'mldrag-drag-vertical-line 'mouse-drag-vertical-line "21.1")
2246  (provide 'mldrag)  (provide 'mldrag)
2247    
2248    ;;; arch-tag: 9a710ce1-914a-4923-9b81-697f7bf82ab3
2249  ;;; mouse.el ends here  ;;; mouse.el ends here

Legend:
Removed from v.1.241  
changed lines
  Added in v.1.241.2.1

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