comparison lisp/pcvs.el @ 82762:8ff02425f4db

(cvs-vc-command-advice): Fix a typo in code (file->files).
author Sam Steingold <sds@gnu.org>
date Wed, 22 Aug 2007 15:48:22 +0000
parents e5a68f18fcb9
children 993f9a3219c4
comparison
equal deleted inserted replaced
82761:3a62285f3e39 82762:8ff02425f4db
2382 (set (make-local-variable 'cvs-buffer) cvs-buf) 2382 (set (make-local-variable 'cvs-buffer) cvs-buf)
2383 ;; `cvs -q add file' produces no useful output :-( 2383 ;; `cvs -q add file' produces no useful output :-(
2384 (when (and (equal (car flags) "add") 2384 (when (and (equal (car flags) "add")
2385 (goto-char (point-min)) 2385 (goto-char (point-min))
2386 (looking-at ".*to add this file permanently\n\\'")) 2386 (looking-at ".*to add this file permanently\n\\'"))
2387 (dolist (file (if (listp files) files (list file))) 2387 (dolist (file (if (listp files) files (list files)))
2388 (insert "cvs add: scheduling file `" 2388 (insert "cvs add: scheduling file `"
2389 (file-name-nondirectory file) 2389 (file-name-nondirectory file)
2390 "' for addition\n"))) 2390 "' for addition\n")))
2391 ;; VC never (?) does `cvs -n update' so dcd=nil 2391 ;; VC never (?) does `cvs -n update' so dcd=nil
2392 ;; should probably always be the right choice. 2392 ;; should probably always be the right choice.