Mercurial > hg > xemacs-beta

diff lisp/modes/fortran.el @ 76:c0c698873ce1 r20-0b33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b33
author cvs
date Mon, 13 Aug 2007 09:05:10 +0200
parents 131b0175ea99
children 34a5b81f86ba
line wrap: on
line diff
--- a/lisp/modes/fortran.el	Mon Aug 13 09:04:39 2007 +0200
+++ b/lisp/modes/fortran.el	Mon Aug 13 09:05:10 2007 +0200
@@ -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 ()