Lines Matching +defs:eval +defs:defun
41 ;; or [menu-bar emacs-lisp eval-buffer]. Additional key-bindings
95 ;; checking done. The default is `defun', which spell checks each time
96 ;; `checkdoc-defun' or `checkdoc-eval-defun' is used. Setting to nil
164 ;; Hook into the byte compiler on a defun/defvar level to generate
166 ;; Better ways to override more typical `eval' functions. Advice
179 (eval-and-compile
254 defun - Spell-check when style checking a single defun
260 (const defun)
291 DEFUNINFO is the return value of `checkdoc-defun-info'. ENDPOINT is the
302 (defvar checkdoc-defun-regexp
305 "Regular expression used to identify a defun.
463 (defun checkdoc ()
510 (defun checkdoc-display-status-buffer (check)
528 (defun checkdoc-interactive (&optional start-here showstatus)
549 (defun checkdoc-message-interactive (&optional start-here showstatus)
568 (defun checkdoc-interactive-loop (start-here showstatus findfunc)
596 (beginning-of-defun)
655 (beginning-of-defun)
684 (beginning-of-defun))
693 (beginning-of-defun)
736 (defun checkdoc-interactive-ispell-loop (start-here)
745 (beginning-of-defun)
756 (defun checkdoc-message-interactive-ispell-loop (start-here)
765 (beginning-of-defun)
777 (defun checkdoc-next-error (enable-fix)
801 (defun checkdoc-next-message-error (enable-fix)
823 (defun checkdoc-recursive-edit (msg)
841 (defun checkdoc-eval-current-buffer ()
847 (eval-buffer nil)
851 (defun checkdoc-current-buffer (&optional take-notes)
879 (defun checkdoc-start (&optional take-notes)
896 (defun checkdoc-continue (&optional take-notes)
927 (defun checkdoc-next-docstring ()
930 (if (not (re-search-forward checkdoc-defun-regexp nil t))
939 (defun checkdoc-comments (&optional take-notes)
960 (defun checkdoc-rogue-spaces (&optional take-notes interact)
980 (defun checkdoc-message-text (&optional take-notes)
999 (defun checkdoc-eval-defun ()
1000 "Evaluate the current form with `eval-defun' and check its documentation.
1005 (call-interactively 'eval-defun)
1006 (checkdoc-defun))
1009 (defun checkdoc-defun (&optional no-error)
1017 (beginning-of-defun)
1018 (if (not (looking-at checkdoc-defun-regexp))
1030 '(defun t))))
1031 (beg (save-excursion (beginning-of-defun) (point)))
1032 (end (save-excursion (end-of-defun) (point)))
1051 (defun checkdoc-ispell (&optional take-notes)
1060 (defun checkdoc-ispell-current-buffer (&optional take-notes)
1069 (defun checkdoc-ispell-interactive (&optional take-notes)
1078 (defun checkdoc-ispell-message-interactive (&optional take-notes)
1087 (defun checkdoc-ispell-message-text (&optional take-notes)
1096 (defun checkdoc-ispell-start (&optional take-notes)
1105 (defun checkdoc-ispell-continue (&optional take-notes)
1114 (defun checkdoc-ispell-comments (&optional take-notes)
1123 (defun checkdoc-ispell-defun (&optional take-notes)
1124 "Check the style and spelling of the current defun with Ispell.
1125 Calls `checkdoc-defun' with spell-checking turned on.
1126 Prefix argument TAKE-NOTES is the same as for `checkdoc-defun'"
1129 (call-interactively 'checkdoc-defun nil current-prefix-arg)))
1137 (defun checkdoc-create-error (text start end &optional unfixable)
1150 (defun checkdoc-error-text (err)
1155 (defun checkdoc-error-start (err)
1160 (defun checkdoc-error-end (err)
1165 (defun checkdoc-error-unfixable (err)
1177 (define-key map "\C-\M-x" 'checkdoc-eval-defun)
1180 (define-key map [menu-bar emacs-lisp eval-buffer]
1181 'checkdoc-eval-current-buffer))
1183 (define-key pmap "x" 'checkdoc-defun)
1184 (define-key pmap "X" 'checkdoc-ispell-defun)
1193 (define-key pmap "e" 'checkdoc-eval-current-buffer)
1235 ["Check Defun" checkdoc-defun t]
1236 ["Check and Spell Defun" checkdoc-ispell-defun t]
1237 ["Check and Evaluate Defun" checkdoc-eval-defun t]
1238 ["Check and Evaluate Buffer" checkdoc-eval-current-buffer t]
1248 In Checkdoc minor mode, the usual bindings for `eval-defun' which is
1249 bound to \\<checkdoc-minor-mode-map>\\[checkdoc-eval-defun] and `checkdoc-eval-current-buffer' are overridden to include
1276 ;;(defun checkdoc-word-in-alist-vector (word vector)
1294 (defun checkdoc-this-string-valid ()
1307 (let ((fp (checkdoc-defun-info))
1383 (defun checkdoc-this-string-valid-engine (fp)
1386 regexp short cuts work. FP is the function defun information."
1451 (if (> (point) e) (goto-char e)) ;of the form (defun n () "doc" nil)
1662 (beginning-of-defun)
1867 (defun checkdoc-defun-info nil
1876 comment for a given defun. If the first element is not a string, then
1880 (beginning-of-defun)
1881 (let ((defun (looking-at "(def\\(un\\|macro\\|subst\\|advice\\)"))
1892 (if (not defun)
1900 (save-excursion (end-of-defun) (point))
1917 (save-excursion (end-of-defun)
1923 (save-excursion (end-of-defun)
1953 (defun checkdoc-in-sample-code-p (start limit)
1978 (defun checkdoc-in-example-string-p (start limit)
1991 (defun checkdoc-proper-noun-region-engine (begin end)
2039 (defun checkdoc-sentencespace-region-engine (begin end)
2084 (eval-when-compile (require 'ispell))
2086 (defun checkdoc-ispell-init ()
2106 (defun checkdoc-ispell-docstring-engine (end)
2155 (defun checkdoc-rogue-space-check-engine (&optional start end interact)
2205 (eval-when-compile
2211 (defun checkdoc-file-comments-engine ()
2369 (defun checkdoc-outside-major-sexp ()
2374 (or (progn (beginning-of-defun) (bobp))
2375 (progn (end-of-defun) (< (point) p)))))))
2379 (defun checkdoc-message-text-search (&optional beg end)
2391 (defun checkdoc-message-text-next-string (end)
2417 (defun checkdoc-message-text-engine (&optional type)
2523 (defun checkdoc-y-or-n-p (question)
2534 (defun checkdoc-autofix-ask-replace (start end question replacewith
2602 (defun checkdoc-buffer-label ()
2608 (defun checkdoc-start-section (check-type)
2620 (defun checkdoc-error (point msg)
2631 (defun checkdoc-show-diagnostics ()