Mercurial > emacs
comparison lisp/vc-svn.el @ 83865:3fe905e1a618
(vc-svn-print-log): Change the "Working file" prefix back to singular,
for the sake of log-view.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Mon, 03 Sep 2007 06:19:16 +0000 |
parents | 86c05b1c8884 |
children | 01cab4ce3218 |
comparison
equal
deleted
inserted
replaced
83864:d935eac5e18d | 83865:3fe905e1a618 |
---|---|
380 (save-current-buffer | 380 (save-current-buffer |
381 (vc-setup-buffer buffer) | 381 (vc-setup-buffer buffer) |
382 (let ((inhibit-read-only t)) | 382 (let ((inhibit-read-only t)) |
383 (goto-char (point-min)) | 383 (goto-char (point-min)) |
384 ;; Add a line to tell log-view-mode what file this is. | 384 ;; Add a line to tell log-view-mode what file this is. |
385 (insert "Working file(s): " (vc-delistify (mapcar 'file-relative-name files)) "\n")) | 385 ;; FIXME as far as I can tell, this function at present can only |
386 ;; be called with a single file argument. Therefore I changed | |
387 ;; the prompt back to singular, "file(s)" -> "file", since | |
388 ;; otherwise log-view-current-file breaks. It's trivial to | |
389 ;; adapt log-view-file-re for the new prefix, but less trivial | |
390 ;; to make log-view-current-file actually do the right thing in | |
391 ;; the multiple file case. | |
392 (insert "Working file: " (vc-delistify (mapcar 'file-relative-name files)) "\n")) | |
386 (vc-svn-command | 393 (vc-svn-command |
387 buffer | 394 buffer |
388 (if (and (= (length files) 1) (vc-stay-local-p (car files)) (fboundp 'start-process)) 'async 0) | 395 (if (and (= (length files) 1) (vc-stay-local-p (car files)) (fboundp 'start-process)) 'async 0) |
389 files "log" | 396 files "log" |
390 ;; By default Subversion only shows the log upto the working version, | 397 ;; By default Subversion only shows the log upto the working version, |