From: Richard M. Stallman Date: Fri, 27 Jan 1995 22:38:19 +0000 (+0000) Subject: (debug-convert-byte-code): Convert the doc info to a string. X-Git-Tag: emacs-19.34~5287 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c8c76dd33f7102dd59060e980cf2043f38796354;p=emacs.git (debug-convert-byte-code): Convert the doc info to a string. --- diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index 94695b9c51b..6e830e75197 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el @@ -413,7 +413,10 @@ If argument is nil or an empty string, cancel for all functions." (if (nthcdr 5 contents) (setq body (cons (list 'interactive (nth 5 contents)) body))) (if (nth 4 contents) - (setq body (cons (nth 4 contents) body))) + ;; Use `documentation' here, to get the actual string, + ;; in case the compiled function has a reference + ;; to the .elc file. + (setq body (cons (documentation function) body))) (fset function (cons 'lambda (cons (car contents) body))))))) (defun debug-on-entry-1 (function defn flag)