.emacs-my
changeset 429 998f33a8ec6e
parent 428 6e8b3a312262
child 430 16e7a5a565a9
equal deleted inserted replaced
428:6e8b3a312262 429:998f33a8ec6e
    90     ) )
    90     ) )
    91 
    91 
    92 (menu-bar-mode -1)
    92 (menu-bar-mode -1)
    93 (tool-bar-mode -1)
    93 (tool-bar-mode -1)
    94 (when window-system
    94 (when window-system
       
    95   (defun my-popup-menu ()
       
    96     (interactive)
       
    97     (popup-menu
       
    98      (mouse-menu-bar-map) ;; (mouse-menu-major-mode-map)
       
    99      (list (list (/ (display-pixel-width) 2) 10) (get-buffer-window (buffer-name)))))
       
   100   (global-set-key [f10] 'my-popup-menu)
    95   (when (>= emacs-major-version 22) (tooltip-mode -1))
   101   (when (>= emacs-major-version 22) (tooltip-mode -1))
    96   (scroll-bar-mode 1)
   102   (scroll-bar-mode 1)
    97   )
   103   )
    98 
   104 
    99 (setq frame-title-format "Emacs - %b")
   105 (setq frame-title-format "Emacs - %b")