Mercurial > emacs
changeset 43171:b9b20fd684a4
(terminal-map): Define [menu-bar] so global def is seen.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 07 Feb 2002 17:42:39 +0000 |
| parents | a2f11ee215ea |
| children | 78844af65a1f |
| files | lisp/terminal.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/terminal.el Thu Feb 07 17:40:44 2002 +0000 +++ b/lisp/terminal.el Thu Feb 07 17:42:39 2002 +0000 @@ -100,6 +100,9 @@ (if terminal-map nil (let ((map (make-sparse-keymap))) + ;; Prevent defining [menu-bar] as te-pass-through + ;; so we allow the global menu bar to be visible. + (define-key map [menu-bar] (make-sparse-keymap)) (define-key map [t] 'te-pass-through) (define-key map [switch-frame] 'handle-switch-frame) (define-key map "\e" terminal-meta-map) @@ -247,12 +250,9 @@ (where-is-internal 'te-escape-extended-command terminal-escape-map t) 'te-escape-extended-command)) - (let ((l (if (fboundp 'sortcar) - (sortcar (copy-sequence te-escape-command-alist) - 'string<) - (sort (copy-sequence te-escape-command-alist) - (function (lambda (a b) - (string< (car a) (car b)))))))) + (let ((l (sort (copy-sequence te-escape-command-alist) + (function (lambda (a b) + (string< (car a) (car b))))))) (while l (let ((doc (or (documentation (cdr (car l))) "Not documented")))