# HG changeset patch # User Glenn Morris # Date 1231475018 0 # Node ID b1e378ad4ae94831ecb57e44ac79ac26a354ec39 # Parent 6f10422080ebfee154753a1531a8bdc9941e17cb Replace last-command-char with last-command-event. diff -r 6f10422080eb -r b1e378ad4ae9 lisp/ChangeLog --- 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: diff -r 6f10422080eb -r b1e378ad4ae9 lisp/eshell/em-smart.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))) diff -r 6f10422080eb -r b1e378ad4ae9 lisp/eshell/esh-mode.el --- 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 @@ -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)