diff options
| author | Richard M. Stallman | 1993-06-05 17:16:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-06-05 17:16:39 +0000 |
| commit | d0dbd3bfc119298e2bd66fe9a5d6a2cabe2477d9 (patch) | |
| tree | 0bb6ba0f2afb5ae4578026574d6e1a5c88a279ea | |
| parent | 633149516adc314beec6b1ebdb9eae2caaf0d866 (diff) | |
| download | emacs-d0dbd3bfc119298e2bd66fe9a5d6a2cabe2477d9.tar.gz emacs-d0dbd3bfc119298e2bd66fe9a5d6a2cabe2477d9.zip | |
(window-system): Enable menu bars only if
window-system is non-nil.
| -rw-r--r-- | lisp/menu-bar.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index e67fb70eede..0b0e694020b 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el | |||
| @@ -227,7 +227,8 @@ turn off menu bars; otherwise, turn on menu bars." | |||
| 227 | (setq frames (cdr frames))))) | 227 | (setq frames (cdr frames))))) |
| 228 | 228 | ||
| 229 | ;; Make frames created from now on have a menu bar. | 229 | ;; Make frames created from now on have a menu bar. |
| 230 | (menu-bar-mode t) | 230 | (if window-system |
| 231 | (menu-bar-mode t)) | ||
| 231 | 232 | ||
| 232 | (provide 'menu-bar) | 233 | (provide 'menu-bar) |
| 233 | 234 | ||