Mercurial > emacs
changeset 87569:a9700a12dbad
(tpu-load-xkeys): Recommend to run the
tpu-mapper command rather than load the tpu-mapper package.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Fri, 04 Jan 2008 06:52:17 +0000 |
parents | a7f6615bcf7f |
children | 66e47567c42d |
files | lisp/emulation/tpu-edt.el |
diffstat | 1 files changed, 9 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emulation/tpu-edt.el Fri Jan 04 06:52:03 2008 +0000 +++ b/lisp/emulation/tpu-edt.el Fri Jan 04 06:52:17 2008 +0000 @@ -1,7 +1,7 @@ ;;; tpu-edt.el --- Emacs emulating TPU emulating EDT ;; Copyright (C) 1993, 1994, 1995, 2000, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007 Free Software Foundation, Inc. +;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc. ;; Author: Rob Riepel <riepel@networking.stanford.edu> ;; Maintainer: Rob Riepel <riepel@networking.stanford.edu> @@ -66,11 +66,10 @@ ;; style keyboards. VT terminal emulators, including xterm with the ;; appropriate key translations, work just fine too. -;; TPU-edt works with X-windows. This is accomplished through a TPU-edt X -;; key map. The TPU-edt module tpu-mapper creates this map and stores it -;; in a file. Tpu-mapper will be run automatically the first time you -;; invoke the X-windows version of emacs, or you can run it by hand. See -;; the commentary in tpu-mapper.el for details. +;; TPU-edt works with X-windows. This is accomplished through a TPU-edt +;; X key map. The tpu-mapper command creates this map and stores it in a +;; file. See the tpu-mapper command help for more information, or just +;; run it and follow the directions. ;; %% Differences Between TPU-edt and DEC TPU/edt @@ -2347,10 +2346,10 @@ (cond ((file-readable-p file) (load-file file)) (t - ;; FIXME: This used to force the user to build `file'. With the - ;; new code, such a file is not even necessary, but we'll keep - ;; a warning message. - (message "%s not found: use tpu-mapper.el to create it" + ;; This used to force the user to build `file'. With the + ;; new code, such a file may not be necessary. In case it + ;; is, issue a message giving a hint as to how to build it. + (message "%s not found: use M-x tpu-mapper to create it" (abbreviate-file-name file))))) (defun tpu-copy-keyfile (oldname newname)