Mercurial > hg > xemacs-beta

diff lisp/x11/x-toolbar.el @ 80:1ce6082ce73f r20-0b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b90
author cvs
date Mon, 13 Aug 2007 09:06:37 +0200
parents c0c698873ce1
children 821dec489c24
line wrap: on
line diff
--- a/lisp/x11/x-toolbar.el	Mon Aug 13 09:05:44 2007 +0200
+++ b/lisp/x11/x-toolbar.el	Mon Aug 13 09:06:37 2007 +0200
@@ -120,12 +120,15 @@
 (defvar toolbar-news-frame nil
   "The frame in which news is displayed.")
 
+(defvar toolbar-news-frame-properties nil
+  "The properties of the frame in which news is displayed.")
+
 (defun toolbar-news ()
   "Run Gnus in a separate frame."
   (interactive)
   (when (or (not toolbar-news-frame)
 	    (not (frame-live-p toolbar-news-frame)))
-    (setq toolbar-news-frame (make-frame))
+    (setq toolbar-news-frame (make-frame toolbar-news-frame-properties))
     (add-hook 'gnus-exit-gnus-hook
 	      (lambda ()
 		(when (frame-live-p toolbar-news-frame)