Minor checkdoc simplifications.

* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine):
Use end-of-line N.
(checkdoc-this-string-valid-engine, checkdoc-file-comments-engine):
Use line-end-position.

2 files changed, 14 insertions, 17 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fdecddeb38c..a1f951a6edd 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2010-11-07  Glenn Morris  <rgm@gnu.org>
 
+        * emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine):
+        Use end-of-line N.
+        (checkdoc-this-string-valid-engine, checkdoc-file-comments-engine):
+        Use line-end-position.
+
         * emacs-lisp/chart.el (chart-zap-chars):
         * play/decipher.el (decipher-set-map):
         * progmodes/ada-mode.el (ada-get-current-indent)
diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el
index ac8e8943a24..a7fe7d02ac0 100644
--- a/lisp/emacs-lisp/checkdoc.el
+++ b/lisp/emacs-lisp/checkdoc.el
@@ -1486,12 +1486,10 @@ regexp short cuts work.  FP is the function defun information."
                     "First line not a complete sentence.  Add RET here? "
                     "\n" t)
                    (let (l1 l2)
-                     (forward-line 1)
-                     (end-of-line)
+                     (end-of-line 2)
                      (setq l1 (current-column)
                            l2 (save-excursion
-                                (forward-line 1)
-                                (end-of-line)
+                                (end-of-line 2)
                                 (current-column)))
                      (if (> (+ l1 l2 1) 80)
                          (setq msg "Incomplete auto-fix; doc string \
@@ -1508,10 +1506,7 @@ may require more formatting")
                (forward-line 1)
                (beginning-of-line)
                (if (and (re-search-forward "[.!?:\"]\\([ \t\n]+\\|\"\\)"
-                                           (save-excursion
-                                             (end-of-line)
-                                             (point))
-                                           t)
+                                           (line-end-position) t)
                         (< (current-column) numc))
                    (if (checkdoc-autofix-ask-replace
                         p (1+ p)
@@ -1526,9 +1521,7 @@ may require more formatting")
            (if msg
                (checkdoc-create-error msg s (save-excursion
                                               (goto-char s)
-                                              (end-of-line)
-                                              (point)))
-             nil) ))))
+                                              (line-end-position))))))))
      ;; Continuation of above.  Make sure our sentence is capitalized.
      (save-excursion
        (skip-chars-forward "\"\\*")
@@ -1628,7 +1621,7 @@ function,command,variable,option or symbol." ms1))))))
          (if (and (< (point) e) (> (current-column) 80))
              (checkdoc-create-error
               "Some lines are over 80 columns wide"
-              s (save-excursion (goto-char s) (end-of-line) (point)) ))))
+              s (save-excursion (goto-char s) (line-end-position))))))
      ;; Here we deviate to tests based on a variable or function.
      ;; We must do this before checking for symbols in quotes because there
      ;; is a chance that just such a symbol might really be an argument.
@@ -1773,9 +1766,8 @@ function,command,variable,option or symbol." ms1))))))
                                  (end-of-line)
                                  ;; check string-continuation
                                  (if (checkdoc-char= (preceding-char) ?\\)
-                                     (progn (forward-line 1)
-                                            (end-of-line)))
-                                 (point)))
+                                     (line-end-position 2)
+                                   (point))))
                           (rs nil) replace original (case-fold-search t))
                       (while (and (not rs)
                                   (re-search-forward
@@ -2253,8 +2245,8 @@ Code:, and others referenced in the style guide."
                  (insert ";;; " fn fe " --- " (read-string "Summary: ") "\n"))
              (checkdoc-create-error
               "The first line should be of the form: \";;; package --- Summary\""
-              (point-min) (save-excursion (goto-char (point-min)) (end-of-line)
-                                          (point))))
+              (point-min) (save-excursion (goto-char (point-min))
+                                          (line-end-position))))
          nil))
       (setq
        err