all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
From: Kevin Rodgers <ihs_4664@yahoo.com>
Subject: Re: header-line-format hacking
Date: Tue, 25 Jan 2005 11:49:51 -0700	[thread overview]
Message-ID: <35nimiF4q87bsU1@individual.net> (raw)
In-Reply-To: <mailman.15179.1106660077.27204.help-gnu-emacs@gnu.org>

ytrewq1 wrote:
 > David Hansen writes:
 >>Just set `header-line-format', e.g:
 >>
 >>(setq header-line-format (concat (or header-line-format "") " test"))
 >>
 >>will append " test" to the header line of the current buffer.
 >
 > I was under the impression that the header-line-format variable
 > can hold a template like the one that mode-line-format uses.  If
 > that's the case, wouldn't the code snippet above not work for
 > non-string templates?

Exactly.

(setq header-line-format
       (cond ((null header-line-format) my-header-line-format)
             ((stringp header-line-format)
              (list header-line-format my-header-line-format))
             ((symbolp header-line-format)
              (list (list t header-line-format) my-header-line-format))
             ((consp header-line-format)
              (append header-line-format (list my-header-line-format)))))

-- 
Kevin Rodgers

  parent reply	other threads:[~2005-01-25 18:49 UTC|newest]

Thread overview: 15+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
     [not found] <mailman.15144.1106647267.27204.help-gnu-emacs@gnu.org>
2005-01-25 10:50 ` header-line-format hacking David Hansen
2005-01-25 13:05   ` ytrewq1
     [not found]   ` <mailman.15179.1106660077.27204.help-gnu-emacs@gnu.org>
2005-01-25 18:49     ` Kevin Rodgers [this message]
2005-01-26  2:25       ` ytrewq1
     [not found]       ` <mailman.15337.1106708876.27204.help-gnu-emacs@gnu.org>
2005-01-26 11:04         ` Thien-Thi Nguyen
2005-01-26 13:09           ` ytrewq1
     [not found]           ` <mailman.15408.1106746330.27204.help-gnu-emacs@gnu.org>
2005-01-26 14:12             ` Thien-Thi Nguyen
2005-01-31  2:36               ` (apparently lost, so rewritten and reposted) " ytrewq1
     [not found]               ` <mailman.70.1107140500.2841.help-gnu-emacs@gnu.org>
2005-01-31  9:54                 ` Thien-Thi Nguyen
2005-01-26 23:37             ` Kevin Rodgers
2005-01-30 23:32               ` ytrewq1
2005-01-31 16:18 ` Stefan Monnier
2005-01-31 23:43   ` ytrewq1
     [not found]   ` <mailman.233.1107215940.2841.help-gnu-emacs@gnu.org>
2005-02-01 19:08     ` Stefan Monnier
2005-01-25  9:30 ytrewq1

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=35nimiF4q87bsU1@individual.net \
    --to=ihs_4664@yahoo.com \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body. 
Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.