[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/debug.el

[Richard M . Stallman]

Index: emacs/lisp/emacs-lisp/debug.el
diff -c emacs/lisp/emacs-lisp/debug.el:1.66 emacs/lisp/emacs-lisp/debug.el:1.67
*** emacs/lisp/emacs-lisp/debug.el:1.66 Sun Feb 27 02:26:05 2005
--- emacs/lisp/emacs-lisp/debug.el      Sun Feb 27 09:57:51 2005
***************
*** 704,709 ****
--- 704,713 ----
        ;; 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))