1899 |
"Select a buffer containing the file. |
"Select a buffer containing the file. |
1900 |
With a prefix, opens the buffer in an OTHER window." |
With a prefix, opens the buffer in an OTHER window." |
1901 |
(interactive (list last-input-event current-prefix-arg)) |
(interactive (list last-input-event current-prefix-arg)) |
1902 |
(when (ignore-errors (mouse-set-point e) t) ;for invocation via the mouse |
;; If the event moves point, check that it moves it to a valid location. |
1903 |
(unless (memq (get-text-property (1- (line-end-position)) 'font-lock-face) |
(when (and (/= (point) (progn (ignore-errors (mouse-set-point e)) (point))) |
1904 |
'(cvs-header-face cvs-filename-face)) |
(memq (get-text-property (1- (line-end-position)) 'font-lock-face) |
1905 |
(error "Not a file name"))) |
'(cvs-header-face cvs-filename-face))) |
1906 |
|
(error "Not a file name")) |
1907 |
(cvs-mode! |
(cvs-mode! |
1908 |
(lambda (&optional rev) |
(lambda (&optional rev) |
1909 |
(interactive (list (cvs-prefix-get 'cvs-branch-prefix))) |
(interactive (list (cvs-prefix-get 'cvs-branch-prefix))) |
2230 |
(string-match "\\`-" (car flags))) |
(string-match "\\`-" (car flags))) |
2231 |
(pop flags)) |
(pop flags)) |
2232 |
;; don't parse output we don't understand. |
;; don't parse output we don't understand. |
2233 |
(member (car flags) cvs-parse-known-commands))) |
(member (car flags) cvs-parse-known-commands)) |
2234 |
|
;; Don't parse "update -p" output. |
2235 |
|
(not (and (member (car flags) '("update" "checkout")) |
2236 |
|
(let ((found-p nil)) |
2237 |
|
(dolist (flag flags found-p) |
2238 |
|
(if (equal flag "-p") (setq found-p t))))))) |
2239 |
(save-current-buffer |
(save-current-buffer |
2240 |
(let ((buffer (current-buffer)) |
(let ((buffer (current-buffer)) |
2241 |
(dir default-directory) |
(dir default-directory) |