Lines Matching +defs:def +defs:prefix
45 ;; If you wish to change the default edebug global command prefix, change:
46 ;; (setq edebug-global-prefix "\C-xX")
238 (defmacro def-edebug-form-spec (symbol spec-form)
240 (def-edebug-spec symbol (eval spec-form)))
241 (make-obsolete 'def-edebug-form-spec 'def-edebug-spec "22.1")
274 (defun edebug-gensym (&optional prefix)
279 (if (null prefix)
280 (setq prefix "G"))
284 (setq newname (concat prefix (int-to-string edebug-gensym-index)))
342 ;;(def-edebug-spec edebug-save-restriction t)
344 ;; Not used. If it is used, def-edebug-spec must be defined before use.
498 With a prefix argument, instrument the code for Edebug.
501 the prefix argument. Code is then instrumented when this function is
502 invoked without a prefix argument
1088 (defvar edebug-def-name nil) ; name of definition, used by interactive-form
1089 (defvar edebug-old-def-name nil) ; previous name of containing definition.
1107 edebug-def-name;; make sure it is locally nil
1129 def-kind
1131 def-name
1142 (setq def-kind (edebug-original-read (current-buffer))
1143 spec (and (symbolp def-kind) (get-edebug-spec def-kind))
1147 def-name (if (and defining-form-p
1165 (list (cons (symbol-name def-kind) (cdr spec))))))
1170 (put def-name 'edebug (point-marker))
1173 (lambda (def)
1174 (put def-name 'edebug nil)))
1175 (get def-name 'edebug-dependents))
1194 (defvar edebug-def-args) ; args of defining form.
1195 (defvar edebug-def-interactive) ; is it an emacs interactive function?
1197 ;; Currently def-form sets this to nil; def-body sets it to t.
1202 (intern (format "edebug-%s-interactive-p" edebug-def-name)))
1205 (defun edebug-wrap-def-body (forms)
1207 (if edebug-def-interactive
1218 ;; Uses the dynamically bound vars edebug-def-name and edebug-def-args.
1220 (setq edebug-def-name
1221 (or edebug-def-name edebug-old-def-name (edebug-gensym "edebug-anon")))
1223 (quote ,edebug-def-name)
1226 ;; Doesn't work with more than one def-body!!
1228 ,@(nreverse edebug-def-args))
1234 (defvar edebug-form-begin-marker) ; the mark for def being instrumented
1294 ;; (("def-symbol" defining-form-spec-sans-&define))
1321 ;; (edebug-containing-def-name edebug-def-name)
1323 (edebug-old-def-name (edebug-form-data-name form-data-entry))
1324 edebug-def-name
1325 edebug-def-args
1326 edebug-def-interactive
1338 (setq edebug-def-name
1339 (or edebug-def-name edebug-old-def-name (edebug-gensym "edebug-anon")))
1341 ;; Add this def as a dependent of containing def. Buggy.
1342 '(if (and edebug-containing-def-name
1343 (not (get edebug-containing-def-name 'edebug-dependents)))
1344 (put edebug-containing-def-name 'edebug-dependents
1345 (cons edebug-def-name
1346 (get edebug-containing-def-name
1354 edebug-def-name
1360 form-data-entry edebug-def-name ;; in case name is changed
1363 ;; (message "defining: %s" edebug-def-name) (sit-for 2)
1365 (message "Edebug: %s" edebug-def-name)
1366 ;;(debug edebug-def-name)
1371 ;; Side effects on the property list of edebug-def-name.
1372 (edebug-clear-frequency-count edebug-def-name)
1373 (edebug-clear-coverage edebug-def-name)
1384 (put edebug-def-name 'edebug
1502 (setq edebug-def-interactive 'check-it)
1516 (edebug-match cursor '(("," def-form) body))
1636 (def-body . edebug-match-def-body)
1637 (def-form . edebug-match-def-form)
1668 (edebug-match cursor '(("," def-form)))
1762 (def-edebug-spec &key edebug-match-&key)
1873 ;; of the current list. e.g. ("lambda" &define args def-body)
1910 ;; Set the edebug-def-name bound in edebug-defining-form.
1915 (setq edebug-def-name
1916 (if edebug-def-name
1918 (intern (format "%s@%s" edebug-def-name name))
1924 ;; Set the edebug-def-name to the spec.
1925 (setq edebug-def-name
1926 (if edebug-def-name
1928 (intern (format "%s@%s" edebug-def-name spec))
1933 ;; set the def-args bound in edebug-defining-form
1939 (setq edebug-def-args (cons edebug-arg edebug-def-args))
1942 (defun edebug-match-def-form (cursor)
1945 ;; This is a hack for now, since a def-form might execute inside as well.
1950 (defun edebug-match-def-body (cursor)
1955 (list (edebug-wrap-def-body (edebug-forms cursor)))))
1962 ;;;;* Spec for def-edebug-spec
1970 (def-edebug-spec def-edebug-spec
1975 (def-edebug-spec edebug-spec-list
1979 (def-edebug-spec edebug-spec
1996 (def-edebug-spec quote sexp)
1999 (def-edebug-spec defconst defvar)
2000 (def-edebug-spec defvar (symbolp &optional form stringp))
2002 (def-edebug-spec defun
2006 def-body))
2007 (def-edebug-spec defmacro
2008 (&define name lambda-list [&optional ("declare" &rest sexp)] def-body))
2010 (def-edebug-spec arglist lambda-list) ;; deprecated - use lambda-list.
2012 (def-edebug-spec lambda-list
2018 (def-edebug-spec interactive
2019 (&optional &or stringp def-form))
2023 (def-edebug-spec function-form
2030 (def-edebug-spec function (&or symbolp lambda-expr))
2033 (def-edebug-spec lambda (&define lambda-list
2036 def-body))
2039 (def-edebug-spec macro (&define "lambda" lambda-list def-body))
2041 ;; (def-edebug-spec anonymous-form ((&or ["lambda" lambda] ["macro" macro])))
2044 (def-edebug-spec mapcar (function-form form))
2045 (def-edebug-spec mapconcat (function-form form form))
2046 (def-edebug-spec mapatoms (function-form &optional form))
2047 (def-edebug-spec apply (function-form &rest form))
2048 (def-edebug-spec funcall (function-form &rest form))
2050 (def-edebug-spec let
2054 (def-edebug-spec let* let)
2056 (def-edebug-spec setq (&rest symbolp form))
2057 (def-edebug-spec setq-default setq)
2059 (def-edebug-spec cond (&rest (&rest form)))
2061 (def-edebug-spec condition-case
2067 (def-edebug-spec \` (backquote-form))
2071 (def-edebug-spec backquote-form
2093 ;; arguments must be instrumented, if at all, with def-form not def-body.
2096 ;; in arguments of macros should be def-forms, whether or not the macros
2102 (def-edebug-spec edebug-\` (def-form))
2105 (def-edebug-spec , (&or ("quote" edebug-\`) def-form))
2106 (def-edebug-spec ,@ (&define ;; so (,@ form) is never wrapped.
2107 &or ("quote" edebug-\`) def-form))
2110 (def-edebug-spec defsubst defun)
2111 (def-edebug-spec dont-compile t)
2112 (def-edebug-spec eval-when-compile t)
2113 (def-edebug-spec eval-and-compile t)
2115 (def-edebug-spec save-selected-window t)
2116 (def-edebug-spec save-current-buffer t)
2117 (def-edebug-spec delay-mode-hooks t)
2118 (def-edebug-spec with-temp-file t)
2119 (def-edebug-spec with-temp-message t)
2120 (def-edebug-spec with-syntax-table t)
2121 (def-edebug-spec push (form sexp))
2122 (def-edebug-spec pop (sexp))
2124 (def-edebug-spec 1value (form))
2125 (def-edebug-spec noreturn (form))
2136 (def-edebug-spec ad-dolist ((symbolp form &optional form) body))
2137 (def-edebug-spec defadvice
2146 def-body))
2148 (def-edebug-spec easy-menu-define (symbolp body))
2150 (def-edebug-spec with-custom-print body)
2152 (def-edebug-spec sregexq (&rest sexp))
2153 (def-edebug-spec rx (&rest sexp))
2195 (defvar edebug-def-mark) ; the mark for the definition
2314 (edebug-def-mark (car edebug-data)) ; mark at def start
2317 (edebug-buffer (marker-buffer edebug-def-mark))
2366 (def-edebug-spec edebug-tracing (form body))
2547 (unless (marker-position edebug-def-mark)
2558 (edebug-point (+ edebug-def-mark
2816 (defvar edebug-outside-current-prefix-arg)
2879 (edebug-outside-current-prefix-arg current-prefix-arg)
2899 (current-prefix-arg nil)
2964 current-prefix-arg edebug-outside-current-prefix-arg
3081 With prefix, toggle for just the selected window.
3116 If prefix arg is supplied, sit for that many seconds before returning.
3155 (let* ((edebug-def-name (edebug-form-data-symbol))
3157 (let ((data (get edebug-def-name 'edebug)))
3159 (error "%s is not instrumented for Edebug" edebug-def-name))
3162 (edebug-def-mark (car edebug-data))
3171 edebug-def-mark))
3181 (cons edebug-def-name i)
3183 edebug-def-name)
3192 (let* ((edebug-def-name (car edebug-stop-point))
3194 (edebug-data (get edebug-def-name 'edebug))
3197 (edebug-def-mark (car edebug-data))
3212 (goto-char (+ edebug-def-mark
3233 (let* ((edebug-def-name (car edebug-stop-point))
3235 (edebug-data (get edebug-def-name 'edebug))
3238 (edebug-def-mark (car edebug-data))
3255 edebug-def-name condition)
3256 (message "Breakpoint set in %s" edebug-def-name)))
3258 (message "Breakpoint unset in %s" edebug-def-name)
3262 (goto-char (+ edebug-def-mark (aref offset-vector index)))
3267 With prefix argument, make it a temporary breakpoint."
3320 With prefix ARG, set temporary break at current point and go."
3470 With prefix argument, make this temporary so it is automatically
3564 (def-edebug-spec edebug-outside-excursion t)
3590 (current-prefix-arg edebug-outside-current-prefix-arg)
3633 edebug-outside-current-prefix-arg current-prefix-arg
3878 (defvar global-edebug-prefix "\^XX"
3912 (global-unset-key global-edebug-prefix)
3913 (global-set-key global-edebug-prefix global-edebug-map)
3933 Global commands prefixed by `global-edebug-prefix':
4095 Global commands prefixed by `global-edebug-prefix':
4240 (def-mark (car data)) ; mark at def start
4253 (goto-char (+ def-mark (aref edebug-points i)))
4255 (setq start-of-line (- (point) def-mark)
4272 (goto-char (+ (aref edebug-points i) def-mark))
4383 With prefix argument, make it a temporary breakpoint."
4387 current-prefix-arg
4391 (let* ((edebug-def-name (car edebug-stop-point))
4393 (edebug-data (get edebug-def-name 'edebug))