comparison lisp/emulation/mlsupport.el @ 1617:9002bc96d2d6

* 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. * mlsupport.el (push-back-character): Same.
author Jim Blandy <jimb@redhat.com>
date Mon, 16 Nov 1992 01:38:47 +0000
parents 2cdce064065f
children b95bdb97c3e8
comparison
equal deleted inserted replaced
1616:46528118f75d 1617:9002bc96d2d6
78 78
79 (defun ml-define-string-macro (name defn) 79 (defun ml-define-string-macro (name defn)
80 (fset (intern name) defn)) 80 (fset (intern name) defn))
81 81
82 (defun push-back-character (char) 82 (defun push-back-character (char)
83 (setq unread-command-char char)) 83 (setq unread-command-event char))
84 84
85 (defun to-col (column) 85 (defun to-col (column)
86 (indent-to column 0)) 86 (indent-to column 0))
87 87
88 (defmacro is-bound (&rest syms) 88 (defmacro is-bound (&rest syms)