* emacs-lisp/checkdoc.el (checkdoc-proper-noun-region-engine):

Allow uncapitalized info node names (Bug#3921).

2 files changed, 9 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b411cd4939f..1971496c36d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2009-10-23  Chong Yidong  <cyd@stupidchicken.com>
 
+        * emacs-lisp/checkdoc.el (checkdoc-proper-noun-region-engine):
+        Allow uncapitalized info node names (Bug#3921).
+
         * mail/emacsbug.el (report-emacs-bug): Tweak the sentence pointing
         to the DEBUG file (Bug#3781).
 
diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el
index 0d63ed79d0a..67d310ed0ef 100644
--- a/lisp/emacs-lisp/checkdoc.el
+++ b/lisp/emacs-lisp/checkdoc.el
@@ -2016,7 +2016,12 @@ If the offending word is in a piece of quoted text, then it is skipped."
                          ;; surrounded by /, as in a URL or filename: /emacs/
                          (not (and (= ?/ (char-after e))
                                    (= ?/ (char-before b))))
-                         (not (checkdoc-in-example-string-p begin end)))
+                         (not (checkdoc-in-example-string-p begin end))
+                         ;; info node
+                         (not (save-excursion
+                                (goto-char b)
+                                (looking-back "\\<[Ii]nfo[ \t\n]+\\(node\\|anchor\\)[ \t\n]+`("
+                                              (line-beginning-position)))))
                     (if (checkdoc-autofix-ask-replace
                          b e (format "Text %s should be capitalized.  Fix? "
                                      text)