# HG changeset patch
# User Paul Eggert <eggert@twinsun.com>
# Date 741476159 0
# Node ID 1b954eb0f249ece0d2e354291f18b7bdd2a3cc64
# Parent  83d870a52936be620146756a9706a7d09eb6f80f
(vc-update-change-log): Ensure that file names inserted into a ChangeLog
are relative to that ChangeLog.

diff -r 83d870a52936 -r 1b954eb0f249 lisp/vc.el
--- a/lisp/vc.el	Wed Jun 30 21:35:22 1993 +0000
+++ b/lisp/vc.el	Wed Jun 30 21:35:59 1993 +0000
@@ -1115,6 +1115,7 @@
 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.
+Otherwise, find log entries for all registered files in the default directory.
 From a program, any arguments are passed to the `rcs2log' script."
   (interactive
    (cond ((consp current-prefix-arg)	;C-u
@@ -1126,9 +1127,18 @@
 	    (while buffers
 	      (setq file (buffer-file-name (car buffers)))
 	      (and file (vc-backend-deduce file)
-		   (setq files (cons (file-relative-name file) files)))
+		   (setq files (cons file files)))
 	      (setq buffers (cdr buffers)))
-	    files))))
+	    files))
+	 (t
+	  (let ((RCS (concat default-directory "RCS")))
+	    (and (file-directory-p RCS)
+		 (mapcar (function
+			  (lambda (f)
+			    (if (string-match "\\(.*\\),v$" f)
+				(substring f 0 (match-end 1))
+			      f)))
+			 (directory-files RCS nil "...\\|^[^.]\\|^.[^.]")))))))
   (let ((odefault default-directory))
     (find-file-other-window (find-change-log))
     (barf-if-buffer-read-only)
@@ -1137,10 +1147,17 @@
     (goto-char (point-min))
     (push-mark)
     (message "Computing change log entries...")
-    (let ((default-directory odefault))
-      (message "Computing change log entries... %s"
-	       (if (eq 0 (apply 'call-process "rcs2log" nil t nil args))
-		   "done" "failed")))))
+    (message "Computing change log entries... %s"
+	     (if (or (null args)
+		     (eq 0 (apply 'call-process "rcs2log" nil t nil
+				  (mapcar (function
+					   (lambda (f)
+					     (file-relative-name
+					      (if (file-name-absolute-p f)
+						  f
+						(concat odefault f)))))
+					  args))))
+		 "done" "failed"))))
 
 ;; Functions for querying the master and lock files.