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)." |
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) |