[Emacs-diffs] Changes to emacs/lisp/vc-cvs.el,v

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   08/03/31 15:36:59

Index: vc-cvs.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-cvs.el,v
retrieving revision 1.113
retrieving revision 1.114
diff -u -b -r1.113 -r1.114
--- vc-cvs.el   29 Mar 2008 05:34:52 -0000      1.113
+++ vc-cvs.el   31 Mar 2008 15:36:55 -0000      1.114
@@ -900,7 +900,7 @@
       (while (looking-at "? \\(.*\\)")
        (setq file (file-relative-name 
                    (expand-file-name (match-string 1) subdir)))
-       (push (cons file 'unregistered) result)
+       (push (list file 'unregistered) result)
        (forward-line 1))
       ;; A file entry.
       (when (re-search-forward "^File: " nil t)
@@ -911,7 +911,7 @@
          (setq file (file-relative-name 
                      (expand-file-name (match-string 1) subdir)))
          (if (not (re-search-forward "\\=[ \t]+Status: \\(.*\\)" nil t))
-             (push (cons file 'unregistered) result)
+             (push (list file 'unregistered) result)
            (setq status-str (match-string 1))
            (setq status
                  (cond
@@ -924,7 +924,7 @@
                   ((string-match "Locally Removed" status-str) 'removed)
                   (t 'edited)))
            (unless (eq status 'up-to-date)
-             (push (cons file status) result))))))
+             (push (list file status) result))))))
       (goto-char (point-max))
       (widen))
       (funcall update-function result status-buffer)))