diff options
author | 2000-06-09 19:07:39 +0000 | |
---|---|---|
committer | 2000-06-09 19:07:39 +0000 | |
commit | c6c47960411f80cb60019345c1f852b331c8a8bb (patch) | |
tree | 94a6fbdc38d1cca8b8e90485a82480fe2c0c5a9d | |
parent | 85dc0cf0d1c922ed6e8f7cccfc7c03aa36d81bb8 (diff) |
Remove toolbar and menubar from windows in multiple frame mode.
-rw-r--r-- | CHANGES | 4 | ||||
-rw-r--r-- | generic/proof-shell.el | 14 |
2 files changed, 17 insertions, 1 deletions
@@ -8,6 +8,10 @@ ** Generic Changes +*** Toolbar and menubar removed from small windows in multiple frame mode + + More screen real estate for your windows. + *** Added proof-next-error function, bound to C-c ` When the proof assistant batch loads files "in the background" diff --git a/generic/proof-shell.el b/generic/proof-shell.el index 29087683..cc5693d2 100644 --- a/generic/proof-shell.el +++ b/generic/proof-shell.el @@ -1991,8 +1991,20 @@ Internal variable, setting this will have no effect!") (setq special-display-regexps (union special-display-regexps (list proof-shell-special-display-regexp))) + ;; If we're on XEmacs with toolbar, turn off toolbar and + ;; menubar for the small frames to save space. + (if (featurep 'toolbar) + (progn + (proof-with-current-buffer-if-exists + proof-response-buffer + (set-specifier default-toolbar-visible-p nil (current-buffer)) + (set-specifier menubar-visible-p nil (current-buffer))) + (proof-with-current-buffer-if-exists + proof-goals-buffer + (set-specifier default-toolbar-visible-p nil (current-buffer)) + (set-specifier menubar-visible-p nil (current-buffer))))?) ;; Try to trigger re-display of goals/response buffers, - ;; on next interaction. Do this by + ;; on next interaction. ;; FIXME: would be nice to do the re-display here, rather ;; than waiting for next re-display (delete-other-windows |