diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-09-24 23:00:57 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-09-24 23:00:57 +0200 |
| commit | f17fb37c517573652de538e2843043db7603f9e9 (patch) | |
| tree | 8b939e48b3866c0766d3effd36a69e41c27dee95 /lisp/emacs-lisp | |
| parent | 2ee5c80ff5454320a0bbe8c2d5b32eb2f0b46bdb (diff) | |
| download | emacs-f17fb37c517573652de538e2843043db7603f9e9.tar.gz emacs-f17fb37c517573652de538e2843043db7603f9e9.tar.bz2 emacs-f17fb37c517573652de538e2843043db7603f9e9.zip | |
Fix recently introduced bug in checkdoc
* lisp/emacs-lisp/checkdoc.el (checkdoc-in-abbreviation-p): Fix
recently introduced bug where some abbreviations weren't recognized.
* test/lisp/emacs-lisp/checkdoc-tests.el
(checkdoc-tests-in-abbrevation-p/basic-case): Extend test.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/checkdoc.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index df93d392417..0862e66ac5d 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el @@ -2105,14 +2105,15 @@ Examples of recognized abbreviations: \"e.g.\", \"i.e.\", \"cf.\"." (save-excursion (goto-char begin) (condition-case nil - (let ((single-letter t)) + (let (single-letter) (forward-word -1) ;; Skip over all dots backwards, as `forward-word' will only ;; go one dot at a time in a string like "e.g.". (while (save-excursion (forward-char -1) (looking-at (rx "."))) - (setq single-letter nil) (forward-word -1)) + (when (= (point) (1- begin)) + (setq single-letter t)) ;; Piece of an abbreviation. (looking-at (if single-letter |