mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

* 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2011-09-28 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/debug.el (debug-convert-byte-code): Don't assume the
object has more than 4 slots (bug#9613).
2011-09-28 Juanma Barranquero <lekktu@gmail.com>
* subr.el (with-output-to-temp-buffer):

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.