Mercurial > emacs
changeset 10571:0bd8034a4f54
(debug-convert-byte-code): Convert the doc info to a string.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 27 Jan 1995 22:38:19 +0000 |
| parents | 7716de3fb4b6 |
| children | c8717227f621 |
| files | lisp/emacs-lisp/debug.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/debug.el Fri Jan 27 22:37:16 1995 +0000 +++ b/lisp/emacs-lisp/debug.el Fri Jan 27 22:38:19 1995 +0000 @@ -413,7 +413,10 @@ (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)