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 |
;; |
;; |
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. |
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. |