[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/eshell em-term.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp/eshell em-term.el |
Date: |
Fri, 09 Jan 2009 04:57:03 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/01/09 04:57:03
Modified files:
lisp/eshell : em-term.el
Log message:
Comment (replace last-input-char with last-input-event).
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/eshell/em-term.el?cvsroot=emacs&r1=1.17&r2=1.18
Patches:
Index: em-term.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/eshell/em-term.el,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -b -r1.17 -r1.18
--- em-term.el 5 Jan 2009 03:21:45 -0000 1.17
+++ em-term.el 9 Jan 2009 04:57:03 -0000 1.18
@@ -159,27 +159,27 @@
; 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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp/eshell em-term.el,
Glenn Morris <=