Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-21 20:37:38 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
Take optional args to pass to script.
Add fancy interactive spec: C-u for current file only; M-0 for all visited.
This commit is contained in:
Roland McGrath 1992-09-27 01:31:15 +00:00
parent a0f8171133
commit f35ecf8813
1 changed files with 27 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

44
lisp/vc.el
View file

@ -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.