comparison lisp/emulation/mlsupport.el @ 1820:b95bdb97c3e8

JimB's changes from January 18 to present
author Jim Blandy <jimb@redhat.com>
date Tue, 26 Jan 1993 01:56:29 +0000
parents 9002bc96d2d6
children 2cbd4cfb7f4c
comparison
equal deleted inserted replaced
1819:df06a60f3362 1820:b95bdb97c3e8
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-event char)) 83 (setq unread-command-events (list 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)