abbrevs broken since 2009-11-19 03:12:51 +0000

[Giorgos Keramidas]

I pulled a new Emacs snapshot from the Git repository this morning and
noticed that typing a space in message-mode fails with a backtrace
similar to the one attached to this message.

Bisecting the changes since my last successful update I found out that
this is the first change that breaks abbrevs in message-mode:

: commit be11c6010ad352ebb93a7921f356a436a6d49f64
: Author: Stefan Monnier <address@hidden>
: Date:   Thu Nov 19 03:12:51 2009 +0000
:
:     * abbrev.el (abbrev-with-wrapper-hook): (re)move...
:     * simple.el (with-wrapper-hook): ...to here.  Add argument `args'.
:     * minibuffer.el (completion-in-region-functions): New hook.
:     (completion-in-region): New function.
:     * emacs-lisp/lisp.el (lisp-complete-symbol):
:     * pcomplete.el (pcomplete-std-complete): Use it.

The backtrace is attached below, but it includes bytecode bits, so if it
doesn't help a lot, I'll try looking at the changes in a few minutes.

Debugger entered--Lisp error: (wrong-number-of-arguments #[(G73706 funs global 
args) "\306\307!\306\310!\211
L\210L\210    J:\203HJ#\207" [G73705 G73704 G73703 args] 4] quote 
--cl-rest-- #[nil "\306 address@hidden@address@hidden@\203)    \316    
   
$)-\207" [--cl-rest-- sym name wordstart wordend value abbrev--before-point 
signal wrong-number-of-arguments nil 4 window-minibuffer-p selected-window 
undo-boundary abbrev-insert noninteractive last-abbrev-text last-abbrev 
last-abbrev-location] 6]] 11] 3)
  #[(G73706 funs global args) "\306\307!\306\310!\211\nL\210L\210   J:\203H 
 apply(#[(G73706 funs global args) "\306\307!\306\310!\211\nL\210L\210      
J:\203H  (lambda (&rest --cl-rest--) (apply #[... 
"\306\307!\306\310!\211\nL\210L\210       J:\203H  apply((lambda (&rest 
--cl-rest--) (apply #[... "\306\307!\306\310!\211\nL\210L\210 J:\203H  
#[(G73706 funs global args) "\306\307!\306\310!\211\nL\210L\210    J:\203H  
apply(#[(G73706 funs global args) "\306\307!\306\310!\211\nL\210L\210      
J:\203H  (lambda (&rest --cl-rest--) (apply #[... 
"\306\307!\306\310!\211\nL\210L\210       J:\203H  #[(G73703 G73704 G73705 
&rest args) "J        JA\nJ#\207" [G73705 G73704 G73703 args] 4](--global-- 
--funs-- ----cl-var--73702--)
  apply(#[(G73703 G73704 G73705 &rest args) "J JA\nJ#\207" [G73705 G73704 
G73703 args] 4] --global-- --funs-- ----cl-var--73702-- nil)
  (lambda (&rest --cl-rest--) (apply #[... "J  JA\nJ#\207" [G73705 G73704 
G73703 args] 4] (quote --global--) (quote --funs--) (quote ----cl-var--73702--) 
--cl-rest--))()
  mail-abbrev-expand-wrapper((lambda (&rest --cl-rest--) (apply #[... "J       
JA\nJ#\207" [G73705 G73704 G73703 args] 4] (quote --global--) (quote --funs--) 
(quote ----cl-var--73702--) --cl-rest--)))
  apply(mail-abbrev-expand-wrapper (lambda (&rest --cl-rest--) (apply #[... "J 
JA\nJ#\207" [G73705 G73704 G73703 args] 4] (quote --global--) (quote --funs--) 
(quote ----cl-var--73702--) --cl-rest--)) nil)
  #[(G73706 funs global args) "\306\307!\306\310!\211\nL\210L\210   J:\203H 
 apply(#[(G73706 funs global args) "\306\307!\306\310!\211\nL\210L\210      
J:\203H  (lambda (&rest --cl-rest--) (apply #[... 
"\306\307!\306\310!\211\nL\210L\210       J:\203H  expand-abbrev()