aboutsummaryrefslogtreecommitdiffstats
path: root/admin
diff options
context:
space:
mode:
authorGlenn Morris2017-12-20 21:15:43 -0500
committerGlenn Morris2017-12-20 21:15:43 -0500
commitb1cf262a79463f28164ea1c2ffee3c657ce02ea4 (patch)
tree4a428c5e0c026c1bb30e5972e78b145335b4b747 /admin
parenta415a97461cb10d2c6710871f90f57bd1ca34ec2 (diff)
parentb3f4a3a5aee93fa2f7ad2597383befbf7b242209 (diff)
downloademacs-b1cf262a79463f28164ea1c2ffee3c657ce02ea4.tar.gz
emacs-b1cf262a79463f28164ea1c2ffee3c657ce02ea4.zip
Merge from origin/emacs-26
b3f4a3a (origin/emacs-26) Special-case %DUMBFW for GnuTLS between 3.2... c2ae057 Work around GnuTLS version issues with %DUMBFW (tiny change) 2f9d9ef ; Remove the mention of "plain C code" in the docstring as well aca827b Merge branch 'widen-less' into emacs-26 87548f5 ; Rephrase NEWS entry a bit da0d773 (emacs-26) ; * lisp/erc/erc.el: Update URL. 3a60515 * lisp/erc/erc.el (erc-shorten-server-name): Silence compiler... 471b6c1 ; Replace non-ascii quote characters in doc strings etc 7af7f5e Fix some more aliases to user options 79fb4b5 Fix some flymake aliases b9fbc03 (origin/widen-less) Widen in indent-for-tab-command in the no... 446faf3 Replace the mention of c-indent-defun with js-indent-line 7e9eef0 Consolidate 'widen' calls # Conflicts: # etc/NEWS # lisp/progmodes/flymake-proc.el
Diffstat (limited to 'admin')
-rw-r--r--admin/last-chance.el24
1 files changed, 12 insertions, 12 deletions
diff --git a/admin/last-chance.el b/admin/last-chance.el
index 76b8bcf6db1..cd3f78bd595 100644
--- a/admin/last-chance.el
+++ b/admin/last-chance.el
@@ -25,13 +25,13 @@
25;;; Commentary: 25;;; Commentary:
26 26
27;; Late 2016. In a recent build, the date in a ChangeLog file 27;; Late 2016. In a recent build, the date in a ChangeLog file
28;; is not fontified. Turns out the face change-log-date-face 28;; is not fontified. Turns out the face `change-log-date-face'
29;; was declared obsolete since 22.1 and removed 2016-06-23. 29;; was declared obsolete since 22.1 and removed 2016-06-23.
30;; (compile "git show c430f7e23fc2c22f251ace4254e37dea1452dfc3") 30;; (compile "git show c430f7e23fc2c22f251ace4254e37dea1452dfc3")
31;; 31;;
32;; This library provides a command last-chance, which is a small 32;; This library provides a command `last-chance', which is a small
33;; combination of "git grep" and some regexp filtering. For example, 33;; combination of "git grep" and some regexp filtering. For example,
34;; if point is on the symbol change-log-date-face in the form: 34;; if point is on the symbol `change-log-date-face' in the form:
35;; 35;;
36;; (define-obsolete-face-alias 'change-log-date-face ...) 36;; (define-obsolete-face-alias 'change-log-date-face ...)
37;; 37;;
@@ -39,7 +39,7 @@
39;; 39;;
40;; M-x last-chance RET 40;; M-x last-chance RET
41;; 41;;
42;; will show you any references to change-log-date-face in the 42;; will show you any references to `change-log-date-face' in the
43;; *.el files in a new buffer (in Grep mode). Hopefully you see 43;; *.el files in a new buffer (in Grep mode). Hopefully you see
44;; only the obsolete declaration and can proceed w/ its removal. 44;; only the obsolete declaration and can proceed w/ its removal.
45;; If not, please DTRT and refrain from the removal until those 45;; If not, please DTRT and refrain from the removal until those
@@ -59,17 +59,17 @@ This should include -n, -H, -F.")
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 "NEWS[-.0-9]*:"
62 ;; Add more flush-lines args here. 62 ;; Add more `flush-lines' args here.
63 ) 63 )
64 "List of regexps that match uninteresting \"git grep\" hits.") 64 "List of regexps that match uninteresting \"git grep\" hits.")
65 65
66(defvar-local last-chance-symbol nil 66(defvar-local last-chance-symbol nil
67 "Symbol set by last-chance for last-chance-cleanup to DTRT.") 67 "Symbol set by `last-chance' for `last-chance-cleanup' to DTRT.")
68 68
69(defun last-chance-cleanup (buffer status) 69(defun last-chance-cleanup (buffer status)
70 "Filter lines in BUFFER; append STATUS and count of removed lines. 70 "Filter lines in BUFFER; append STATUS and count of removed lines.
71If BUFFER does 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.
72This function is intended to be added to compilation-finish-functions." 72This function is intended to be added to `compilation-finish-functions'."
73 (let ((name (buffer-local-value 'last-chance-symbol buffer)) 73 (let ((name (buffer-local-value 'last-chance-symbol buffer))
74 bef aft) 74 bef aft)
75 (when name 75 (when name
@@ -90,10 +90,10 @@ This function is intended to be added to ‘compilation-finish-functions’."
90 90
91(defun last-chance (symbol) 91(defun last-chance (symbol)
92 "Grep the repo for SYMBOL, filtering the hits. 92 "Grep the repo for SYMBOL, filtering the hits.
93This uses last-chance-grep-command to do the grep and the 93This uses `last-chance-grep-command' to do the grep and the
94regexps in last-chance-uninteresting-regexps to filter the hits. 94regexps in `last-chance-uninteresting-regexps' to filter the hits.
95Grepping is recursive starting under the dir that vc-root-dir 95Grepping is recursive starting under the dir that `vc-root-dir'
96finds (or the default directory if vc-root-dir finds nothing). 96finds (or the default directory if `vc-root-dir' finds nothing).
97Output goes to the *grep* buffer. 97Output goes to the *grep* buffer.
98 98
99Interactively, Emacs queries for a symbol, 99Interactively, Emacs queries for a symbol,