comparison lisp/emulators/tpu-mapper.el @ 52:461c7ba8286a r19-16-pre1

Import from CVS: tag r19-16-pre1
author cvs
date Mon, 13 Aug 2007 08:57:19 +0200
parents b82b59fe008d
children 131b0175ea99
comparison
equal deleted inserted replaced
51:69ce12f60f55 52:461c7ba8286a
328 328
329 (set-buffer "Gold-Keys") 329 (set-buffer "Gold-Keys")
330 (cond 330 (cond
331 ((not (equal tpu-enter tpu-return)) 331 ((not (equal tpu-enter tpu-return))
332 (insert " 332 (insert "
333 ;; Minibuffer map additions to make KP_enter = RET 333 ;; Minibuffer map additions to make KP-enter = RET
334 ;; 334 ;;
335 ") 335 ")
336 336
337 (insert (format "(define-key minibuffer-local-map %s 'exit-minibuffer)\n" tpu-enter)) 337 (insert (format "(define-key minibuffer-local-map %s 'exit-minibuffer)\n" tpu-enter))
338 (insert (format "(define-key minibuffer-local-ns-map %s 'exit-minibuffer)\n" tpu-enter)) 338 (insert (format "(define-key minibuffer-local-ns-map %s 'exit-minibuffer)\n" tpu-enter))