;;; edt.el --- enhanced EDT keypad mode emulation for GNU Emacs
-;; Copyright (C) 1986, 1992-1995, 2000-2015 Free Software Foundation,
+;; Copyright (C) 1986, 1992-1995, 2000-2016 Free Software Foundation,
;; Inc.
-;; Author: Kevin Gallagher <Kevin.Gallagher@boeing.com>
-;; Maintainer: Kevin Gallagher <Kevin.Gallagher@boeing.com>
+;; Author: Kevin Gallagher <kevin.gal@verizon.net>
+;; Maintainer: Kevin Gallagher <kevin.gal@verizon.net>
;; Keywords: emulations
;; This file is part of GNU Emacs.
;; The EDT emulation consists of the following files:
;;
;; edt.texi - User manual
-;; edt-user.el - Sample Customization File
+;; edt-user.el - Sample Customization File (located in Emacs
+;; distribution etc directory)
;; edt.el - EDT Emulation Functions and Default Configuration
;; edt-lk201.el - Built-in support for DEC LK-201 Keyboards
;; edt-vt100.el - Built-in support for DEC VT-100 (and above) terminals
(defcustom edt-word-entities '(?\t)
"Specifies the list of EDT word entity characters.
-The default list, (\?\\t), contains just the TAB character, which
+The default list, (?\\t), contains just the TAB character, which
emulates EDT. Characters are specified in the list using their
decimal ASCII values. A question mark, followed by the actual
character, can be used to indicate the numerical value of the
character, instead of the actual decimal value. So, ?A means the
-numerical value for the letter A, \?/ means the numerical value for /,
+numerical value for the letter A, ?/ means the numerical value for /,
etc. Several unprintable and special characters have special
representations, which you can also use:
- \?\\b specifies BS, C-h
- \?\\t specifies TAB, C-i
- \?\\n specifies LFD, C-j
- \?\\v specifies VTAB, C-k
- \?\\f specifies FF, C-l
- \?\\r specifies CR, C-m
- \?\\e specifies ESC, C-[
- \?\\\\ specifies \\
+ ?\\b specifies BS, C-h
+ ?\\t specifies TAB, C-i
+ ?\\n specifies LFD, C-j
+ ?\\v specifies VTAB, C-k
+ ?\\f specifies FF, C-l
+ ?\\r specifies CR, C-m
+ ?\\e specifies ESC, C-[
+ ?\\\\ specifies \\
In EDT Emulation movement-by-word commands, each character in the list
will be treated as if it were a separate word."
;;; o edt-emulation-on o edt-load-keys
;;;
(defconst edt-emacs-variant (if (featurep 'emacs) "gnu" "xemacs")
- "Indicates Emacs variant: GNU Emacs or XEmacs \(aka Lucid Emacs\).")
+ "Indicates Emacs variant: GNU Emacs or XEmacs (aka Lucid Emacs).")
(defconst edt-window-system (if (featurep 'emacs) window-system (console-type))
- "Indicates window system \(in GNU Emacs\) or console type \(in XEmacs\).")
+ "Indicates window system (in GNU Emacs) or console type (in XEmacs).")
(declare-function x-server-vendor "xfns.c" (&optional terminal))
(if (edt-y-or-n-p "Do you want to run it now? ")
(load-file path)
(error "EDT Emulation not configured")))
- (insert "Nope, I can't seem to find it. :-(\n\n")
+ (insert (substitute-command-keys
+ "Nope, I can't seem to find it. :-(\n\n"))
(sit-for 20)
(error "EDT Emulation not configured"))))))