Mercurial > emacs
comparison lisp/menu-bar.el @ 3500:78c1c1e9f4d2
(window-system): Enable menu bars only if
window-system is non-nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 05 Jun 1993 17:16:39 +0000 |
| parents | 7d9b10bea55f |
| children | 5fb4eefbd7ac |
comparison
equal
deleted
inserted
replaced
| 3499:6428162f137c | 3500:78c1c1e9f4d2 |
|---|---|
| 225 '(menu-bar-lines . 1) | 225 '(menu-bar-lines . 1) |
| 226 '(menu-bar-lines . 0))))) | 226 '(menu-bar-lines . 0))))) |
| 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 |
| 234 ;;; menu-bar.el ends here | 235 ;;; menu-bar.el ends here |