procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(debug-convert-byte-code): Convert the doc info to a string.

Browse source
This commit is contained in:
Richard M. Stallman 1995-01-27 22:38:19 +00:00
parent b0824def8b
commit c8c76dd33f
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/debug.el
View file

@ -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)