/[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.35 by monnier, Thu May 16 20:03:52 2002 UTC revision 1.36 by monnier, Tue Jun 18 21:50:30 2002 UTC
# Line 1633  Signal an error if there is no backup fi Line 1633  Signal an error if there is no backup fi
1633    (if (eq (cvs-fileinfo->type fi) 'DIRCHANGE)    (if (eq (cvs-fileinfo->type fi) 'DIRCHANGE)
1634        (dolist (fi (ewoc-collect c 'cvs-dir-member-p        (dolist (fi (ewoc-collect c 'cvs-dir-member-p
1635                                  (cvs-fileinfo->dir fi)))                                  (cvs-fileinfo->dir fi)))
1636          (setf (cvs-fileinfo->type fi) 'DEAD))          (setf (cvs-fileinfo->type fi) 'UP-TO-DATE))
1637      (setf (cvs-fileinfo->type fi) 'DEAD)))      (setf (cvs-fileinfo->type fi) 'UP-TO-DATE)))
1638    
1639  (defun cvs-is-within-p (fis dir)  (defun cvs-is-within-p (fis dir)
1640    "Non-nil is buffer is inside one of FIS (in DIR)."    "Non-nil is buffer is inside one of FIS (in DIR)."
# Line 2126  The exact behavior is determined also by Line 2126  The exact behavior is determined also by
2126    
2127  (defun cvs-vc-command-advice (command file flags)  (defun cvs-vc-command-advice (command file flags)
2128    (when (and (equal command "cvs")    (when (and (equal command "cvs")
2129               ;; don't parse output we don't understand.               (progn
2130               (member (car flags) cvs-parse-known-commands))                 (while (and (stringp (car flags))
2131                               (string-match "\\`-" (car flags)))
2132                     (pop flags))
2133                   ;; don't parse output we don't understand.
2134                   (member (car flags) cvs-parse-known-commands)))
2135      (save-excursion      (save-excursion
2136        (let ((buffer (current-buffer))        (let ((buffer (current-buffer))
2137              (dir default-directory)              (dir default-directory)

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

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