diff options
| author | Glenn Morris | 2017-12-20 21:15:43 -0500 |
|---|---|---|
| committer | Glenn Morris | 2017-12-20 21:15:43 -0500 |
| commit | b1cf262a79463f28164ea1c2ffee3c657ce02ea4 (patch) | |
| tree | 4a428c5e0c026c1bb30e5972e78b145335b4b747 /admin | |
| parent | a415a97461cb10d2c6710871f90f57bd1ca34ec2 (diff) | |
| parent | b3f4a3a5aee93fa2f7ad2597383befbf7b242209 (diff) | |
| download | emacs-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.el | 24 |
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. |
| 71 | If BUFFER does 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. |
| 72 | This function is intended to be added to ‘compilation-finish-functions’." | 72 | This 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. |
| 93 | This uses ‘last-chance-grep-command’ to do the grep and the | 93 | This uses `last-chance-grep-command' to do the grep and the |
| 94 | regexps in ‘last-chance-uninteresting-regexps’ to filter the hits. | 94 | regexps in `last-chance-uninteresting-regexps' to filter the hits. |
| 95 | Grepping is recursive starting under the dir that ‘vc-root-dir’ | 95 | Grepping is recursive starting under the dir that `vc-root-dir' |
| 96 | finds (or the default directory if ‘vc-root-dir’ finds nothing). | 96 | finds (or the default directory if `vc-root-dir' finds nothing). |
| 97 | Output goes to the *grep* buffer. | 97 | Output goes to the *grep* buffer. |
| 98 | 98 | ||
| 99 | Interactively, Emacs queries for a symbol, | 99 | Interactively, Emacs queries for a symbol, |