*** checkdoc.el	23 Jul 2009 07:41:51 +1000	1.72
--- checkdoc.el	25 Jul 2009 08:53:18 +1000	
***************
*** 173,178 ****
--- 173,181 ----
  (defvar checkdoc-version "0.6.1"
    "Release version of checkdoc you are currently running.")
  
+ (require 'help-mode) ;; for help-xref-info-regexp
+ (require 'thingatpt) ;; for handy thing-at-point-looking-at
+ 
  (defvar compilation-error-regexp-alist)
  (defvar compilation-mode-font-lock-keywords)
  
***************
*** 2003,2009 ****
  			 ;; 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)))
  		    (if (checkdoc-autofix-ask-replace
  			 b e (format "Text %s should be capitalized.  Fix? "
  				     text)
--- 2006,2015 ----
  			 ;; 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))
! 			 ;; "Info node `(emacs)Commands'" etc is ok
! 			 (not (thing-at-point-looking-at
! 			       help-xref-info-regexp)))
  		    (if (checkdoc-autofix-ask-replace
  			 b e (format "Text %s should be capitalized.  Fix? "
  				     text)