[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: debug-on-entry with empty functions.
From: |
Richard Stallman |
Subject: |
Re: debug-on-entry with empty functions. |
Date: |
Thu, 24 Feb 2005 08:55:52 -0500 |
I think this is the right fix.
*** debug.el 27 Dec 2004 10:46:54 -0500 1.64
--- debug.el 24 Feb 2005 06:09:25 -0500
***************
*** 705,710 ****
--- 705,714 ----
;; 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))