/[emacs]/emacs/lisp/pcvs.el
ViewVC logotype

Diff of /emacs/lisp/pcvs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.51 by sds, Sun Apr 20 22:03:00 2003 UTC revision 1.52 by monnier, Thu May 1 00:46:41 2003 UTC
# Line 1899  This command ignores files that are not Line 1899  This command ignores files that are not
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)))
# Line 2229  The exact behavior is determined also by Line 2230  The exact behavior is determined also by
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)

Legend:
Removed from v.1.51  
changed lines
  Added in v.1.52

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26