1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00

ERC: Sync with upstream.

- Add `erc-header-line-uses-tabbar-p' option for better integration with
   Tabbar Mode.

 - Update some TODO items in manual.
This commit is contained in:
Michael Olson 2008-12-23 06:58:19 +00:00
parent 510ef92270
commit a83df153b1
2 changed files with 12 additions and 3 deletions

View File

@ -699,7 +699,7 @@ Translate morse code in messages
@end table
@c PRE5_3: Document every option of every module in its own subnode
@c PRE5_4: Document every option of every module in its own subnode
@node Advanced Usage, Getting Help and Reporting Bugs, Modules, Top
@ -932,7 +932,7 @@ stuff, to the current ERC buffer."
@section Options
@cindex options
@c PRE5_3: (Node) Document every ERC option (module options go in
@c PRE5_4: (Node) Document every ERC option (module options go in
@c previous chapter)
This section has not yet been written. For now, the easiest way to

View File

@ -5914,6 +5914,11 @@ See `erc-mode-line-format' for which characters are can be used."
:type '(choice (const :tag "Disabled" nil)
string))
(defcustom erc-header-line-uses-tabbar-p t
"Use tabbar mode instead of the header line to display the header."
:group 'erc-mode-line-and-header
:type 'boolean)
(defcustom erc-header-line-uses-help-echo-p t
"Show the contents of the header line in the echo area or as a tooltip
when you move point into the header line."
@ -6085,7 +6090,11 @@ if `erc-away' is non-nil."
(let ((header (if erc-header-line-format
(format-spec erc-header-line-format spec)
nil)))
(cond ((null header)
(cond (erc-header-line-uses-tabbar-p
(set (make-local-variable 'tabbar--local-hlf)
header-line-format)
(kill-local-variable 'header-line-format))
((null header)
(setq header-line-format nil))
(erc-header-line-uses-help-echo-p
(let ((help-echo (with-temp-buffer