X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/233ba4d924933cb56129bd7511e6137b7c0b8e3e..ef62b23df5a7007c3d8c74dbca87ba83e9da682e:/lisp/terminal.el diff --git a/lisp/terminal.el b/lisp/terminal.el index d888a653c9..7aaac26f1b 100644 --- a/lisp/terminal.el +++ b/lisp/terminal.el @@ -1,6 +1,6 @@ ;;; terminal.el --- terminal emulator for GNU Emacs -;; Copyright (C) 1986-1989, 1993-1994, 2001-2011 +;; Copyright (C) 1986-1989, 1993-1994, 2001-2012 ;; Free Software Foundation, Inc. ;; Author: Richard Mlynarik @@ -105,8 +105,8 @@ performance." (define-key map [t] 'te-pass-through) (define-key map [switch-frame] 'handle-switch-frame) (define-key map "\e" terminal-meta-map) - ;(define-key map "\C-l" - ; '(lambda () (interactive) (te-pass-through) (redraw-display))) + ;;(define-key map "\C-l" + ;; (lambda () (interactive) (te-pass-through) (redraw-display))) (setq terminal-map map))) (defvar terminal-escape-map nil) @@ -1005,7 +1005,7 @@ move to start of new line, clear to end of line." (unwind-protect (progn (set-process-filter te-process - (function (lambda (p s) + (function (lambda (_p s) (or (eq (length s) 1) (setq te-pending-output (list 1 s))) (throw 'char (aref s 0))))) @@ -1285,7 +1285,7 @@ in the directory specified by `te-terminfo-directory'." ;; Rename it to the desired name. ;; We use this roundabout approach ;; to avoid any risk of writing a name that - ;; was michievouslyt set up as a symlink. + ;; was mischievously set up as a symlink. (rename-file temp-file file-name)) ;; Now compile that source to make the binary that the ;; programs actually use. @@ -1327,7 +1327,7 @@ in the directory specified by `te-terminfo-directory'." "im=:ei=:dm=:ed=:mi:do=^p^j:nl=^p^j:bs:") ) -(defun te-tic-sentinel (proc state-change) +(defun te-tic-sentinel (_proc state-change) "If tic has finished, delete the .tif file" (if (equal state-change "finished ")