diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-01-27 22:38:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-01-27 22:38:19 +0000 |
| commit | c8c76dd33f7102dd59060e980cf2043f38796354 (patch) | |
| tree | cb40dc6d4307918ec42eaa50dc209f6813f57940 /lisp/emacs-lisp/debug.el | |
| parent | b0824def8b5e50269110e97d1e4386c706e6c0b9 (diff) | |
| download | emacs-c8c76dd33f7102dd59060e980cf2043f38796354.tar.gz emacs-c8c76dd33f7102dd59060e980cf2043f38796354.tar.bz2 emacs-c8c76dd33f7102dd59060e980cf2043f38796354.zip | |
(debug-convert-byte-code): Convert the doc info to a string.
Diffstat (limited to 'lisp/emacs-lisp/debug.el')
| -rw-r--r-- | lisp/emacs-lisp/debug.el | 5 |
1 files changed, 4 insertions, 1 deletions
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) |