diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-01-09 04:57:03 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-01-09 04:57:03 +0000 |
| commit | cfa29281070a1f7868ed42f330d9a666b2fc39e2 (patch) | |
| tree | ab884c7a90606559daaa75c4efea4acdfbb66431 /lisp/eshell/em-term.el | |
| parent | 0f69e911dc3d3782f3632ff72d256f1773fa76c3 (diff) | |
| download | emacs-cfa29281070a1f7868ed42f330d9a666b2fc39e2.tar.gz | |
Comment (replace last-input-char with last-input-event).
Diffstat (limited to 'lisp/eshell/em-term.el')
| -rw-r--r-- | lisp/eshell/em-term.el | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/lisp/eshell/em-term.el b/lisp/eshell/em-term.el index a7744e87940..b3288982722 100644 --- a/lisp/eshell/em-term.el +++ b/lisp/eshell/em-term.el @@ -159,27 +159,27 @@ allowed." ; without any interpretation." ; (interactive) ; ;; Convert `return' to C-m, etc. -; (if (and (symbolp last-input-char) -; (get last-input-char 'ascii-character)) -; (setq last-input-char (get last-input-char 'ascii-character))) -; (eshell-term-send-raw-string (make-string 1 last-input-char))) +; (if (and (symbolp last-input-event) +; (get last-input-event 'ascii-character)) +; (setq last-input-event (get last-input-event 'ascii-character))) +; (eshell-term-send-raw-string (make-string 1 last-input-event))) ; (defun eshell-term-send-raw-meta () ; (interactive) -; (if (symbolp last-input-char) +; (if (symbolp last-input-event) ; ;; Convert `return' to C-m, etc. -; (let ((tmp (get last-input-char 'event-symbol-elements))) +; (let ((tmp (get last-input-event 'event-symbol-elements))) ; (if tmp -; (setq last-input-char (car tmp))) -; (if (symbolp last-input-char) +; (setq last-input-event (car tmp))) +; (if (symbolp last-input-event) ; (progn -; (setq tmp (get last-input-char 'ascii-character)) -; (if tmp (setq last-input-char tmp)))))) -; (eshell-term-send-raw-string (if (and (numberp last-input-char) -; (> last-input-char 127) -; (< last-input-char 256)) -; (make-string 1 last-input-char) -; (format "\e%c" last-input-char)))) +; (setq tmp (get last-input-event 'ascii-character)) +; (if tmp (setq last-input-event tmp)))))) +; (eshell-term-send-raw-string (if (and (numberp last-input-event) +; (> last-input-event 127) +; (< last-input-event 256)) +; (make-string 1 last-input-event) +; (format "\e%c" last-input-event)))) ; (defun eshell-term-mouse-paste (click arg) ; "Insert the last stretch of killed text at the position clicked on." |