[Emacs-diffs] Changes to emacs/lisp/term/x-win.el,v

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   07/08/31 15:39:19

Index: term/x-win.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/term/x-win.el,v
retrieving revision 1.208
retrieving revision 1.209
diff -u -b -r1.208 -r1.209
--- term/x-win.el       31 Aug 2007 10:13:26 -0000      1.208
+++ term/x-win.el       31 Aug 2007 15:39:18 -0000      1.209
@@ -2561,22 +2561,10 @@
 (add-to-list 'frame-creation-function-alist '(x . x-create-frame-with-faces))
 (add-to-list 'window-system-initialization-alist '(x . 
x-initialize-window-system))
 
-(provide 'x-win)
-
 ;; Initiate drag and drop
 (add-hook 'after-make-frame-functions 'x-dnd-init-frame)
 (define-key special-event-map [drag-n-drop] 'x-dnd-handle-drag-n-drop-event)
 
-;; Let F10 do menu bar navigation.
-(defun x-menu-bar-open (&optional frame)
-  "Open the menu bar if `menu-bar-mode' is on. otherwise call `tmm-menubar'."
-  (interactive "i")
-  (if menu-bar-mode (menu-bar-open frame)
-    (tmm-menubar)))
-                  
-(and (fboundp 'menu-bar-open)
-     (global-set-key [f10] 'x-menu-bar-open))
-
 (defcustom x-gtk-stock-map
   '(
     ("etc/images/new" . "gtk-new")
@@ -2614,5 +2602,7 @@
         (value (assoc-string (or key file-sans) x-gtk-stock-map)))
     (and value (cdr value))))
 
+(provide 'x-win)
+
 ;; arch-tag: f1501302-db8b-4d95-88e3-116697d89f78
 ;;; x-win.el ends here