mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

Rob Riepel <riepel at networking.stanford.edu>

Browse Source 
(tpu-map-key): Remove un-needed cond branch.
This commit is contained in:
Glenn Morris 2007-11-07 03:39:19 +00:00
parent dafac6f36e
commit 6ffadbb8c3
2 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2007-11-07 Rob Riepel <riepel@networking.stanford.edu>
* emulation/tpu-mapper.el (tpu-map-key): Remove un-needed cond branch.
2007-11-07 Johan Bockg,Ae(Brd <bojohan@gnu.org>
* eshell/esh-mode.el (eshell-output-filter):

13
lisp/emulation/tpu-mapper.el
View File

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