From: Chong Yidong <cyd@stupidchicken.com>
Date: Fri, 23 Oct 2009 17:26:06 +0000 (+0000)
Subject: * emacs-lisp/checkdoc.el (checkdoc-proper-noun-region-engine):
X-Git-Tag: emacs-pretest-23.1.90~691
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=36bfa3af07802e1e2d9cbd3ce912e4a067d0accb;p=emacs.git

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