Mercurial > hg > xemacs-beta

diff lisp/x11/x-toolbar.el @ 14:9ee227acff29 r19-15b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b90
author cvs
date Mon, 13 Aug 2007 08:48:42 +0200
parents 49a24b4fd526
children 0293115a14e9
line wrap: on
line diff
--- a/lisp/x11/x-toolbar.el	Mon Aug 13 08:48:18 2007 +0200
+++ b/lisp/x11/x-toolbar.el	Mon Aug 13 08:48:42 2007 +0200
@@ -123,12 +123,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)