From c8c76dd33f7102dd59060e980cf2043f38796354 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 27 Jan 1995 22:38:19 +0000 Subject: (debug-convert-byte-code): Convert the doc info to a string. --- lisp/emacs-lisp/debug.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'lisp/emacs-lisp/debug.el') 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) -- cgit v1.2.3