180 |
(dolist (cmd '("cvs" "checkout" "status" "log" "diff" "tag" |
(dolist (cmd '("cvs" "checkout" "status" "log" "diff" "tag" |
181 |
"add" "commit" "remove" "update")) |
"add" "commit" "remove" "update")) |
182 |
(goto-char (point-min)) |
(goto-char (point-min)) |
183 |
(let* ((sym (intern (concat "cvs-" cmd "-flags"))) |
(when (re-search-forward |
184 |
(val (when (re-search-forward |
(concat "^" cmd "\\(\\s-+\\(.*\\)\\)?$") nil t) |
185 |
(concat "^" cmd "\\s-+\\(.*\\)$") nil t) |
(let* ((sym (intern (concat "cvs-" cmd "-flags"))) |
186 |
(cvs-string->strings (match-string 1))))) |
(val (cvs-string->strings (or (match-string 2) "")))) |
187 |
(cvs-flags-set sym 0 val))) |
(cvs-flags-set sym 0 val)))) |
188 |
;; ensure that cvs doesn't have -q or -Q |
;; ensure that cvs doesn't have -q or -Q |
189 |
(cvs-flags-set 'cvs-cvs-flags 0 |
(cvs-flags-set 'cvs-cvs-flags 0 |
190 |
(cons "-f" |
(cons "-f" |
191 |
(cdr (cvs-partition |
(cdr (cvs-partition |
192 |
(lambda (x) (member x '("-q" "-Q"))) |
(lambda (x) (member x '("-q" "-Q" "-f"))) |
193 |
(cvs-flags-query 'cvs-cvs-flags |
(cvs-flags-query 'cvs-cvs-flags |
194 |
nil 'noquery)))))) |
nil 'noquery)))))) |
195 |
(file-error nil))) |
(file-error nil))) |