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

[Juanma Barranquero]

Index: emacs/lisp/emacs-lisp/checkdoc.el
diff -c emacs/lisp/emacs-lisp/checkdoc.el:1.33 
emacs/lisp/emacs-lisp/checkdoc.el:1.34
*** emacs/lisp/emacs-lisp/checkdoc.el:1.33      Mon Dec 23 12:59:31 2002
--- emacs/lisp/emacs-lisp/checkdoc.el   Tue Feb  4 07:53:34 2003
***************
*** 426,432 ****
    ;; end of a word in a conglomerate.
    (modify-syntax-entry ?- "w" checkdoc-syntax-table)
    )
!       
  
  ;;; Compatibility
  ;;
--- 426,432 ----
    ;; end of a word in a conglomerate.
    (modify-syntax-entry ?- "w" checkdoc-syntax-table)
    )
! 
  
  ;;; Compatibility
  ;;
***************
*** 940,946 ****
        (checkdoc-show-diagnostics)))
      (goto-char p))
    (if (interactive-p) (message "Checking interactive message text...done.")))
!     
  ;;;###autoload
  (defun checkdoc-eval-defun ()
    "Evaluate the current form with `eval-defun' and check its documentation.
--- 940,946 ----
        (checkdoc-show-diagnostics)))
      (goto-char p))
    (if (interactive-p) (message "Checking interactive message text...done.")))
! 
  ;;;###autoload
  (defun checkdoc-eval-defun ()
    "Evaluate the current form with `eval-defun' and check its documentation.
***************
*** 2340,2346 ****
      (while (setq type (checkdoc-message-text-next-string end))
        (setq e (checkdoc-message-text-engine type)))
      e))
!   
  (defun checkdoc-message-text-next-string (end)
    "Move cursor to the next checkable message string after point.
  Return the message classification.
--- 2340,2346 ----
      (while (setq type (checkdoc-message-text-next-string end))
        (setq e (checkdoc-message-text-engine type)))
      e))
! 
  (defun checkdoc-message-text-next-string (end)
    "Move cursor to the next checkable message string after point.
  Return the message classification.