aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThien-Thi Nguyen2016-12-30 07:13:17 +0100
committerThien-Thi Nguyen2016-12-30 07:15:10 +0100
commit9672f2c916b5909cc5836f67edc4d66842cce7cd (patch)
tree960d724d0ec0178b3d5af8524616453478c9fbcc
parentb5b4c4938bcd710ab857505e04424fca39a13624 (diff)
downloademacs-9672f2c916b5909cc5836f67edc4d66842cce7cd.tar.gz
emacs-9672f2c916b5909cc5836f67edc4d66842cce7cd.zip
last-chance: Also ignore NEWS files + typo fixes
* admin/last-chance.el: Fix typo in copyright notice. (last-chance-uninteresting-regexps): Add entry to match NEWS files. (last-chance-cleanup): Fix typo in docstring.
-rw-r--r--admin/last-chance.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/admin/last-chance.el b/admin/last-chance.el
index 5151a7562dd..02df7dea81b 100644
--- a/admin/last-chance.el
+++ b/admin/last-chance.el
@@ -1,6 +1,6 @@
1;;; last-chance.el --- dangling deterrence -*- lexical-binding: t; -*- 1;;; last-chance.el --- dangling deterrence -*- lexical-binding: t; -*-
2 2
3;; Copyright (C) 2000-2016 Free Software Foundation, Inc. 3;; Copyright (C) 2016 Free Software Foundation, Inc.
4 4
5;; Author: Thien-Thi Nguyen <ttn@gnu.org> 5;; Author: Thien-Thi Nguyen <ttn@gnu.org>
6;; Maintainer: emacs-devel@gnu.org 6;; Maintainer: emacs-devel@gnu.org
@@ -58,6 +58,7 @@ This should include -n, -H, -F.")
58 58
59(defvar last-chance-uninteresting-regexps 59(defvar last-chance-uninteresting-regexps
60 '("ChangeLog[.0-9]*:" 60 '("ChangeLog[.0-9]*:"
61 "NEWS[-.0-9]*:"
61 ;; Add more ‘flush-lines’ args here. 62 ;; Add more ‘flush-lines’ args here.
62 ) 63 )
63 "List of regexps that match uninteresting \"git grep\" hits.") 64 "List of regexps that match uninteresting \"git grep\" hits.")
@@ -67,7 +68,7 @@ This should include -n, -H, -F.")
67 68
68(defun last-chance-cleanup (buffer status) 69(defun last-chance-cleanup (buffer status)
69 "Filter lines in BUFFER; append STATUS and count of removed lines. 70 "Filter lines in BUFFER; append STATUS and count of removed lines.
70If BUFFER is not seem to be one created by ‘last-chance’, do nothing. 71If BUFFER does not seem to be one created by ‘last-chance’, do nothing.
71This function is intended to be added to ‘compilation-finish-functions’." 72This function is intended to be added to ‘compilation-finish-functions’."
72 (let ((name (buffer-local-value 'last-chance-symbol buffer)) 73 (let ((name (buffer-local-value 'last-chance-symbol buffer))
73 bef aft) 74 bef aft)