Commit ad70e472 authored by Glenn Morris's avatar Glenn Morris
Browse files

Improve previous change.

(vc-svn-print-log): If there is only one file, use "Working file:" as
the prefix, for the sake of log-view-current-file.
parent f0988e47
......@@ -382,14 +382,16 @@ The changes are between FIRST-VERSION and SECOND-VERSION."
(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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment