.emacs-my
changeset 1407 9ea890c729d8
parent 1405 fffa9d2a328f
child 1409 d9d85b71260c
equal deleted inserted replaced
1406:0fddf6d2ccf2 1407:9ea890c729d8
   323   (if (fboundp 'toggle-frame-maximized)
   323   (if (fboundp 'toggle-frame-maximized)
   324       (toggle-frame-maximized)
   324       (toggle-frame-maximized)
   325     (my-maximize) ))
   325     (my-maximize) ))
   326 
   326 
   327 (menu-bar-mode -1)
   327 (menu-bar-mode -1)
   328 (tooltip-mode -1)
       
   329 (when window-system
   328 (when window-system
   330   (mouse-avoidance-mode 'animate)
   329   (mouse-avoidance-mode 'animate)
   331   (scroll-bar-mode 1)
   330   (scroll-bar-mode 1)
   332   (tool-bar-mode -1)
   331   (tool-bar-mode -1)
       
   332   (tooltip-mode -1)
   333   (setq-default line-spacing nil)
   333   (setq-default line-spacing nil)
   334   (defun my-popup-menu ()
   334   (defun my-popup-menu ()
   335     "Menu from keyboard by emulating mouse event."
   335     "Menu from keyboard by emulating mouse event."
   336     (interactive)
   336     (interactive)
   337     (mouse-popup-menubar
   337     (mouse-popup-menubar