aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/eshell
diff options
context:
space:
mode:
authorGlenn Morris2009-01-09 04:23:38 +0000
committerGlenn Morris2009-01-09 04:23:38 +0000
commit1ba983e8d9da561ccbdf15fb1544895fad40cce8 (patch)
tree88210d37a85f0ef4a8d3341074b185c9d0187dad /lisp/eshell
parente93c003eb15f85f744a39c28a8fb43b8c6da9904 (diff)
downloademacs-1ba983e8d9da561ccbdf15fb1544895fad40cce8.tar.gz
emacs-1ba983e8d9da561ccbdf15fb1544895fad40cce8.zip
Replace last-command-char with last-command-event.
Diffstat (limited to 'lisp/eshell')
-rw-r--r--lisp/eshell/em-smart.el2
-rw-r--r--lisp/eshell/esh-mode.el10
2 files changed, 6 insertions, 6 deletions
diff --git a/lisp/eshell/em-smart.el b/lisp/eshell/em-smart.el
index 1396cce33fe..43de7ff760c 100644
--- a/lisp/eshell/em-smart.el
+++ b/lisp/eshell/em-smart.el
@@ -291,7 +291,7 @@ and the end of the buffer are still visible."
291 (setq clear t) 291 (setq clear t)
292 (cond 292 (cond
293 ((eq this-command 'self-insert-command) 293 ((eq this-command 'self-insert-command)
294 (if (eq last-command-char ? ) 294 (if (eq last-command-event ? )
295 (if (and eshell-smart-space-goes-to-end 295 (if (and eshell-smart-space-goes-to-end
296 eshell-current-command) 296 eshell-current-command)
297 (if (not (pos-visible-in-window-p (point-max))) 297 (if (not (pos-visible-in-window-p (point-max)))
diff --git a/lisp/eshell/esh-mode.el b/lisp/eshell/esh-mode.el
index a929916f232..9cd7c1b0477 100644
--- a/lisp/eshell/esh-mode.el
+++ b/lisp/eshell/esh-mode.el
@@ -1,7 +1,7 @@
1;;; esh-mode.el --- user interface 1;;; esh-mode.el --- user interface
2 2
3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
4;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. 4;; 2008, 2009 Free Software Foundation, Inc.
5 5
6;; Author: John Wiegley <johnw@gnu.org> 6;; Author: John Wiegley <johnw@gnu.org>
7 7
@@ -484,9 +484,9 @@ This is used by `eshell-watch-for-password-prompt'."
484 (interactive "i") 484 (interactive "i")
485 (process-send-string 485 (process-send-string
486 (eshell-interactive-process) 486 (eshell-interactive-process)
487 (char-to-string (if (symbolp last-command-char) 487 (char-to-string (if (symbolp last-command-event)
488 (get last-command-char 'ascii-character) 488 (get last-command-event 'ascii-character)
489 last-command-char)))) 489 last-command-event))))
490 490
491(defun eshell-intercept-commands () 491(defun eshell-intercept-commands ()
492 (when (and (eshell-interactive-process) 492 (when (and (eshell-interactive-process)