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

Allow uncapitalized info node names (Bug#3921).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b411cd4939fbce2670e9d6bbb2028911d22e4c0e..1971496c36da1c889599cb2730e030d83dcc9daf 100644 (file)
--- 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 0d63ed79d0a71cf70d7d23296731be3b42199b6c..67d310ed0ef9cea63b8c862037cf472ae25ba1b0 100644 (file)
--- 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)