procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/gnus/gnus-win.el (gnus-configure-frame): Check for window-live-p.

Browse source 
* doc/misc/gnus.texi (Tabbed Interface): New node.  (bug#37998)
This commit is contained in:
Juri Linkov 2019-11-30 23:36:52 +02:00
parent 54c792ece6
commit df89d6d6dc
2 changed files with 38 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
doc/misc/gnus.texi
View file

@ -813,6 +813,7 @@ Various
* Symbolic Prefixes:: How to supply some Gnus functions with options.
* Formatting Variables:: You can specify what buffers should look like.
* Window Layout:: Configuring the Gnus buffer windows.
* Tabbed Interface:: Configuring the Gnus tabs.
* Faces and Fonts:: How to change how faces look.
* Mode Lines:: Displaying information in the mode lines.
* Highlighting and Menus:: Making buffers look all nice and cozy.
@ -22189,6 +22190,7 @@ to you, using @kbd{G b u} and updating the group will usually fix this.
* Symbolic Prefixes:: How to supply some Gnus functions with options.
* Formatting Variables:: You can specify what buffers should look like.
* Window Layout:: Configuring the Gnus buffer windows.
* Tabbed Interface:: Configuring the Gnus tabs.
* Faces and Fonts:: How to change how faces look.
* Mode Lines:: Displaying information in the mode lines.
* Highlighting and Menus:: Making buffers look all nice and cozy.
@ -22985,6 +22987,36 @@ between summary buffer (top one-sixth) and article buffer (bottom).
@end itemize
@node Tabbed Interface
@section Tabbed Interface
@cindex tabbed interface
@cindex tabs
Gnus supports display of different buffers in dedicated tabs
that you can select using the tab bar.
To open the group buffer in a new tab named @samp{Gnus}, use:
@lisp
(push '("\\`\\*Group\\*\\'" .
(display-buffer-in-tab
(name . "Gnus")))
display-buffer-alist)
@end lisp
To read every summary in a separate explicitly named tab, use:
@lisp
(push '("\\`\\*Summary .*\\*\\'" .
(display-buffer-in-tab
(name . (lambda (buffer _alist)
(setq buffer (buffer-name buffer))
(when (string-match "\\`\\*Summary \\(.*\\)\\*\\'" buffer)
(format "Group %s" (match-string 1 buffer)))))))
display-buffer-alist)
@end lisp
@node Faces and Fonts
@section Faces and Fonts
@cindex faces

9
lisp/gnus/gnus-win.el
View file

@ -367,11 +367,14 @@ See the Gnus manual for an explanation of the syntax used.")
(setq result (or (gnus-configure-frame
(car comp-subs) window)
result))
(select-window new-win)
(setq window new-win)
(if (not (window-live-p new-win))
;; pop-to-buffer might have deleted the original window
(setq window (selected-window))
(select-window new-win)
(setq window new-win))
(setq comp-subs (cdr comp-subs))))
;; Return the proper window, if any.
(when result
(when (window-live-p result)
(select-window result)))))))
(defvar gnus-frame-split-p nil)