mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(vc-update-change-log): Ensure that file names inserted into a ChangeLog

Browse Source 
are relative to that ChangeLog.
This commit is contained in:
Paul Eggert 1993-06-30 21:35:59 +00:00
parent 66f55a9d0c
commit 4b40fdea8f
1 changed files with 23 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
lisp/vc.el
View File

@ -1115,6 +1115,7 @@ A prefix argument means do not revert the buffer afterwards."
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 @@ From a program, any arguments are passed to the `rcs2log' script."
(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 @@ From a program, any arguments are passed to the `rcs2log' script."
(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.