1901 |
(interactive (list last-input-event current-prefix-arg)) |
(interactive (list last-input-event current-prefix-arg)) |
1902 |
;; If the event moves point, check that it moves it to a valid location. |
;; If the event moves point, check that it moves it to a valid location. |
1903 |
(when (and (/= (point) (progn (ignore-errors (mouse-set-point e)) (point))) |
(when (and (/= (point) (progn (ignore-errors (mouse-set-point e)) (point))) |
1904 |
(memq (get-text-property (1- (line-end-position)) 'font-lock-face) |
(not (memq (get-text-property (1- (line-end-position)) |
1905 |
'(cvs-header-face cvs-filename-face))) |
'font-lock-face) |
1906 |
|
'(cvs-header-face cvs-filename-face)))) |
1907 |
(error "Not a file name")) |
(error "Not a file name")) |
1908 |
(cvs-mode! |
(cvs-mode! |
1909 |
(lambda (&optional rev) |
(lambda (&optional rev) |