(vc-update-change-log): Use shell-command, not shell-command-on-region.

Take optional args to pass to script.
Add fancy interactive spec: C-u for current file only; M-0 for all visited.

1 files changed, 27 insertions, 17 deletions

diff --git a/lisp/vc.el b/lisp/vc.el
index 0fae44efd04..3c1a3554f67 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -5,7 +5,7 @@
 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
 ;; Version: 4.0
 
-;;      $Id: vc.el,v 1.58 1992/07/31 07:17:21 esr Exp $ 
+;;      $Id: vc.el,v 1.3 1992/08/08 22:58:39 rms Exp roland $   
 
 ;; This file is part of GNU Emacs.
 
@@ -758,22 +758,32 @@ to that version."
   )
 
 ;;;###autoload
-(defun vc-update-change-log ()
-  "Find change log file and add entries from recent RCS logs."
-  (interactive)
-    (find-file-other-window "ChangeLog")
-    (vc-buffer-sync)
-    (or (eq major-mode 'indented-text-mode)
-        (progn
-          (indented-text-mode)
-          (setq left-margin 8)
-          (setq fill-column 74)))
-    (auto-fill-mode 1)
-    (undo-boundary)
-    (goto-char (point-min))
-    (message "Computing change log entries...")
-    (shell-command-on-region (point) (point) "rcs2log" t)
-    (message "Computing change log entries... done"))
+(defun vc-update-change-log (&rest args)
+  "Find change log file and add entries from recent RCS logs.
+The mark is left at the end of the text prepended to the change log.
+With prefix arg of C-u, only find log entries for the current buffer's file.
+With any numeric prefix arg, find log entries for all files currently visited.
+From a program, any arguments are passed to the `rcs2log' script."
+  (interactive (cond ((consp current-prefix-arg) ;C-u
+                      (list buffer-file-name))
+                     (current-prefix-arg ;Numeric argument.
+                      (let ((files nil)
+                            (buffers (buffer-list))
+                            file)
+                        (while buffers
+                          (setq file (buffer-file-name (car buffers)))
+                          (and file
+                               (setq file (vc-name file))
+                               (setq files (cons file files)))
+                          (setq buffers (cdr buffers)))
+                        files))))
+  (find-file-other-window "ChangeLog")
+  (vc-buffer-sync)
+  (undo-boundary)
+  (goto-char (point-min))
+  (message "Computing change log entries...")
+  (shell-command (mapconcat 'identity (cons "rcs2log" args) " ") t)
+  (message "Computing change log entries... done"))
 
 ;; Functions for querying the master and lock files.