[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#9613: 24.0.90; Cannot debug-on-entry message-send-mail
From: |
Michael Welsh Duggan |
Subject: |
bug#9613: 24.0.90; Cannot debug-on-entry message-send-mail |
Date: |
Tue, 27 Sep 2011 14:32:13 -0400 |
User-agent: |
Gnus/5.110018 (No Gnus v0.18) Emacs/24.0.90 (gnu/linux) |
"monnier@iro.umontreal.ca" <monnier@iro.umontreal.ca> writes:
>> From "emacs -Q":
>> M-x load-library RET message RET
>> M-x debug-on-entry RET message-send-mail RET
>
>> This causes an "Args out of range" error. This only happens on the byte
>> code. If I evaluate message.el, this error no longer occurs.
>
> The patch below should fix it,
Yes, that does the trick.
> === modified file 'lisp/emacs-lisp/debug.el'
> --- lisp/emacs-lisp/debug.el 2011-09-21 17:43:48 +0000
> +++ lisp/emacs-lisp/debug.el 2011-09-27 18:05:28 +0000
> @@ -873,9 +873,9 @@
> `((,(if (memq '&rest args) #'apply #'funcall)
> ,defn
> ,@(remq '&rest (remq '&optional args))))))
> - (if (> (length defn) 5)
> + (if (and (> (length defn) 5) (aref defn 5))
> (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.
>
--
Michael Welsh Duggan
(mwd@cert.org)