# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1256318766 0
# Node ID 597007306f48faa4e1f7b0766cd2946ec76dce3d
# Parent  73190af7ce73e8fb49ca654e4741607ff617fefb
* emacs-lisp/checkdoc.el (checkdoc-proper-noun-region-engine):
Allow uncapitalized info node names (Bug#3921).

diff -r 73190af7ce73 -r 597007306f48 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Oct 23 16:19:37 2009 +0000
+++ b/lisp/ChangeLog	Fri Oct 23 17:26:06 2009 +0000
@@ -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 -r 73190af7ce73 -r 597007306f48 lisp/emacs-lisp/checkdoc.el
--- a/lisp/emacs-lisp/checkdoc.el	Fri Oct 23 16:19:37 2009 +0000
+++ b/lisp/emacs-lisp/checkdoc.el	Fri Oct 23 17:26:06 2009 +0000
@@ -2016,7 +2016,12 @@
 			 ;; 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)