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 |