Subject: bug#9613: 24.0.90; Cannot debug-on-entry message-send-mail

From: [email-masked]
Date: Tue, 27 Sep 2011 14:20:39 -0400

> 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,

        Stefan

=== 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.