[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/checkdoc.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/10/23 17:26:09

Modified files:
        lisp           : ChangeLog 
        lisp/emacs-lisp: checkdoc.el 

Log message:
        * emacs-lisp/checkdoc.el (checkdoc-proper-noun-region-engine):
        Allow uncapitalized info node names (Bug#3921).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16487&r2=1.16488
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/checkdoc.el?cvsroot=emacs&r1=1.76&r2=1.77

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16487
retrieving revision 1.16488
diff -u -b -r1.16487 -r1.16488
--- ChangeLog   23 Oct 2009 16:17:17 -0000      1.16487
+++ ChangeLog   23 Oct 2009 17:26:06 -0000      1.16488
@@ -1,5 +1,8 @@
 2009-10-23  Chong Yidong  <address@hidden>
 
+       * 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).
 

Index: emacs-lisp/checkdoc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/checkdoc.el,v
retrieving revision 1.76
retrieving revision 1.77
diff -u -b -r1.76 -r1.77
--- emacs-lisp/checkdoc.el      21 Oct 2009 22:05:34 -0000      1.76
+++ emacs-lisp/checkdoc.el      23 Oct 2009 17:26:09 -0000      1.77
@@ -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)