From 76eb14ff7f857b631378f160635b50d98ce676be Mon Sep 17 00:00:00 2001 From: "Eric S. Raymond" Date: Thu, 18 Mar 1993 03:38:31 +0000 Subject: [PATCH] (function-key-map) Nuke code no longer bound to keys. --- lisp/term/wyse50.el | 52 ---------------------------------------------------- 1 file changed, 52 deletions(-) diff --git a/lisp/term/wyse50.el b/lisp/term/wyse50.el index c3a990d9026..01cb0467dd4 100644 --- a/lisp/term/wyse50.el +++ b/lisp/term/wyse50.el @@ -37,58 +37,6 @@ ;;; Code: -;;; Functions especially for this terminal. - -(defun wyse-50-insert-line () - "Insert an empty line." - (interactive) - (beginning-of-line) - (open-line 1)) - -(defun wyse-50-delete-line () - "Delete all of the current line." - (interactive) - (beginning-of-line) - (kill-line 1)) - -(defun wyse-50-insert-char () - "Insert a space, even in overwrite mode." - (interactive) - (insert ? )) - -(defun wyse-50-print-buffer () - "Like ``print-buffer'', but verifies before printing. -The `print' key is easy to hit on a Wyse 50." - (interactive) - (if (y-or-n-p - (concat "Print buffer " - (buffer-name) "? ")) - (print-buffer))) - -(defun wyse-50-top-of-window (n) - "Move point to the top line of the current window. -With an argument N, move to the Nth line of the window." - (interactive "p") - (move-to-window-line (1- n))) - -(defun wyse-50-bottom-of-window (n) - "Move point to the last line of the current window. -With an argument N, move to the Nth line from the bottom of the window." - (interactive "p") - (move-to-window-line (- n))) - -(defun wyse-50-toggle-screen-width () - "Alternate between 80 and 132 columns." - (interactive) - (if (<= (frame-width) 80) - (progn - (send-string-to-terminal "\e`;") - (set-frame-width 131)) - (send-string-to-terminal "\e`:") - (set-frame-width 79))) - - -;;; Define the escape sequences for the function keys. (define-key function-key-map "\C-a" (make-keymap)) (mapcar (function (lambda (key-definition) (define-key function-key-map -- 2.11.4.GIT