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

Improve previous change.

Browse source 
(vc-svn-print-log): If there is only one file, use "Working file:" as
the prefix, for the sake of log-view-current-file.
This commit is contained in:
Glenn Morris 2007-09-03 06:25:50 +00:00
parent f0988e4707
commit ad70e472bd
1 changed files with 10 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/vc-svn.el
View file

@ -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)