/[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.32 by pj, Thu Dec 20 18:43:35 2001 UTC revision 1.33 by monnier, Fri Jan 25 22:41:28 2002 UTC
# Line 180  Line 180 
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)))

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

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