/[emacs]/emacs/lisp/emacs-lisp/checkdoc.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/checkdoc.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.33 by rms, Mon Dec 23 17:59:31 2002 UTC revision 1.34 by lektu, Tue Feb 4 12:53:34 2003 UTC
# Line 426  be re-created.") Line 426  be re-created.")
426    ;; end of a word in a conglomerate.    ;; end of a word in a conglomerate.
427    (modify-syntax-entry ?- "w" checkdoc-syntax-table)    (modify-syntax-entry ?- "w" checkdoc-syntax-table)
428    )    )
429            
430    
431  ;;; Compatibility  ;;; Compatibility
432  ;;  ;;
# Line 940  Optional argument TAKE-NOTES causes all Line 940  Optional argument TAKE-NOTES causes all
940          (checkdoc-show-diagnostics)))          (checkdoc-show-diagnostics)))
941      (goto-char p))      (goto-char p))
942    (if (interactive-p) (message "Checking interactive message text...done.")))    (if (interactive-p) (message "Checking interactive message text...done.")))
943        
944  ;;;###autoload  ;;;###autoload
945  (defun checkdoc-eval-defun ()  (defun checkdoc-eval-defun ()
946    "Evaluate the current form with `eval-defun' and check its documentation.    "Evaluate the current form with `eval-defun' and check its documentation.
# Line 2340  The default boundary is the entire buffe Line 2340  The default boundary is the entire buffe
2340      (while (setq type (checkdoc-message-text-next-string end))      (while (setq type (checkdoc-message-text-next-string end))
2341        (setq e (checkdoc-message-text-engine type)))        (setq e (checkdoc-message-text-engine type)))
2342      e))      e))
2343      
2344  (defun checkdoc-message-text-next-string (end)  (defun checkdoc-message-text-next-string (end)
2345    "Move cursor to the next checkable message string after point.    "Move cursor to the next checkable message string after point.
2346  Return the message classification.  Return the message classification.

Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26