equal
deleted
inserted
replaced
95 (add-to-list 'initial-frame-alist (cons 'width tx)) |
95 (add-to-list 'initial-frame-alist (cons 'width tx)) |
96 (add-to-list 'initial-frame-alist (cons 'height ty)) |
96 (add-to-list 'initial-frame-alist (cons 'height ty)) |
97 ) ) |
97 ) ) |
98 |
98 |
99 (menu-bar-mode -1) |
99 (menu-bar-mode -1) |
100 (tool-bar-mode -1) |
|
101 (when window-system |
100 (when window-system |
|
101 (scroll-bar-mode 1) |
|
102 (tool-bar-mode -1) |
102 (defun my-popup-menu () |
103 (defun my-popup-menu () |
103 (interactive) |
104 (interactive) |
104 (mouse-popup-menubar |
105 (mouse-popup-menubar |
105 (list (list (/ (display-pixel-width) 2) 10) (get-buffer-window (buffer-name))) |
106 (list (list (/ (display-pixel-width) 2) 10) (get-buffer-window (buffer-name))) |
106 nil) |
107 nil) |
107 ) |
108 ) |
108 (global-set-key [f10] 'my-popup-menu) |
109 (global-set-key [f10] 'my-popup-menu) |
109 (global-set-key [apps] 'my-popup-menu) |
110 (global-set-key [apps] 'my-popup-menu) |
110 (global-set-key [menu] 'my-popup-menu) |
111 (global-set-key [menu] 'my-popup-menu) |
111 (when (>= emacs-major-version 22) (tooltip-mode -1)) |
112 (when (>= emacs-major-version 22) (tooltip-mode -1)) |
112 (scroll-bar-mode 1) |
|
113 ) |
113 ) |
114 |
114 |
115 (setq frame-title-format "Emacs - %b") |
115 (setq frame-title-format "Emacs - %b") |
116 |
116 |
117 (setq default-header-line-format nil) |
117 (setq default-header-line-format nil) |