Lines Matching defs:changelog
60 ("\C-c\C-a" . log-edit-insert-changelog)
80 ["Insert ChangeLog" log-edit-insert-changelog]
81 ["Add to ChangeLog" log-edit-add-to-changelog]
121 log-edit-insert-changelog)
124 :type '(hook :options (log-edit-insert-changelog
142 log-edit-add-to-changelog)))
144 (defvar cvs-changelog-full-paragraphs t)
145 (make-obsolete-variable 'cvs-changelog-full-paragraphs
146 'log-edit-changelog-full-paragraphs)
148 (defvar log-edit-changelog-full-paragraphs cvs-changelog-full-paragraphs
463 (defun log-edit-add-to-changelog ()
474 (defvar log-edit-changelog-use-first nil)
475 (defun log-edit-insert-changelog (&optional use-first)
492 (let ((log-edit-changelog-use-first
493 (or use-first (eq last-command 'log-edit-insert-changelog))))
494 (log-edit-insert-changelog-entries (log-edit-files)))
510 (defun log-edit-narrow-changelog ()
515 (error "log-edit-narrow-changelog: current buffer isn't a ChangeLog"))
529 (defun log-edit-changelog-paragraph ()
544 (defun log-edit-changelog-subparagraph ()
559 (defun log-edit-changelog-entry ()
561 The variable `log-edit-changelog-full-paragraphs' decides whether an
564 (if log-edit-changelog-full-paragraphs
565 (log-edit-changelog-paragraph)
566 (log-edit-changelog-subparagraph)))
570 (defun log-edit-changelog-ours-p ()
584 (looking-at (if log-edit-changelog-use-first
588 (defun log-edit-changelog-entries (file)
595 (let ((changelog-file-name
612 (set-buffer (find-file-noselect changelog-file-name))
616 (if (not (log-edit-changelog-ours-p))
619 (log-edit-narrow-changelog)
627 file (file-name-directory changelog-file-name))))
639 (let ((entry (log-edit-changelog-entry)))
645 (defun log-edit-changelog-insert-entries (buffer regions)
655 (defun log-edit-insert-changelog-entries (files)
662 (let* ((entries (log-edit-changelog-entries file))
671 (log-edit-changelog-insert-entries (car buffer-entry) (cdr buffer-entry))