comparison lisp/term/x-win.el @ 90602:b5c13d1564a9

Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 437-446) - Update from CVS - lisp/url/url-methods.el: Fix format error when http_proxy is empty string - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 137-140) - Update from CVS Revision: [e-mail]/emacs--unicode--0--patch-111

90601:a1a25ac6c88a

;; 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.
(and (fboundp 'menu-bar-open)
     (global-set-key [f10] 'menu-bar-open))

;; arch-tag: f1501302-db8b-4d95-88e3-116697d89f78
;;; x-win.el ends here

90602:b5c13d1564a9

;; 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))

;; arch-tag: f1501302-db8b-4d95-88e3-116697d89f78
;;; x-win.el ends here