diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-04-14 17:36:09 +0000 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-04-14 17:36:09 +0000 |
commit | 6dfa5acfe309115c20c7d7d2fdb490f02c050155 (patch) | |
tree | 52f986a561ca12a49f6bf582137113fca428f6e7 /lisp/pcvs.el | |
parent | a1e2d7f757128842226ee60820c5b76462788c38 (diff) |
(cvs-mode-toggle-mark): Rename from cvs-mouse-toggle-mark.
Make it work for non-mouse events.
Diffstat (limited to 'lisp/pcvs.el')
-rw-r--r-- | lisp/pcvs.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/pcvs.el b/lisp/pcvs.el index cc72d02f64a..21e34fbc7ed 100644 --- a/lisp/pcvs.el +++ b/lisp/pcvs.el @@ -1194,11 +1194,12 @@ marked instead. A directory can never be marked." (ewoc-invalidate cvs-cookies tin) (cvs-mode-next-line 1)))) -(defun cvs-mouse-toggle-mark (e) - "Toggle the mark of the entry under the mouse." - (interactive "e") +(defalias 'cvs-mouse-toggle-mark 'cvs-mode-toggle-mark) +(defun cvs-mode-toggle-mark (e) + "Toggle the mark of the entry at point." + (interactive (list last-input-event)) (save-excursion - (mouse-set-point e) + (posn-set-point (event-end e)) (cvs-mode-mark 'toggle))) (defun-cvs-mode cvs-mode-unmark () @@ -1930,7 +1931,7 @@ to hear about anymore." With a prefix, opens the buffer in an OTHER window." (interactive (list last-input-event current-prefix-arg)) ;; If the event moves point, check that it moves it to a valid location. - (when (and (/= (point) (progn (ignore-errors (mouse-set-point e)) (point))) + (when (and (/= (point) (progn (posn-set-point (event-end e)) (point))) (not (memq (get-text-property (1- (line-end-position)) 'font-lock-face) '(cvs-header-face cvs-filename-face)))) |