From 18376c7cf8550e399cbbee22b88278a8892e8bfb Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 20 Jun 1994 22:22:07 +0000 Subject: [PATCH] Change size of selected screen. Reposition after printing help. Null default directory for save. Produce minibuffer key bindings for kp4 and kp5. (tpu-kp4, tpu-kp5): New variables. (tpu-mapper-revision): Variable deleted. --- lisp/emulation/tpu-mapper.el | 30 ++++++++++++++++++------------ 1 file changed, 18 insertions(+), 12 deletions(-) diff --git a/lisp/emulation/tpu-mapper.el b/lisp/emulation/tpu-mapper.el index 75dd4d0a9a5..4db45b15368 100644 --- a/lisp/emulation/tpu-mapper.el +++ b/lisp/emulation/tpu-mapper.el @@ -1,6 +1,6 @@ ;;; tpu-mapper.el --- Create a TPU-edt keymap file for x-windows emacs. -;; Copyright (C) 1993 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994 Free Software Foundation, Inc. ;; Author: Rob Riepel ;; Maintainer: Rob Riepel @@ -66,13 +66,6 @@ ;;; Code: -;;; -;;; Revision Information -;;; -(defconst tpu-mapper-revision "$Revision: 1.4 $" - "Revision number of TPU-edt x-windows emacs key mapper.") - - ;;; ;;; Make sure we're running X-windows and Emacs version 19 ;;; @@ -99,6 +92,8 @@ ;;; ;;; Key variables ;;; +(defvar tpu-kp4 nil) +(defvar tpu-kp5 nil) (defvar tpu-key nil) (defvar tpu-enter nil) (defvar tpu-return nil) @@ -110,7 +105,7 @@ ;;; ;;; Make sure the window is big enough to display the instructions ;;; -(if tpu-lucid-emacs19-p (set-screen-size nil 80 36) +(if tpu-lucid-emacs19-p (set-screen-size (selected-screen) 80 36) (set-frame-size (selected-frame) 80 36)) @@ -171,6 +166,7 @@ ") (delete-other-windows) +(goto-char (point-min)) ;;; ;;; Save for future reference @@ -275,8 +271,8 @@ (tpu-map-key "KP-1" " - The Word/Change-Case key" "'tpu-word" "'tpu-change-case") (tpu-map-key "KP-2" " - The EOL/Delete-EOL key" "'tpu-end-of-line" "'tpu-delete-to-eol") (tpu-map-key "KP-3" " - The Character/Special-Insert key" "'tpu-char" "'tpu-special-insert") -(tpu-map-key "KP-4" " - The Forward/Bottom key" "'tpu-advance-direction" "'tpu-move-to-end") -(tpu-map-key "KP-5" " - The Reverse/Top key" "'tpu-backup-direction" "'tpu-move-to-beginning") +(setq tpu-kp4 (tpu-map-key "KP-4" " - The Forward/Bottom key" "'tpu-advance-direction" "'tpu-move-to-end")) +(setq tpu-kp5 (tpu-map-key "KP-5" " - The Reverse/Top key" "'tpu-backup-direction" "'tpu-move-to-beginning")) (tpu-map-key "KP-6" " - The Remove/Insert key" "'tpu-cut" "'tpu-paste") (tpu-map-key "KP-7" " - The Page/Do key" "'tpu-page" "'execute-extended-command") (tpu-map-key "KP-8" " - The Section/Fill key" "'tpu-scroll-window" "'tpu-fill") @@ -344,6 +340,16 @@ (insert (format "(define-key minibuffer-local-completion-map %s 'exit-minibuffer)\n" tpu-enter)) (insert (format "(define-key minibuffer-local-must-match-map %s 'minibuffer-complete-and-exit)\n" tpu-enter)))) +(cond + ((not (or (equal tpu-kp4 tpu-return) (equal tpu-kp5 tpu-return))) + (insert " +;; Minibuffer map additions to allow KP-4/5 termination of search strings. +;; +") + + (insert (format "(define-key minibuffer-local-map %s 'tpu-search-forward-exit)\n" tpu-kp4)) + (insert (format "(define-key minibuffer-local-map %s 'tpu-search-backward-exit)\n" tpu-kp5)))) + (insert " ;; Define the tpu-help-enter/return symbols ;; @@ -367,7 +373,7 @@ ;;; (let ((file (if tpu-lucid-emacs19-p "~/.tpu-lucid-keys" "~/.tpu-gnu-keys"))) (set-visited-file-name - (read-file-name (format "Save key mapping to file (default %s): " file) nil file))) + (read-file-name (format "Save key mapping to file (default %s): " file) "" file))) (save-buffer) (message "That's it! Press any key to exit")