Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
3ebb8416
Commit
3ebb8416
authored
Oct 30, 2001
by
Stefan Monnier
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(delay-mode-hooks): Add edebug-spec.
(edebug-instrument-function): Use `find-function-noselect'.
parent
1f79789d
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
8 deletions
+9
-8
lisp/emacs-lisp/edebug.el
lisp/emacs-lisp/edebug.el
+9
-8
No files found.
lisp/emacs-lisp/edebug.el
View file @
3ebb8416
...
...
@@ -2097,6 +2097,7 @@ expressions; a `progn' form will be returned enclosing these forms."
(
def-edebug-spec
with-output-to-string
t
)
(
def-edebug-spec
with-current-buffer
t
)
(
def-edebug-spec
combine-after-change-calls
t
)
(
def-edebug-spec
delay-mode-hooks
t
)
(
def-edebug-spec
with-temp-file
t
)
(
def-edebug-spec
with-temp-buffer
t
)
(
def-edebug-spec
with-temp-message
t
)
...
...
@@ -3348,23 +3349,23 @@ go to the end of the last sexp, or if that is the same point, then step."
(
defun
edebug-instrument-function
(
func
)
;; Func should be a function symbol.
;; Return the function symbol, or nil if not instrumented.
(
let
((
func-marker
))
(
setq
func-marker
(
get
func
'edebug
))
(
let
((
func-marker
(
get
func
'edebug
)))
(
cond
((
markerp
func-marker
)
;; It is uninstrumented, so instrument it.
(
save-excursion
(
set-buffer
(
marker-buffer
func-marker
))
(
with-current-buffer
(
marker-buffer
func-marker
)
(
goto-char
func-marker
)
(
edebug-eval-top-level-form
)
func
))
((
consp
func-marker
)
(
message
"%s is already instrumented."
func
)
func
)
(
t
;; We could try harder, e.g. do a tags search.
(
error
"Don't know where %s is defined"
func
)
nil
))))
(
t
(
let
((
loc
(
find-function-noselect
func
)))
(
with-current-buffer
(
car
loc
)
(
goto-char
(
cdr
loc
))
(
edebug-eval-top-level-form
)
func
))))))
(
defun
edebug-instrument-callee
()
"Instrument the definition of the function or macro about to be called.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment