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