Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 9/17/84; site godot.UUCP
Path: utzoo!watmath!clyde!burl!ulysses!mhuxj!ihnp4!godot!massar
From: massar@godot.UUCP (J.P. Massar)
Newsgroups: net.emacs
Subject: CCA Emacs/Elisp bug fix
Message-ID: <539@godot.UUCP>
Date: Tue, 27-Nov-84 13:33:48 EST
Article-I.D.: godot.539
Posted: Tue Nov 27 13:33:48 1984
Date-Received: Wed, 28-Nov-84 04:19:13 EST
Distribution: net
Organization: Thinking Machines, Cambridge, MA
Lines: 29

There is a bug in the Emacs e_lisp.c file which causes the '&' routines
& Search and & Regular Expression Search to generate "Wrong number of
argument" errors or even crash Emacs.  The following simple fix corrects
this:

*** e_lisp.c~	Tue Nov 13 15:20:17 1984
--- e_lisp.c	Wed Nov 21 15:40:14 1984
***************
*** 357,363
  	*ofname = comtab[n].name;
  	*tindex = n;
  	*mx = *comtab[n].name == '&' ? NOT_META_X : IS_META_X;
! 	*minargs = *maxargs = (comtab[n].keyset >> LARGBIT) & 3;
  	*nocheck = (comtab[n].keyset & LNCHECKBIT) != 0;
  	*retype = (comtab[n].keyset >> LRETBIT) & 3;
  	for (i = 0; i < *minargs; i++)

--- 357,363 -----
  	*ofname = comtab[n].name;
  	*tindex = n;
  	*mx = *comtab[n].name == '&' ? NOT_META_X : IS_META_X;
! 	*minargs = *maxargs = (comtab[n].keyset >> LARGBIT) & 7;
  	*nocheck = (comtab[n].keyset & LNCHECKBIT) != 0;
  	*retype = (comtab[n].keyset >> LRETBIT) & 3;
  	for (i = 0; i < *minargs; i++)

JP Massar
ihnp4!godot!massar
massar@cca-unix