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

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       07/09/03 06:25:51

Index: vc-svn.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-svn.el,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -b -r1.42 -r1.43
--- vc-svn.el   3 Sep 2007 06:19:16 -0000       1.42
+++ vc-svn.el   3 Sep 2007 06:25:50 -0000       1.43
@@ -382,14 +382,16 @@
     (let ((inhibit-read-only t))
       (goto-char (point-min))
       ;; Add a line to tell log-view-mode what file this is.
-      ;; FIXME as far as I can tell, this function at present can only
-      ;; be called with a single file argument.  Therefore I changed
-      ;; the prompt back to singular, "file(s)" -> "file", since
-      ;; otherwise log-view-current-file breaks.  It's trivial to
-      ;; adapt log-view-file-re for the new prefix, but less trivial
-      ;; to make log-view-current-file actually do the right thing in
-      ;; the multiple file case.
-      (insert "Working file: " (vc-delistify (mapcar 'file-relative-name 
files)) "\n"))
+      ;; FIXME if there are multiple files, log-view-current-file
+      ;; breaks.  It's trivial to adapt log-view-file-re for the
+      ;; changed prefix, but less trivial to make
+      ;; log-view-current-file actually do the right thing in the
+      ;; multiple file case.
+      (insert (format "Working file%s: "
+                     (if (= (length files) 1)
+                         ""
+                       "s"))
+                     (vc-delistify (mapcar 'file-relative-name files)) "\n"))
     (vc-svn-command
      buffer
      (if (and (= (length files) 1) (vc-stay-local-p (car files)) (fboundp 
'start-process)) 'async 0)