Mercurial > hg > xemacs-beta

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