Commit dc29aa6c authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(add-change-log-entry): Merge the current entry with the

previous one if the previous one is empty.
parent 4370a375
2000-05-26 Stefan Monnier <monnier@cs.yale.edu>
* add-log.el (add-change-log-entry): Merge the current entry with the
previous one if the previous one is empty.
2000-05-26 Dave Love <fx@gnu.org>
* loadhist.el (unload-feature): Fix interactive spec [from
......
......@@ -449,7 +449,20 @@ non-nil, otherwise in local time."
(beginning-of-line 1)
(looking-at "\\s *$"))
(insert ?\ ))
(insert "(" defun "): ")
;; See if the prev function name has a message yet or not
;; If not, merge the two entries.
(let ((pos (point-marker)))
(if (and (skip-syntax-backward " ")
(skip-chars-backward "):")
(looking-at "):")
(progn (delete-region (+ 1 (point)) (+ 2 (point))) t)
(> fill-column (+ (current-column) (length defun) 3)))
(progn (delete-region (point) pos)
(insert ", "))
(goto-char pos)
(insert "("))
(set-marker pos nil))
(insert defun "): ")
(if version
(insert version ?\ )))
;; No function name, so put in a colon unless we have just a star.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment