Commit a8406c20 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

object has more than 4 slots.

Fixes: debbugs:9613
parent a239d4e9
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):
......
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment