summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/checkdoc.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/emacs-lisp/checkdoc.el')
-rw-r--r--lisp/emacs-lisp/checkdoc.el5
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