Mercurial > emacs
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) |