comparison lisp/vc-svn.el @ 83867:01cab4ce3218

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.

83866:409f4acaf5c9

  (save-current-buffer
    (vc-setup-buffer buffer)
    (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"))
    (vc-svn-command
     buffer
     (if (and (= (length files) 1) (vc-stay-local-p (car files)) (fboundp 'start-process)) 'async 0)
     files "log"
     ;; By default Subversion only shows the log upto the working version,

83867:01cab4ce3218

  (save-current-buffer
    (vc-setup-buffer buffer)
    (let ((inhibit-read-only t))
      (goto-char (point-min))
      ;; Add a line to tell log-view-mode what file this is.
      ;; 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)
     files "log"
     ;; By default Subversion only shows the log upto the working version,