GNU bug report logs - #9613
24.0.90; Cannot debug-on-entry message-send-mail

Previous Next

Full log

Message #11 received at 9613 <at> debbugs.gnu.org (full text, mbox):

From: Michael Welsh Duggan <mwd <at> cert.org>
To: "monnier\@iro.umontreal.ca" <monnier <at> iro.umontreal.ca>
Cc: "9613 <at> debbugs.gnu.org" <9613 <at> debbugs.gnu.org>
Subject: Re: bug#9613: 24.0.90; Cannot debug-on-entry message-send-mail
Date: Tue, 27 Sep 2011 14:32:13 -0400

"monnier <at> iro.umontreal.ca" <monnier <at> 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 <at> cert.org)

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.