Mercurial > hg > xemacs-beta

comparison lisp/x11/x-toolbar.el @ 76:c0c698873ce1 r20-0b33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b33
author cvs
date Mon, 13 Aug 2007 09:05:10 +0200
parents 131b0175ea99
children 1ce6082ce73f
comparison
equal deleted inserted replaced
75:a4e0195b387b 76:c0c698873ce1
52 (if (or (not toolbar-mail-frame) 52 (if (or (not toolbar-mail-frame)
53 (not (frame-live-p toolbar-mail-frame))) 53 (not (frame-live-p toolbar-mail-frame)))
54 (progn 54 (progn
55 (setq toolbar-mail-frame (make-frame)) 55 (setq toolbar-mail-frame (make-frame))
56 (add-hook 'vm-quit-hook 56 (add-hook 'vm-quit-hook
57 '(lambda () 57 (lambda ()
58 (save-excursion 58 (save-excursion
59 (if (frame-live-p toolbar-mail-frame) 59 (if (frame-live-p toolbar-mail-frame)
60 (delete-frame toolbar-mail-frame))))) 60 (delete-frame toolbar-mail-frame)))))
61 (select-frame toolbar-mail-frame) 61 (select-frame toolbar-mail-frame)
62 (raise-frame toolbar-mail-frame) 62 (raise-frame toolbar-mail-frame)
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 (defun toolbar-news () 123 (defun toolbar-news ()
124 "Run GNUS in a separate frame." 124 "Run Gnus in a separate frame."
125 (interactive) 125 (interactive)
126 (if (or (not toolbar-news-frame) 126 (when (or (not toolbar-news-frame)
127 (not (frame-live-p toolbar-news-frame))) 127 (not (frame-live-p toolbar-news-frame)))
128 (progn 128 (setq toolbar-news-frame (make-frame))
129 (setq toolbar-news-frame (make-frame)) 129 (add-hook 'gnus-exit-gnus-hook
130 (add-hook 'gnus-exit-gnus-hook 130 (lambda ()
131 '(lambda () 131 (when (frame-live-p toolbar-news-frame)
132 (if (frame-live-p toolbar-news-frame) 132 (if (cdr (frame-list))
133 (delete-frame toolbar-news-frame)))) 133 (delete-frame toolbar-news-frame))
134 (select-frame toolbar-news-frame) 134 (setq toolbar-news-frame nil))))
135 (raise-frame toolbar-news-frame) 135 (select-frame toolbar-news-frame)
136 (gnus))) 136 (raise-frame toolbar-news-frame)
137 (gnus))
137 (if (frame-iconified-p toolbar-news-frame) 138 (if (frame-iconified-p toolbar-news-frame)
138 (deiconify-frame toolbar-news-frame)) 139 (deiconify-frame toolbar-news-frame))
139 (select-frame toolbar-news-frame) 140 (select-frame toolbar-news-frame)
140 (raise-frame toolbar-news-frame)) 141 (raise-frame toolbar-news-frame))
141 142