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

* lisp/emacs-lisp/debug.el (debug-convert-byte-code): Don't assume the

Browse source 
object has more than 4 slots.

Fixes: debbugs:9613
This commit is contained in:
Stefan Monnier 2011-09-27 21:20:41 -04:00
parent a239d4e9c0
commit a8406c20c4
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -869,8 +869,10 @@ To specify a nil argument interactively, exit with an empty minibuffer."
,defn
,@(remq '&rest (remq '&optional args))))))
(if (> (length defn) 5)
;; The mere presence of field 5 is sufficient to make
;; it interactive.
(push `(interactive ,(aref defn 5)) body))
(if (aref defn 4)
(if (and (> (length defn) 4) (aref defn 4))
;; Use `documentation' here, to get the actual string,
;; in case the compiled function has a reference
;; to the .elc file.