Mercurial > hg > xemacs-beta

comparison lisp/toolbar-items.el @ 371:cc15677e0335 r21-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b1
author cvs
date Mon, 13 Aug 2007 11:03:08 +0200
parents a4f53d9b3154
children 8626e4521993
comparison
equal deleted inserted replaced
370:bd866891f083 371:cc15677e0335
31 31
32 ;; This file is dumped with XEmacs (when window system and toolbar support 32 ;; This file is dumped with XEmacs (when window system and toolbar support
33 ;; is compiled in). 33 ;; is compiled in).
34 34
35 ;; Miscellaneous toolbar functions, useful for users to redefine, in 35 ;; Miscellaneous toolbar functions, useful for users to redefine, in
36 ;; order to get different behavior. 36 ;; order to get different behaviour.
37 37
38 ;;; Code: 38 ;;; Code:
39 39
40 ;; Suppress warning message from bytecompiler 40 ;; Suppress warning message from bytecompiler
41 (eval-when-compile 41 (eval-when-compile
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))))
398 397
399 (defun toolbar-news () 398 (defun toolbar-news ()
400 "Run News." 399 "Run News."
401 (interactive) 400 (interactive)
402 (let ((command (cdr-safe 401 (let ((command (cdr-safe