Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-win.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents ec9a17fef872
children
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
62 (summary 62 (summary
63 (vertical 1.0 63 (vertical 1.0
64 (summary 1.0 point) 64 (summary 1.0 point)
65 (if gnus-carpal '(summary-carpal 4)))) 65 (if gnus-carpal '(summary-carpal 4))))
66 (article 66 (article
67 (cond 67 (cond
68 ((and gnus-use-picons 68 ((and gnus-use-picons
69 (eq gnus-picons-display-where 'picons)) 69 (eq gnus-picons-display-where 'picons))
70 '(frame 1.0 70 '(frame 1.0
71 (vertical 1.0 71 (vertical 1.0
72 (summary 0.25 point) 72 (summary 0.25 point)
73 (if gnus-carpal '(summary-carpal 4)) 73 (if gnus-carpal '(summary-carpal 4))
196 196
197 (defun gnus-kill-gnus-frames () 197 (defun gnus-kill-gnus-frames ()
198 "Kill all frames Gnus has created." 198 "Kill all frames Gnus has created."
199 (while gnus-created-frames 199 (while gnus-created-frames
200 (when (frame-live-p (car gnus-created-frames)) 200 (when (frame-live-p (car gnus-created-frames))
201 ;; We slap a condition-case around this `delete-frame' to ensure 201 ;; We slap a condition-case around this `delete-frame' to ensure
202 ;; against errors if we try do delete the single frame that's left. 202 ;; against errors if we try do delete the single frame that's left.
203 (ignore-errors 203 (ignore-errors
204 (delete-frame (car gnus-created-frames)))) 204 (delete-frame (car gnus-created-frames))))
205 (pop gnus-created-frames))) 205 (pop gnus-created-frames)))
206 206
223 (if (or (listp setting) 223 (if (or (listp setting)
224 (not (and gnus-window-configuration 224 (not (and gnus-window-configuration
225 (memq setting '(group summary article))))) 225 (memq setting '(group summary article)))))
226 setting 226 setting
227 (let* ((elem 227 (let* ((elem
228 (cond 228 (cond
229 ((eq setting 'group) 229 ((eq setting 'group)
230 (gnus-window-configuration-element 230 (gnus-window-configuration-element
231 '(group newsgroups ExitNewsgroup))) 231 '(group newsgroups ExitNewsgroup)))
232 ((eq setting 'summary) 232 ((eq setting 'summary)
233 (gnus-window-configuration-element 233 (gnus-window-configuration-element
415 (unwind-protect 415 (unwind-protect
416 (if gnus-use-full-window 416 (if gnus-use-full-window
417 ;; We want to remove all other windows. 417 ;; We want to remove all other windows.
418 (if (not gnus-frame-split-p) 418 (if (not gnus-frame-split-p)
419 ;; This is not a `frame' split, so we ignore the 419 ;; This is not a `frame' split, so we ignore the
420 ;; other frames. 420 ;; other frames.
421 (delete-other-windows) 421 (delete-other-windows)
422 ;; This is a `frame' split, so we delete all windows 422 ;; This is a `frame' split, so we delete all windows
423 ;; on all frames. 423 ;; on all frames.
424 (gnus-delete-windows-in-gnusey-frames)) 424 (gnus-delete-windows-in-gnusey-frames))
425 ;; Just remove some windows. 425 ;; Just remove some windows.
437 (lambda (elem) 437 (lambda (elem)
438 (if (symbolp (cdr elem)) 438 (if (symbolp (cdr elem))
439 (when (and (boundp (cdr elem)) 439 (when (and (boundp (cdr elem))
440 (symbol-value (cdr elem))) 440 (symbol-value (cdr elem)))
441 (get-buffer (symbol-value (cdr elem)))) 441 (get-buffer (symbol-value (cdr elem))))
442 (when (cdr elem) 442 (when (cdr elem)
443 (get-buffer (cdr elem))))) 443 (get-buffer (cdr elem)))))
444 gnus-window-to-buffer))) 444 gnus-window-to-buffer)))
445 (mapcar 445 (mapcar
446 (lambda (frame) 446 (lambda (frame)
447 (unless (eq (cdr (assq 'minibuffer 447 (unless (eq (cdr (assq 'minibuffer
448 (frame-parameters frame))) 448 (frame-parameters frame)))
449 'only) 449 'only)
450 (select-frame frame) 450 (select-frame frame)