From: Stefan Kangas <stefan@marxist.se>
Date: Fri, 24 Sep 2021 21:42:08 +0000 (+0200)
Subject: checkdoc: Don't ask to disambiguate mode names
X-Git-Tag: emacs-28.0.90~677
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=79a9b50621ec22640358bd6b94b65d14d747c644;p=emacs.git

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 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