mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(cvs-parse-table): Remove unused var `type'.

Browse source 
Look up `.cvsignore' to see what to do with `new-dir' messages.
(cvs-parse-merge): Remove unused var `handled'.
This commit is contained in:
Stefan Monnier 2003-05-14 15:00:31 +00:00
parent fd93e33104
commit 0ded0280ab
1 changed files with 16 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lisp/pcvs-parse.el
View file

@ -199,7 +199,7 @@ The remaining KEYS are passed directly to `cvs-create-fileinfo'."
(defun cvs-parse-table ()
"Table of message objects for `cvs-parse-process'."
(let (c file dir path type base-rev subtype)
(let (c file dir path base-rev subtype)
(cvs-or
(cvs-parse-status)
@ -266,7 +266,20 @@ The remaining KEYS are passed directly to `cvs-create-fileinfo'."
(and
(cvs-match "New directory `\\(.*\\)' -- ignored$" (dir 1))
;; (cvs-parsed-fileinfo 'MESSAGE " " (file-name-as-directory dir))
(cvs-parsed-fileinfo '(NEED-UPDATE . NEW-DIR) dir t))
;; These messages either correspond to a true new directory
;; that an update will bring in, or to a directory that's empty
;; on the current branch (either because it only exists in other
;; branches, or because it's been removed).
(if (ignore-errors
(with-current-buffer
(find-file-noselect (expand-file-name
".cvsignore" (file-name-directory dir)))
(goto-char (point-min))
(re-search-forward
(concat "^" (regexp-quote (file-name-nondirectory dir)) "/$")
nil t)))
t ;The user requested to ignore those messages.
(cvs-parsed-fileinfo '(NEED-UPDATE . NEW-DIR) dir t)))
;; File removed, since it is removed (by third party) in repository.
(and
@ -387,7 +400,7 @@ The remaining KEYS are passed directly to `cvs-create-fileinfo'."
(defun cvs-parse-merge ()
(let (path base-rev head-rev handled type)
(let (path base-rev head-rev type)
;; A merge (maybe with a conflict).
(and
(cvs-match "RCS file: .*$")