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)

diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el
index 0862e66ac5d5cee97b6dcbd6604a5762409ec9f0..74c27343bc4cad3b1f5f462f41cec39995d036f6 100644 (file)
--- 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