From xemacs-m  Mon Dec 23 17:33:57 1996
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
          by xemacs.cs.uiuc.edu (8.8.4/8.8.4) with ESMTP
	  id RAA22719 for <xemacs-beta@xemacs.org>; Mon, 23 Dec 1996 17:33:57 -0600 (CST)
Received: (from steve@localhost)
          by altair.xemacs.org (8.8.4/8.8.4)
	  id PAA03478; Mon, 23 Dec 1996 15:43:37 -0800
To: xemacs-beta@xemacs.org
Subject: Re: [19.15-b5] fortran.el lossage (patch included)
References: <199612232250.PAA18799@suomi.cdc.noaa.gov>
X-Url: http://www.miranova.com/%7Esteve/
Mail-Copies-To: never
X-Face: #!T9!#9s-3o8)*uHlX{Ug[xW7E7Wr!*L46-OxqMu\xz23v|R9q}lH?cRS{rCNe^'[`^sr5"
 f8*@r4ipO6Jl!:Ccq<xoV[Qz2u8<8-+Vwf2gzJ44lf_/y9OaQ`@#Q65{U4/TC)i2`~/M&QI$X>p:9I
 OSS'2{-)-4wBnVeg0S\O4Al@)uC[pD|+
X-Attribution: sb
From: Steven L Baur <steve@miranova.com>
In-Reply-To: Mark Borges's message of Mon, 23 Dec 1996 15:50:02 -0700
Mime-Version: 1.0 (generated by tm-edit 7.97)
Content-Type: text/plain; charset=US-ASCII
Date: 23 Dec 1996 15:43:37 -0800
Message-ID: <m2681sltcm.fsf@altair.xemacs.org>
Lines: 65
X-Mailer: Red Gnus v0.72/XEmacs 19.15

>>>>> "mb" == Mark Borges <mdb@cdc.noaa.gov> writes:

mb> 	(1) xemacs -q
mb> 	(2) \C-x \C-f junk.f
mb> 	(3) M-x abbrev-mode
mb> 	(4) ;pa<SPACE>
mb>   ==>
mb>   Signaling: (wrong-type-argument consp nil unread-command-events)

mb> (4) is trying to expand `;pa' to `parameter' in fortran-mode.

mb> `fortran-mode-version' returns the same string as in XEmacs-19.14, but
mb> it works fine in the latter. Apparently some sync'ing lossage...

Yup.

mb> A unified diff (that's the preferred format now, right?) of the

Yup.

mb> fortran.el's in the two XEmacsen follows. Let me know if you prefer a
mb> context diff instead.

Thanks for the patch, but it also backs out comments I want left in.
Unified diffs against source derived from GNU but modified should show
commentary where we intend to diverge from the original.

Try this instead:

Index: lisp/modes/fortran.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-19.15/lisp/modes/fortran.el,v
retrieving revision 1.1.1.2
diff -u -r1.1.1.2 fortran.el
--- fortran.el	1996/12/18 03:44:32	1.1.1.2
+++ fortran.el	1996/12/23 23:37:55
@@ -713,7 +713,7 @@
     ;; insert char if not equal to `?'
     (if (or (= c ??) (eq c help-char))
 	(fortran-abbrev-help)
-      (setq unread-command-events e))))
+      (setq unread-command-events (list e)))))
 
 (defun fortran-abbrev-help ()
   "List the currently defined abbrevs in Fortran mode."
@@ -780,7 +780,7 @@
 		   ;; XEmacs change
 		   (let ((char (next-command-event)))
 		     (or (equal (event-to-character char) ? )
-			 (setq unread-command-events char))))))
+			 (setq unread-command-events (list char)))))))
     (fortran-window-create)))
 
 (defun fortran-split-line ()

mb> There is some other lossage w.r.t. font-locking in both version I
mb> haven't had time to look over yet.

I remember going through some of that attempting to respond to a query
in the newsgroup.  Any help you can offer would be appreciated.
-- 
steve@miranova.com baur
Unsolicited commercial e-mail will be billed at $250/message.
"That Bill Clinton.  He probably doesn't know how to log on to the
Internet."  -- Rush Limbaugh, noted Computer Expert

