# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1013103759 0
# Node ID b9b20fd684a4cd1849ca945b94136ffe509a88bf
# Parent  a2f11ee215ea078b31fb3c88a55c0fcd32511765
(terminal-map): Define [menu-bar] so global def is seen.

diff -r a2f11ee215ea -r b9b20fd684a4 lisp/terminal.el
--- 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")))