# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 721877670 0
# Node ID 2701f8d53d25c6b627f99b6c50e33a041188d9d9
# Parent  fc2b0405bd87650c366f079b3829858a6797a423
	* bytecomp.el: Declare unread-command-char an obsolete variable.
	* vip.el (vip-escape-to-emacs, vip-prefix-arg-value,
	vip-prefix-arg-com): Use unread-command-event instead of
	unread-command-char; respect its new semantics.
	* fortran.el (fortran-abbrev-start, fortran-window-create-momentarily):
	Same.

diff -r fc2b0405bd87 -r 2701f8d53d25 lisp/progmodes/fortran.el
--- a/lisp/progmodes/fortran.el	Mon Nov 16 01:33:17 1992 +0000
+++ b/lisp/progmodes/fortran.el	Mon Nov 16 01:34:30 1992 +0000
@@ -542,7 +542,7 @@
     (if (or (= (setq c (read-char)) ??)	;insert char if not equal to `?'
 	    (= c help-char))
 	(fortran-abbrev-help)
-      (setq unread-command-char c))))
+      (setq unread-command-event c))))
 
 (defun fortran-abbrev-help ()
   "List the currently defined abbrevs in Fortran mode."
@@ -605,7 +605,7 @@
 	    (progn (message "Type SPC to continue editing.")
 		   (let ((char (read-char)))
 		     (or (equal char (string-to-char " "))
-			 (setq unread-command-char char))))))
+			 (setq unread-command-event char))))))
     (fortran-window-create)))
 
 (defun fortran-split-line ()