mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(cvs-mode-toggle-mark): Rename from cvs-mouse-toggle-mark.

Browse source 
Make it work for non-mouse events.
This commit is contained in:
Stefan Monnier 2004-04-14 17:36:09 +00:00
parent a1e2d7f757
commit 6dfa5acfe3
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/pcvs.el
View file

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