Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
79:5b0a5bbffab6 80:1ce6082ce73f
118 ;; 118 ;;
119 119
120 (defvar toolbar-news-frame nil 120 (defvar toolbar-news-frame nil
121 "The frame in which news is displayed.") 121 "The frame in which news is displayed.")
122 122
123 (defvar toolbar-news-frame-properties nil
124 "The properties of the frame in which news is displayed.")
125
123 (defun toolbar-news () 126 (defun toolbar-news ()
124 "Run Gnus in a separate frame." 127 "Run Gnus in a separate frame."
125 (interactive) 128 (interactive)
126 (when (or (not toolbar-news-frame) 129 (when (or (not toolbar-news-frame)
127 (not (frame-live-p toolbar-news-frame))) 130 (not (frame-live-p toolbar-news-frame)))
128 (setq toolbar-news-frame (make-frame)) 131 (setq toolbar-news-frame (make-frame toolbar-news-frame-properties))
129 (add-hook 'gnus-exit-gnus-hook 132 (add-hook 'gnus-exit-gnus-hook
130 (lambda () 133 (lambda ()
131 (when (frame-live-p toolbar-news-frame) 134 (when (frame-live-p toolbar-news-frame)
132 (if (cdr (frame-list)) 135 (if (cdr (frame-list))
133 (delete-frame toolbar-news-frame)) 136 (delete-frame toolbar-news-frame))