# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1079969089 0
# Node ID 79d56d8a420add537e8011396fdba28912a90897
# Parent  acd845de0416ac3a15b2bdbc8ef1bce40ede30eb
(checkdoc-error): Dont' assume point-min == 1.
(debug-ignored-errors): Add an entry.

diff -r acd845de0416 -r 79d56d8a420a lisp/emacs-lisp/checkdoc.el
--- a/lisp/emacs-lisp/checkdoc.el	Mon Mar 22 15:23:59 2004 +0000
+++ b/lisp/emacs-lisp/checkdoc.el	Mon Mar 22 15:24:49 2004 +0000
@@ -1,6 +1,6 @@
 ;;; checkdoc.el --- check documentation strings for style requirements
 
-;;;  Copyright (C) 1997, 1998, 2001  Free Software Foundation
+;;;  Copyright (C) 1997, 1998, 2001, 2004  Free Software Foundation
 
 ;; Author: Eric M. Ludlam <zappo@gnu.org>
 ;; Version: 0.6.2
@@ -2657,7 +2657,7 @@
   (setq checkdoc-pending-errors t)
   (checkdoc-output-to-error-buffer
    "\n" (checkdoc-buffer-label) ":"
-   (int-to-string (count-lines (point-min) (or point 1))) ": "
+   (int-to-string (count-lines (point-min) (or point (point-min)))) ": "
    msg))
 
 (defun checkdoc-output-to-error-buffer (&rest text)
@@ -2692,6 +2692,8 @@
 
 (add-to-list 'debug-ignored-errors
 	     "Argument `.*' should appear (as .*) in the doc string")
+(add-to-list 'debug-ignored-errors
+	     "Lisp symbol `.*' should appear in quotes")
 (add-to-list 'debug-ignored-errors "Disambiguate .* by preceding .*")
 
 (provide 'checkdoc)