procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Replace an obsolete alias in tpu-mapper

Browse source 
* lisp/obsolete/tpu-mapper.el (tpu-map-key, tpu-mapper):
Replace obsolete alias.
This commit is contained in:
Glenn Morris 2018-03-13 13:49:53 -04:00
parent a6437924f7
commit 9edf82a6d6
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/obsolete/tpu-mapper.el
View file

@ -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")