Mercurial > emacs
changeset 101005:b1e378ad4ae9
Replace last-command-char with last-command-event.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 09 Jan 2009 04:23:38 +0000 |
| parents | 6f10422080eb |
| children | 0ffd7b9d2985 |
| files | lisp/ChangeLog lisp/eshell/em-smart.el lisp/eshell/esh-mode.el |
| diffstat | 3 files changed, 7 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Jan 09 04:21:17 2009 +0000 +++ b/lisp/ChangeLog Fri Jan 09 04:23:38 2009 +0000 @@ -7,6 +7,7 @@ * calc/calc-keypd.el, calc/calc-misc.el, calc/calc-prog.el: * calc/calc-sel.el, calc/calc-store.el, calc/calc-stuff.el: * calc/calc-units.el, calc/calc-yank.el, calc/calc.el: + * eshell/em-smart.el, eshell/esh-mode.el: * play/mpuz.el: * progmodes/ada-mode.el, progmodes/antlr-mode.el, progmodes/cc-align.el: * progmodes/cc-cmds.el, progmodes/cperl-mode.el, progmodes/f90.el:
--- a/lisp/eshell/em-smart.el Fri Jan 09 04:21:17 2009 +0000 +++ b/lisp/eshell/em-smart.el Fri Jan 09 04:23:38 2009 +0000 @@ -291,7 +291,7 @@ (setq clear t) (cond ((eq this-command 'self-insert-command) - (if (eq last-command-char ? ) + (if (eq last-command-event ? ) (if (and eshell-smart-space-goes-to-end eshell-current-command) (if (not (pos-visible-in-window-p (point-max)))
--- a/lisp/eshell/esh-mode.el Fri Jan 09 04:21:17 2009 +0000 +++ b/lisp/eshell/esh-mode.el Fri Jan 09 04:23:38 2009 +0000 @@ -1,7 +1,7 @@ ;;; esh-mode.el --- user interface -;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, +;; 2008, 2009 Free Software Foundation, Inc. ;; Author: John Wiegley <johnw@gnu.org> @@ -484,9 +484,9 @@ (interactive "i") (process-send-string (eshell-interactive-process) - (char-to-string (if (symbolp last-command-char) - (get last-command-char 'ascii-character) - last-command-char)))) + (char-to-string (if (symbolp last-command-event) + (get last-command-event 'ascii-character) + last-command-event)))) (defun eshell-intercept-commands () (when (and (eshell-interactive-process)