Mercurial > hg > xemacs-beta

comparison lisp/toolbar-items.el @ 363:972bbb6d6ca2 r21-1-11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-11
author cvs
date Mon, 13 Aug 2007 10:59:28 +0200
parents 70ad99077275
children a4f53d9b3154
comparison
equal deleted inserted replaced
362:1e474c183006 363:972bbb6d6ca2
380 (if (not toolbar-news-use-separate-frame) 380 (if (not toolbar-news-use-separate-frame)
381 (gnus) 381 (gnus)
382 (unless (frame-live-p toolbar-news-frame) 382 (unless (frame-live-p toolbar-news-frame)
383 (setq toolbar-news-frame (make-frame toolbar-news-frame-plist)) 383 (setq toolbar-news-frame (make-frame toolbar-news-frame-plist))
384 (add-hook 'gnus-exit-gnus-hook 384 (add-hook 'gnus-exit-gnus-hook
385 (lambda () 385 (lambda ()
386 (when (frame-live-p toolbar-news-frame) 386 (when (frame-live-p toolbar-news-frame)
387 (if (cdr (frame-list)) 387 (if (cdr (frame-list))
388 (delete-frame toolbar-news-frame)) 388 (delete-frame toolbar-news-frame))
389 (setq toolbar-news-frame nil)))) 389 (setq toolbar-news-frame nil))))
390 (select-frame toolbar-news-frame) 390 (select-frame toolbar-news-frame)
391 (gnus)) 391 (gnus))
392 (when (framep toolbar-news-frame) 392 (when (framep toolbar-news-frame)
393 (when (frame-iconified-p toolbar-news-frame) 393 (when (frame-iconified-p toolbar-news-frame)
394 (deiconify-frame toolbar-news-frame)) 394 (deiconify-frame toolbar-news-frame))
395 (select-frame toolbar-news-frame) 395 (select-frame toolbar-news-frame)
396 (raise-frame toolbar-news-frame)))) 396 (raise-frame toolbar-news-frame)
397 (switch-to-buffer gnus-group-buffer))))
397 398
398 (defun toolbar-news () 399 (defun toolbar-news ()
399 "Run News." 400 "Run News."
400 (interactive) 401 (interactive)
401 (let ((command (cdr-safe 402 (let ((command (cdr-safe