Mercurial > emacs
comparison lisp/startup.el @ 8759:19d9177069c4
(command-line): If initial X frame has a menu bar, mark menu-bar-mode as on.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 15 Sep 1994 20:09:49 +0000 |
| parents | db4473742de7 |
| children | 54b7aaded223 |
comparison
equal
deleted
inserted
replaced
| 8758:fac1c4722677 | 8759:19d9177069c4 |
|---|---|
| 311 ;; Under X Windows, this creates the X frame and deletes the terminal frame. | 311 ;; Under X Windows, this creates the X frame and deletes the terminal frame. |
| 312 (if (fboundp 'face-initialize) | 312 (if (fboundp 'face-initialize) |
| 313 (face-initialize)) | 313 (face-initialize)) |
| 314 (if (fboundp 'frame-initialize) | 314 (if (fboundp 'frame-initialize) |
| 315 (frame-initialize)) | 315 (frame-initialize)) |
| 316 ;; If frame was created with a menu bar, set menu-bar-mode on. | |
| 317 (if (and (eq window-system 'x) | |
| 318 (> (cdr (assq 'menu-bar-lines (frame-parameters))) 0)) | |
| 319 (menu-bar-mode t)) | |
| 316 | 320 |
| 317 (run-hooks 'before-init-hook) | 321 (run-hooks 'before-init-hook) |
| 318 | 322 |
| 319 ;; Run the site-start library if it exists. The point of this file is | 323 ;; Run the site-start library if it exists. The point of this file is |
| 320 ;; that it is run before .emacs. There is no point in doing this after | 324 ;; that it is run before .emacs. There is no point in doing this after |