Mercurial > emacs
changeset 4158:469c093061bf
(vc-comment-to-change-log): Copy interactive spec from
add-change-log-entry-other-window. Call add-change-log-entry instead of
add-change-log-entry-other-window; pass it t for OTHER-WINDOW and NEW-ENTRY
args. Go to bol before filling.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Mon, 19 Jul 1993 01:01:17 +0000 |
| parents | d2316090d029 |
| children | e0bddf2ba112 |
| files | lisp/vc.el |
| diffstat | 1 files changed, 7 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc.el Mon Jul 19 00:39:21 1993 +0000 +++ b/lisp/vc.el Mon Jul 19 01:01:17 1993 +0000 @@ -589,22 +589,21 @@ Optional arg (interactive prefix) non-nil means prompt for user name and site. Second arg is file name of change log. \ If nil, uses `change-log-default-name'." - (interactive) + (interactive (if current-prefix-arg + (list current-prefix-arg + (prompt-for-change-log-name)))) (let (;; Extract the comment first so we get any error before doing anything. (comment (ring-ref vc-comment-ring 0)) - ;; Don't let add-change-log-entry insert anything but the file name. + ;; Don't let add-change-log-entry insert a defun name. (add-log-current-defun-function 'ignore) end) ;; Call add-log to do half the work. - (if (interactive-p) - ;; This is better than repeating its interactive spec here. - (call-interactively 'add-change-log-entry-other-window) - (add-change-log-entry-other-window whoami file-name)) + (add-change-log-entry whoami file-name t t) ;; Insert the VC comment, leaving point before it. (setq end (save-excursion (insert comment) (point-marker))) (if (looking-at "\\s *\\s(") ;; It starts with an open-paren, as in "(foo): Frobbed." - ;; So remove the ": " add-change-log-entry-other-window inserted. + ;; So remove the ": " add-log inserted. (delete-char -2)) ;; Canonicalize the white space between the file name and comment. (just-one-space) @@ -618,6 +617,7 @@ ;; Fill the inserted text, preserving open-parens at bol. (let ((paragraph-separate (concat paragraph-separate "\\|^\\s *\\s(")) (paragraph-start (concat paragraph-start "\\|^\\s *\\s("))) + (beginning-of-line) (fill-region (point) end)) ;; Canonicalize the white space at the end of the entry so it is ;; separated from the next entry by a single blank line.