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") |
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 |
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 |