# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 791246299 0
# Node ID 0bd8034a4f54899778805c3a4aa3c1223a633dde
# Parent  7716de3fb4b6ac65c287ff5ad8f15af7e6407811
(debug-convert-byte-code): Convert the doc info to a string.

diff -r 7716de3fb4b6 -r 0bd8034a4f54 lisp/emacs-lisp/debug.el
--- 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)