Re: bug in auto-capitalize.el

[Kevin Rodgers]

Norman Werner wrote:
> The following mail is from the original bug report to the maintainer
> of auto-capitalize.el   kevinr@ihs.com
>
> Unfortunately the mail could not be delivered :
>
> SMTP error from remote mailer after RCPT TO:<kevinr@ihs.com>:
> host mail1.ihs.com [170.207.70.222]: 553 5.7.1
> <kevinr@ihs.com>... norman.werner@student.uni-magdeburg.de not
> allowed to send to recipient
>
> Since I could not contact the maintainer directly I am now writing to
> your address

Please don't bother the Emacs maintainers with something they are not
responsible for.  If you had taken even a minute to search for me via
my name (on e.g. http://groups.google.com/) you would have found my
current address: <ihs_4664@yahoo.com>.

> -------Beginning of Message ------------
>
>
> I experienced what I think is a bug in auto-capitalize.
>
> On (gnu)emacs 21.3.1 event-to-character is called with 4 arguments while a
> maximum of 2 is allowed. So the debugger is entered.
>
> I think the offending code is in defun auto-capitalize:
> ....
> (let ((self-insert-char
>          (cond ((fboundp 'event-to-character) ; XEmacs
>                     (event-to-character last-command-event
> 		 
	nil nil t))
>                (t last-command-event)))) ; GNU Emacs
> ...
>
> The comments indicates that you think that  event-to-character is
> unbound in gnu-emacs. But it exists as a function of one (optional two
> arguments.)

No, it doesn't exist at all in GNU Emacs 21.3.  You can confirm that
by invoking emacs with the -q and --no-site-file command line options,
and typing `C-h v event-to-character'.

You must be loading some kind of XEmacs compatibility package that is
ironically incompatible with XEmacs.

> I propose the fixes :
> (let ((self-insert-char
>          (cond ((featurep 'xemacs) ; XEmacs
>                     (event-to-character last-command-event
> 		 
	nil nil t))
>                (t last-command-event)))) ; GNU Emacs
> Or
>
> (let ((self-insert-char
>          (cond ((featurep 'xemacs) ; XEmacs
>                     (event-to-character last-command-event
> 		 
	nil nil t))
>                (t (event-to-character last-command-event))))) ; GNU Emacs
>
> I couldn't test this since I don't have xemacs installed. But It should be ok

(featurep 'xemacs) is evil.

--
Kevin Rodgers