Mercurial > emacs

comparison lisp/kmacro.el @ 101010:4efc7ca085ce

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replace last-command-char with last-command-event.
author Glenn Morris <rgm@gnu.org>
date Fri, 09 Jan 2009 04:44:15 +0000
parents a9dc0e7c3f2b
children 1d1d5d9bd884
comparison
equal deleted inserted replaced
101009:ad9d2270860e 101010:4efc7ca085ce
1194 t) 1194 t)
1195 (t nil)) 1195 (t nil))
1196 (setq this-command 'ignore) 1196 (setq this-command 'ignore)
1197 (setq this-command cmd) 1197 (setq this-command cmd)
1198 (if (memq this-command '(self-insert-command digit-argument)) 1198 (if (memq this-command '(self-insert-command digit-argument))
1199 (setq last-command-char (aref keys (1- (length keys))))) 1199 (setq last-command-event (aref keys (1- (length keys)))))
1200 (if keys 1200 (if keys
1201 (setq kmacro-step-edit-new-macro (vconcat kmacro-step-edit-new-macro keys)))) 1201 (setq kmacro-step-edit-new-macro (vconcat kmacro-step-edit-new-macro keys))))
1202 (setq kmacro-step-edit-key-index next-index))) 1202 (setq kmacro-step-edit-key-index next-index)))
1203 1203
1204 (defun kmacro-step-edit-pre-command () 1204 (defun kmacro-step-edit-pre-command ()