[Emacs-diffs] emacs-26 9edf82a 2/2: Replace an obsolete alias in tpu-mapper

[Glenn Morris]

branch: emacs-26
commit 9edf82a6d6f2c8f510f5bf99eef7f2ae5397208d
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    Replace an obsolete alias in tpu-mapper
    
    * lisp/obsolete/tpu-mapper.el (tpu-map-key, tpu-mapper):
    Replace obsolete alias.
---
 lisp/obsolete/tpu-mapper.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/obsolete/tpu-mapper.el b/lisp/obsolete/tpu-mapper.el
index 6a5a83c..4cc2404 100644
--- a/lisp/obsolete/tpu-mapper.el
+++ b/lisp/obsolete/tpu-mapper.el
@@ -56,7 +56,7 @@
           (set-buffer "Keys")
           (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))))
+          (insert (format "(define-key tpu-gold-map %s %s)\n" tpu-key 
gold-func))))
     (message "Press %s%s: " ident descrip)
     (setq tpu-key-seq (read-event)
           tpu-key (format "[%s]" tpu-key-seq))
@@ -203,7 +203,7 @@ your local X guru can try to figure out why the key is 
being ignored."
 ")
   (set-buffer "Directions")
 
-  (tpu-map-key "PF1"  " - The GOLD key"               "GOLD-map"               
  "'keyboard-quit")
+  (tpu-map-key "PF1"  " - The GOLD key"               "tpu-gold-map"           
   "'keyboard-quit")
   (tpu-map-key "PF2"  " - The Keypad Help key"        "'tpu-help"              
   "'help-for-help")
   (tpu-map-key "PF3"  " - The Find/Find-Next key"     "'tpu-search-again"      
   "'tpu-search")
   (tpu-map-key "PF4"  " - The Del/Undelete Line key"  
"'tpu-delete-current-line"  "'tpu-undelete-lines")