diff options
| author | Thien-Thi Nguyen | 2016-12-30 07:13:17 +0100 |
|---|---|---|
| committer | Thien-Thi Nguyen | 2016-12-30 07:15:10 +0100 |
| commit | 9672f2c916b5909cc5836f67edc4d66842cce7cd (patch) | |
| tree | 960d724d0ec0178b3d5af8524616453478c9fbcc | |
| parent | b5b4c4938bcd710ab857505e04424fca39a13624 (diff) | |
| download | emacs-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.el | 5 |
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. |
| 70 | If BUFFER is not seem to be one created by ‘last-chance’, do nothing. | 71 | If BUFFER does not seem to be one created by ‘last-chance’, do nothing. |
| 71 | This function is intended to be added to ‘compilation-finish-functions’." | 72 | This 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) |