X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/73b0cd50031a714347109169ceb8bacae338612a..ef62b23df5a7007c3d8c74dbca87ba83e9da682e:/lisp/terminal.el diff --git a/lisp/terminal.el b/lisp/terminal.el index 9800859595..7aaac26f1b 100644 --- a/lisp/terminal.el +++ b/lisp/terminal.el @@ -1,6 +1,7 @@ ;;; terminal.el --- terminal emulator for GNU Emacs -;; Copyright (C) 1986-1989, 1993-1994, 2001-2011 Free Software Foundation, Inc. +;; Copyright (C) 1986-1989, 1993-1994, 2001-2012 +;; Free Software Foundation, Inc. ;; Author: Richard Mlynarik ;; Maintainer: FSF @@ -104,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) @@ -1004,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))))) @@ -1284,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. @@ -1326,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 ")