Mercurial > hg > xemacs-beta
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)) |