diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-09-18 10:39:35 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-09-18 10:44:32 +0200 |
| commit | 6084c7e0f401b5a68836ebc305c14b9a0feb3c43 (patch) | |
| tree | a04ba62c856db9f4bded1865cd6d81830ae03306 /lisp/emacs-lisp/checkdoc.el | |
| parent | 2557c009bb1b7b9bc001aee5e6cd1c0054de83d6 (diff) | |
| download | emacs-6084c7e0f401b5a68836ebc305c14b9a0feb3c43.tar.gz emacs-6084c7e0f401b5a68836ebc305c14b9a0feb3c43.tar.bz2 emacs-6084c7e0f401b5a68836ebc305c14b9a0feb3c43.zip | |
checkdoc: Only look for commonly used modifier keys
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine):
Search for the modifier key "s-", but not the modifier key "A-".
The latter is very uncommon and leads to false positives.
Diffstat (limited to 'lisp/emacs-lisp/checkdoc.el')
| -rw-r--r-- | lisp/emacs-lisp/checkdoc.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index f8df223ce96..2c30815d855 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el @@ -1545,7 +1545,9 @@ may require more formatting") ;; Instead, use the `\\[...]' construct to stand for them. (save-excursion (let ((f nil) (m nil) (start (point)) - (re "[^`‘A-Za-z0-9_]\\([CMA]-[a-zA-Z]\\|\\(\\([CMA]-\\)?\ + ;; Ignore the "A-" modifier: it is uncommon in practice, + ;; and leads to false positives in regexp ranges. + (re "[^`‘A-Za-z0-9_]\\([CMs]-[a-zA-Z]\\|\\(\\([CMs]-\\)?\ mouse-[0-3]\\)\\)\\>")) ;; Find the first key sequence not in a sample (while (and (not f) (setq m (re-search-forward re e t))) |