# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1109498271 0
# Node ID 52c2e5309a41e4e4ee773aed751d68d9bec1629c
# Parent  f69c04fae9ffd0dbd7588e9bf04154575df6ec55
(debug-on-entry-1): If function body is empty, add nil as body form.

diff -r f69c04fae9ff -r 52c2e5309a41 lisp/emacs-lisp/debug.el
--- a/lisp/emacs-lisp/debug.el	Sun Feb 27 09:18:15 2005 +0000
+++ b/lisp/emacs-lisp/debug.el	Sun Feb 27 09:57:51 2005 +0000
@@ -704,6 +704,10 @@
 	;; 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))