From: Glenn Morris Date: Tue, 13 Mar 2018 17:49:53 +0000 (-0400) Subject: Replace an obsolete alias in tpu-mapper X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aa527be77068ebdfd846d2fa537428434433bb45;p=emacs.git Replace an obsolete alias in tpu-mapper * lisp/obsolete/tpu-mapper.el (tpu-map-key, tpu-mapper): Replace obsolete alias. --- diff --git a/lisp/obsolete/tpu-mapper.el b/lisp/obsolete/tpu-mapper.el index 6a5a83c888b..4cc2404e4e7 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")