diff options
author | Eric S. Raymond <esr@snark.thyrsus.com> | 1993-03-18 03:38:31 +0000 |
---|---|---|
committer | Eric S. Raymond <esr@snark.thyrsus.com> | 1993-03-18 03:38:31 +0000 |
commit | 861a50c615647c2c5de6b2c29517d3e1c29244c3 (patch) | |
tree | 7d760dbe2c13cdb15c62e9f53070f72b27fde7d0 /lisp/term | |
parent | 8c6eda016146acf90907d60f6088d48815ce96ae (diff) | |
download | emacs-861a50c615647c2c5de6b2c29517d3e1c29244c3.tar.gz |
(function-key-map) Nuke code no longer bound to keys.
Diffstat (limited to 'lisp/term')
-rw-r--r-- | lisp/term/wyse50.el | 52 |
1 files changed, 0 insertions, 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 |