diff options
| author | psg <> | 2005-09-16 01:56:23 +0000 |
|---|---|---|
| committer | psg <> | 2005-09-16 01:56:23 +0000 |
| commit | 6b4bf8bc9a8da1a1715ad48bd9b45ccd99f5800d (patch) | |
| tree | 7e257387c172ed3a57dbe02907d8c4553aef5496 /debian-changelog-mode.el | |
| parent | 25255df3f1021ae977b7327933896d97b3908ef5 (diff) | |
dpkg-dev-el:
debian-changelog-mode.el: Apply patch from Rafael Laboissiere adding
debian-changelog-add-version-hook defaulting to
debian-changelog-add-new-upstream-release (Closes: #296725)
Diffstat (limited to 'debian-changelog-mode.el')
| -rw-r--r-- | debian-changelog-mode.el | 21 |
1 files changed, 18 insertions, 3 deletions
diff --git a/debian-changelog-mode.el b/debian-changelog-mode.el index 548a072..cc1b41d 100644 --- a/debian-changelog-mode.el +++ b/debian-changelog-mode.el @@ -295,6 +295,9 @@ ;; V1.79 07June2005 Jari Aalto <jari.aalto@cante.net> ;; - fix byte-compilation warning about ;; `(fboundp (quote imenu))' called for effect (Closes: #309788) +;; V1.80 15Sep2005 Rafael Laboissiere <rafael@debian.org> +;; - Add debian-changelog-add-version-hook defaulting to +;; debian-changelog-add-new-upstream-release (Closes: #296725) ;;; Acknowledgements: (These people have contributed) ;; Roland Rosenfeld <roland@debian.org> @@ -361,6 +364,13 @@ If you do not wish this behaviour, reset it in your .emacs file like so: :type 'hook :options '(turn-on-auto-fill flyspell-mode)) +(defcustom debian-changelog-add-version-hook nil + (list 'debian-changelog-add-new-upstream-release) + "Hooks run just before inserting the signature separator \"--\" in a +new version in debian/changelog." + :group 'debian-changelog + :type 'hook) + (defvar debian-changelog-local-variables-maybe-remove-done nil "Internal flag so we prompt only once.") @@ -831,6 +841,13 @@ for the debian/changelog file to add the entry to." ;; (defvar debian-changelog-new-upstream-release-p nil) + +(defun debian-changelog-add-new-upstream-release () + "Normal hook for adding \"new upstream release\" entry to changelog." + (when debian-changelog-new-upstream-release-p + (insert "New upstream release") + (setq debian-changelog-new-upstream-release-p nil))) + (defun debian-changelog-add-version () "Add a new version section to a debian-style changelog file. If file is empty, create initial entry." @@ -847,9 +864,7 @@ If file is empty, create initial entry." (if (debian-changelog-experimental-p) (insert pkg-name " (" version ") experimental; urgency=low\n\n * ") (insert pkg-name " (" version ") unstable; urgency=low\n\n * ")) - (when debian-changelog-new-upstream-release-p - (insert "New upstream release") - (setq debian-changelog-new-upstream-release-p nil)) + (run-hooks 'debian-changelog-add-version-hook) (save-excursion (insert "\n\n --\n\n")))) (defun debian-changelog-experimental-p () |