From b019da530632e5e70ad0a033822ad92404f606e0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 27 Jul 1995 07:35:25 +0000 Subject: [PATCH] Comment changes. --- lisp/emulation/tpu-mapper.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/lisp/emulation/tpu-mapper.el b/lisp/emulation/tpu-mapper.el index 3f9171ec7ec..db84904c752 100644 --- a/lisp/emulation/tpu-mapper.el +++ b/lisp/emulation/tpu-mapper.el @@ -1,4 +1,4 @@ -;;; tpu-mapper.el --- Create a TPU-edt keymap file for x-windows emacs. +;;; tpu-mapper.el --- Create a TPU-edt X-windows keymap file ;; Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc. @@ -31,10 +31,10 @@ ;;; Usage: -;; Simply load this file into the X-windows version of emacs (version 19) -;; using the following command. +;; Simply load this file into the X-windows version of emacs using the +;; following command. -;; emacs -q -l tpu-mapper.el +;; emacs -q -l tpu-mapper ;; The "-q" option prevents loading of your .emacs file (commands therein ;; might confuse this program). @@ -49,11 +49,11 @@ ;; Finally, you will be prompted for the name of the file to store the key ;; definitions. If you chose the default, TPU-edt will find it and load it ;; automatically. If you specify a different file name, you will need to -;; set the variable "tpu-xkeys-file" before loading TPU-edt. Here's how +;; set the variable "tpu-xkeys-file" before starting TPU-edt. Here's how ;; you might go about doing that in your .emacs file. ;; (setq tpu-xkeys-file (expand-file-name "~/.my-emacs-x-keys")) -;; (load "tpu-edt") +;; (tpu-edt) ;;; Known Problems: @@ -66,6 +66,7 @@ ;;; Code: + ;;; ;;; Make sure we're running X-windows and Emacs version 19 ;;; @@ -170,7 +171,7 @@ (t (message "Hit carriage-return to continue ") (setq tpu-return-seq (read-event)) - (setq tpu-return (concat "[" (format "%s" tpu-return-seq) "]")))) + (setq tpu-return (concat "[" (format "%s" tpu-return-seq) "]")))) ;;; -- 2.39.2