Commit e29824bd authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(debug-on-entry-1): If function body is empty, add nil as body form.

parent 91f1fd02
......@@ -704,6 +704,10 @@ If argument is nil or an empty string, cancel for all functions."
;; Skip the interactive form.
(if (eq 'interactive (car-safe (car tail))) (setq tail (cdr tail)))
(unless (eq flag (equal (car tail) '(debug 'debug)))
;; If the function has no body, add nil as a body element.
(when (null tail)
(setq tail (list nil))
(nconc defn tail))
;; Add/remove debug statement as needed.
(if (not flag)
(progn (setcar tail (cadr tail))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment