Re: cormanlisp patches for 5.11
Reini Urban <[email protected]>
| Newsgroups | gmane.lisp.ilisp.devel |
|---|---|
| Message-ID | <[email protected]> |
Paolo Amoroso schrieb: > Both your latest patches--i.e. for code and documentation--seem to apply > cleanly. I will integrate them in at most a couple of days and upload a new > snapshot. > > Note to maintainers: if you plan to commit some changes, please wait until > I'm done with Reini's code. I would prefer not to bother him again with > more patches :) I have another fix for XEmacs and the seperate output frame (ilisp-out): This removes the toolbar, menu and gutter. -- Reini Urban http://xarch.tu-graz.ac.at/home/rurban/
ilisp-out.patch
(text/plain, 884 B)
--- ilisp-out.el.orig Fri May 24 17:54:00 2002
+++ ilisp-out.el Thu May 30 15:54:22 2002
@@ -27,7 +27,7 @@
(defun ilisp-make-output-frame (name)
(when (and window-system ilisp-*use-frame-for-output*)
- (make-frame `((name . ,name)
+ (setq frame (make-frame `((name . ,name)
(minibuffer . nil)
(visibility . nil)
(unsplittable . t)
@@ -37,7 +37,13 @@
;; in at least Emacs 21.1 running on Windows.
;; (icon-type . ,(ilisp-find-ilisp-icon))
))))
-
+ (if (string-match "XEmacs" emacs-version)
+ (set-frame-properties frame '(default-toolbar-visible-p nil
+ default-gutter-visible-p nil
+ menubar-visible-p nil
+ has-modeline-p t))
+ )
+ frame)
(defvar ilisp-display-output-function 'ilisp-display-output-default
"The name of a function to display all ilisp output.