emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/emulation/tpu-mapper.el,v


From: Glenn Morris
Subject: [Emacs-diffs] Changes to emacs/lisp/emulation/tpu-mapper.el,v
Date: Wed, 07 Nov 2007 03:39:09 +0000

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       07/11/07 03:39:09

Index: tpu-mapper.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emulation/tpu-mapper.el,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -b -r1.24 -r1.25
--- tpu-mapper.el       30 Oct 2007 06:24:00 -0000      1.24
+++ tpu-mapper.el       7 Nov 2007 03:39:09 -0000       1.25
@@ -183,11 +183,7 @@
               (insert (format"(global-set-key %s %s)\n" tpu-key func))
               (set-buffer "Gold-Keys")
               (insert (format "(define-key GOLD-map %s %s)\n" tpu-key 
gold-func))
-              (set-buffer "Directions"))
-             ;; bogosity to get next prompt to come up, if the user hits <CR>!
-             ;; check periodically to see if this is still needed...
-             (t
-              (with-no-warnings (format "%s" tpu-key)))))
+              (set-buffer "Directions"))))
     (message "Press %s%s: " ident descrip)
     (setq tpu-key-seq (read-event))
     (setq tpu-key (concat "[" (format "%s" tpu-key-seq) "]"))
@@ -196,12 +192,7 @@
           (insert (format"(define-key tpu-global-map %s %s)\n" tpu-key func))
           (set-buffer "Gold-Keys")
           (insert (format "(define-key tpu-gold-map %s %s)\n" tpu-key 
gold-func))
-          (set-buffer "Directions"))
-         ;; bogosity to get next prompt to come up, if the user hits <CR>!
-         ;; check periodically to see if this is still needed...
-         ;; byte-opt warns that the return value is unused.
-         (t
-          (with-no-warnings (format "%s" tpu-key)))))
+          (set-buffer "Directions"))))
     tpu-key)
 
 (set-buffer "Keys")




reply via email to

[Prev in Thread] Current Thread [Next in Thread]