Mercurial > emacs

diff lisp/emulation/tpu-edt.el @ 4549:076ad69b0c77

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tpu-help): Use variables for "n" and "p". (tpu-help-N, tpu-help-n, tpu-help-P, tpu-help-p): New vars.
author Richard M. Stallman <rms@gnu.org>
date Wed, 11 Aug 1993 05:01:04 +0000
parents 73cc2b215834
children 9cde7d7fea1f
line wrap: on
line diff
--- a/lisp/emulation/tpu-edt.el	Wed Aug 11 05:00:27 1993 +0000
+++ b/lisp/emulation/tpu-edt.el	Wed Aug 11 05:01:04 1993 +0000
@@ -5,7 +5,7 @@
 ;; Author: Rob Riepel <riepel@networking.stanford.edu>
 ;; Maintainer: Rob Riepel <riepel@networking.stanford.edu>
 ;; Version: 3.1
-;; Keywords: tpu edt tpu-edt
+;; Keywords: edt emulations
 
 ;; This file is part of GNU Emacs.
 
@@ -30,7 +30,7 @@
 ;;;  Revision and Version Information
 ;;;
 (defconst tpu-version "3.1" "TPU-edt version number.")
-(defconst tpu-revision "$Revision: 6.10 $" "Revision number of TPU-edt.")
+(defconst tpu-revision "$Revision: 6.11 $" "Revision number of TPU-edt.")
 
 
 ;;;
@@ -647,6 +647,10 @@
 
 (defvar tpu-help-enter (format "%s" "\eOM"))    ; tpu-help enter key symbol
 (defvar tpu-help-return (format "%s" "\r"))     ; tpu-help enter key symbol
+(defvar tpu-help-N "N")                         ; tpu-help "N" symbol
+(defvar tpu-help-n "n")                         ; tpu-help "n" symbol
+(defvar tpu-help-P "P")                         ; tpu-help "P" symbol
+(defvar tpu-help-p "p")                         ; tpu-help "p" symbol
 
 (defun tpu-help nil
   "Display TPU-edt help."
@@ -669,8 +673,8 @@
     (tpu-line-to-top-of-window)
 
     ;; Prompt for keys to describe, based on screen state (split/not split)
-    (let ((key nil) (split nil))
-      (while (not (equal tpu-help-return (format "%s" key)))
+    (let ((key nil) (fkey nil) (split nil))
+      (while (not (equal tpu-help-return fkey))
 	(if split
 	    (setq key
 		  (read-key-sequence
@@ -687,10 +691,11 @@
 	;;    RETURN  -  Exit from TPU-help
 	;;    default -  describe the key
 	;;
-	(cond ((equal tpu-help-enter (format "%s" key))
+	(setq fkey (format "%s" key))
+	(cond ((equal tpu-help-enter fkey)
 	       (setq split nil)
 	       (delete-other-windows))
-	      ((or (equal "N" key) (equal "n" key))
+	      ((or (equal tpu-help-N fkey) (equal tpu-help-n fkey))
 	       (cond (split
 	              (condition-case nil
 	        	  (scroll-other-window 8)
@@ -699,7 +704,7 @@
 	              (forward-page)
 	              (forward-line 1)
 	              (tpu-line-to-top-of-window))))
-	      ((or (equal "P" key) (equal "p" key))
+	      ((or (equal tpu-help-P fkey) (equal tpu-help-p fkey))
 	       (cond (split
 	              (condition-case nil
 	        	  (scroll-other-window -8)
@@ -708,7 +713,7 @@
 	              (backward-page 2)
 	              (forward-line 1)
 	              (tpu-line-to-top-of-window))))
-	      ((not (equal tpu-help-return (format "%s" key)))
+	      ((not (equal tpu-help-return fkey))
 	       (setq split t)
 	       (describe-key key)
 	       ;; If the key is undefined, leave the