Mercurial > hg > xemacs-beta

diff lisp/modes/fortran.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 49a24b4fd526
children c0c698873ce1
line wrap: on
line diff
--- a/lisp/modes/fortran.el	Mon Aug 13 09:00:04 2007 +0200
+++ b/lisp/modes/fortran.el	Mon Aug 13 09:02:59 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 (list e)))))
+      (setq unread-command-events 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 (list char)))))))
+			 (setq unread-command-events char))))))
     (fortran-window-create)))
 
 (defun fortran-split-line ()