diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-09-24 23:42:08 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-09-24 23:42:08 +0200 |
| commit | 79a9b50621ec22640358bd6b94b65d14d747c644 (patch) | |
| tree | 70b0e211dc97aeebb7115e7ccaa27b2540c99a56 /lisp/emacs-lisp/checkdoc.el | |
| parent | f17fb37c517573652de538e2843043db7603f9e9 (diff) | |
| download | emacs-79a9b50621ec22640358bd6b94b65d14d747c644.tar.gz emacs-79a9b50621ec22640358bd6b94b65d14d747c644.tar.bz2 emacs-79a9b50621ec22640358bd6b94b65d14d747c644.zip | |
checkdoc: Don't ask to disambiguate mode names
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine):
Don't ask to disambiguate mode names. (Bug#4110)
Diffstat (limited to 'lisp/emacs-lisp/checkdoc.el')
| -rw-r--r-- | lisp/emacs-lisp/checkdoc.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index 0862e66ac5d..74c27343bc4 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el @@ -1653,7 +1653,10 @@ mouse-[0-3]\\)\\)\\>")) me (match-end 1)) (if (and sym (boundp sym) (fboundp sym) checkdoc--disambiguate-symbol-flag - (save-excursion + ;; Mode names do not need disambiguating. (Bug#4110) + (not (string-match (rx "-mode" string-end) + (symbol-name sym))) + (save-excursion (goto-char mb) (forward-word-strictly -1) (not (looking-at |