Source

eshell / em-term.el

Diff from to

em-term.el

 ;   (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)))
+;          (or (get last-input-char 'character-of-keysym)
+;              (get last-input-char 'ascii-character)))
+;       (setq last-input-char 
+; 	    (or (get last-input-char 'character-of-keysym)
+; 		(get last-input-char 'ascii-character))))
 ;   (eshell-term-send-raw-string (make-string 1 last-input-char)))
 
 ; (defun eshell-term-send-raw-meta ()
 ;	    (setq last-input-char (car tmp)))
 ;	(if (symbolp last-input-char)
 ;	    (progn
-;	      (setq tmp (get last-input-char 'ascii-character))
+;	      (setq tmp (or (get last-input-char 'character-of-keysym)
+;			    (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)