[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/checkdoc.el

[Richard M. Stallman]

Index: emacs/lisp/emacs-lisp/checkdoc.el
diff -c emacs/lisp/emacs-lisp/checkdoc.el:1.28 
emacs/lisp/emacs-lisp/checkdoc.el:1.29
*** emacs/lisp/emacs-lisp/checkdoc.el:1.28      Tue Jun 18 10:35:49 2002
--- emacs/lisp/emacs-lisp/checkdoc.el   Sun Jul 14 11:26:01 2002
***************
*** 301,307 ****
    :type 'boolean)
  
  (defvar checkdoc-generate-compile-warnings-flag nil
!   "Non-nil means generage warnings in a buffer for browsing.
  Do not set this by hand, use a function like `checkdoc-current-buffer'
  with a universal argument.")
  
--- 301,307 ----
    :type 'boolean)
  
  (defvar checkdoc-generate-compile-warnings-flag nil
!   "Non-nil means generate warnings in a buffer for browsing.
  Do not set this by hand, use a function like `checkdoc-current-buffer'
  with a universal argument.")
  
***************
*** 461,468 ****
  ;;
  ;;;###autoload
  (defun checkdoc ()
!   "Interactivly check the entire buffer for style errors.
! The current status of the ckeck will be displayed in a buffer which
  the users will view as each check is completed."
    (interactive)
    (let ((status (list "Checking..." "-" "-" "-"))
--- 461,468 ----
  ;;
  ;;;###autoload
  (defun checkdoc ()
!   "Interactively check the entire buffer for style errors.
! The current status of the check will be displayed in a buffer which
  the users will view as each check is completed."
    (interactive)
    (let ((status (list "Checking..." "-" "-" "-"))
***************
*** 510,516 ****
  (defun checkdoc-display-status-buffer (check)
    "Display and update the status buffer for the current checkdoc mode.
  CHECK is a vector stating the current status of each test as an
! element is the status of that level of teset."
    (let (temp-buffer-setup-hook)
      (with-output-to-temp-buffer " *Checkdoc Status*"
        (princ-list
--- 510,516 ----
  (defun checkdoc-display-status-buffer (check)
    "Display and update the status buffer for the current checkdoc mode.
  CHECK is a vector stating the current status of each test as an
! element is the status of that level of test."
    (let (temp-buffer-setup-hook)
      (with-output-to-temp-buffer " *Checkdoc Status*"
        (princ-list
***************
*** 556,564 ****
                               'checkdoc-next-message-error)))
  
  (defun checkdoc-interactive-loop (start-here showstatus findfunc)
!   "Interactivly loop over all errors that can be found by a given method.
  Searching starts at START-HERE.  SHOWSTATUS expresses the verbosity
! of the search, and wether ending the search will auto-exit this function.
  FINDFUNC is a symbol representing a function that will position the
  cursor, and return error message text to present to the user.  It is
  assumed that the cursor will stop just before a major sexp, which will
--- 556,564 ----
                               'checkdoc-next-message-error)))
  
  (defun checkdoc-interactive-loop (start-here showstatus findfunc)
!   "Interactively loop over all errors that can be found by a given method.
  Searching starts at START-HERE.  SHOWSTATUS expresses the verbosity
! of the search, and whether ending the search will auto-exit this function.
  FINDFUNC is a symbol representing a function that will position the
  cursor, and return error message text to present to the user.  It is
  assumed that the cursor will stop just before a major sexp, which will