(mouse-choose-completion): New function.

[gnu-emacs] / lisp / terminal.el

diff --git a/lisp/terminal.el b/lisp/terminal.el
index 8abcf9d430274a567211c1c2e1886604c2842d30..195fc6321c1a05530d62f45dc99699cd52b5e578 100644 (file)
--- a/lisp/terminal.el
+++ b/lisp/terminal.el
@@ -394,7 +394,7 @@ all pending output has been dealt with.")
 
 (defun te-more-break-flush-pending-output ()
   "Discard any output which has been received by the terminal emulator but
-not yet proceesed and then proceed from the more break."
+not yet processed and then proceed from the more break."
   (interactive)
   (te-more-break-unwind)
   (te-flush-pending-output))
@@ -423,7 +423,6 @@ One characters is treated specially:
 the terminal escape character (normally C-^)
 lets you type a terminal emulator command."
   (interactive)
-  (setq list (cons last-input-char list))
   (cond ((eq last-input-char terminal-escape-char)
         (call-interactively 'te-escape))
        (t
@@ -435,7 +434,6 @@ lets you type a terminal emulator command."
         (if (and (integerp last-input-char)
                  (not (zerop (logand last-input-char (lsh 1 23)))))
             (setq last-input-char (+ 128 (logand last-input-char 127))))
-        (setq list (cons (list 'really last-input-char) list))
         ;; Now ignore all but actual characters.
         ;; (It ought to be possible to send through function
         ;; keys as character sequences if we add a description
@@ -1169,9 +1167,9 @@ work with `terminfo' we will try to use it."
 
 (put 'terminal-mode 'mode-class 'special)
 ;; This is only separated out from function terminal-emulator
-;; to keep the latter a little more managable.
+;; to keep the latter a little more manageable.
 (defun terminal-mode ()
-  "Set up variables for use f the terminal-emualtor.
+  "Set up variables for use with the terminal-emulator.
 One should not call this -- it is an internal function
 of the terminal-emulator"
   (kill-all-local-variables)