Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

(term-send-raw-meta): Strip modifiers from the keyboard

Browse source 
event when deciding what to send to the terminal.
This commit is contained in:
Gerd Moellmann 2000-07-12 18:25:40 +00:00
parent 37328bcd53
commit 4bf4fb05c2
2 changed files with 20 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2000-07-12 Gerd Moellmann <gerd@gnu.org>
* term.el (term-send-raw-meta): Strip modifiers from the keyboard
event when deciding what to send to the terminal.
2000-07-12 Dave Love <fx@gnu.org>
* cus-start.el: Add optional version as 4th element of specs and

28
lisp/term.el
View file

@ -1205,20 +1205,22 @@ without any interpretation."
(defun term-send-raw-meta ()
(interactive)
(if (symbolp last-input-char)
(let ((char last-input-char))
(when (symbolp last-input-char)
;; Convert `return' to C-m, etc.
(let ((tmp (get last-input-char 'event-symbol-elements)))
(if tmp
(setq last-input-char (car tmp)))
(if (symbolp last-input-char)
(progn
(setq tmp (get last-input-char 'ascii-character))
(if tmp (setq last-input-char tmp))))))
(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))))
(let ((tmp (get char 'event-symbol-elements)))
(when tmp
(setq char (car tmp)))
(when (symbolp char)
(setq tmp (get char 'ascii-character))
(when tmp
(setq char tmp)))))
(setq char (event-basic-type char))
(term-send-raw-string (if (and (numberp char)
(> char 127)
(< char 256))
(make-string 1 char)
(format "\e%c" char)))))
(defun term-mouse-paste (click arg)
"Insert the last stretch of killed text at the position clicked on."