From fd5f3b008a6f090a8389101193673c68a5bc21a2 Mon Sep 17 00:00:00 2001 From: psg <> Date: Sun, 6 Nov 2016 18:35:45 +0000 Subject: Bug fix #708317 --- debian-changelog-mode.el | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/debian-changelog-mode.el b/debian-changelog-mode.el index 69e7c70..79551c1 100644 --- a/debian-changelog-mode.el +++ b/debian-changelog-mode.el @@ -353,6 +353,8 @@ ;; V1.97 06Nov2016 Pierre Carrier (on 2013-07-04) ;; https://bugs.launchpad.net/ubuntu/+source/emacs-goodies-el/+bug/1197870 ;; Bug fix #803767 debian-changelog-mode: don't rely on external date +;; V1.98 06Nov2016 Kumar Appaiah +;; highlight backports (Closes: #708317) ;;; Acknowledgements: (These people have contributed) ;; Roland Rosenfeld @@ -1444,6 +1446,7 @@ interface to set it, or simply set the variable (3 font-lock-string-face nil t) (4 debian-changelog-warning-face nil t)) '(debian-changelog-fontify-stable . debian-changelog-warning-face) + '(debian-changelog-fontify-backports . debian-changelog-warning-face) '(debian-changelog-fontify-frozen . font-lock-type-face) '(debian-changelog-fontify-unstable . font-lock-string-face) '(debian-changelog-fontify-experimental . debian-changelog-warning-face) @@ -1585,6 +1588,12 @@ match 1 -> package name (list (match-beginning 1)(match-end 1))) t)) +(defun debian-changelog-fontify-backports (limit) + (when (re-search-forward "^\\sw.* (.+).* \\([a-z][a-z]*-backports\\)" limit t) + (store-match-data + (list (match-beginning 1)(match-end 1))) + t)) + ;; ;; browse-url interfaces, by Peter Galbraith, Feb 23 2001 ;; -- cgit v1.2.3