Mercurial > emacs
changeset 105725:597007306f48
* emacs-lisp/checkdoc.el (checkdoc-proper-noun-region-engine):
Allow uncapitalized info node names (Bug#3921).
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Fri, 23 Oct 2009 17:26:06 +0000 |
| parents | 73190af7ce73 |
| children | b0c56106af54 |
| files | lisp/ChangeLog lisp/emacs-lisp/checkdoc.el |
| diffstat | 2 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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).
--- 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)