# HG changeset patch # User Stefan Monnier # Date 1199429537 0 # Node ID a9700a12dbad142156d15f0136adedceb4911e28 # Parent a7f6615bcf7fe8cc46af5df5cd26cedf07c66806 (tpu-load-xkeys): Recommend to run the tpu-mapper command rather than load the tpu-mapper package. diff -r a7f6615bcf7f -r a9700a12dbad lisp/emulation/tpu-edt.el --- 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 ;; Maintainer: Rob Riepel @@ -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)