From 3bd9ca85049a253b7640c81da9b1436d93a44f6d Mon Sep 17 00:00:00 2001
From: Glenn Morris <rgm@gnu.org>
Date: Tue, 2 Sep 2003 17:37:48 +0000
Subject: [PATCH] (diary-header-line-flag, diary-header-line-format): New
 variables. (list-diary-entries): Use them to set header line in simple diary.

---
 lisp/calendar/diary-lib.el | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index 9a7ee5eb078..02103b9958d 100644
--- a/lisp/calendar/diary-lib.el
+++ b/lisp/calendar/diary-lib.el
@@ -258,6 +258,27 @@ search."
       (list entry ret-attr))))
 
 
+;; This can be removed once the kill/yank treatment of invisible text
+;; (see etc/TODO) is fixed. -- gm
+(defcustom diary-header-line-flag t
+  "*If non-nil, `simple-diary-display' will show a header line.
+The format of the header is specified by `diary-header-line-format'."
+  :group   'diary
+  :type    'boolean
+  :version "21.4")
+
+(defcustom diary-header-line-format
+  '(:eval (calendar-string-spread
+           (list (if selective-display
+                     "Selective display active - press \"s\" in calendar \
+before edit/copy"
+                   "Diary"))
+           ?\ (frame-width)))
+  "*Format of the header line displayed by `simple-diary-display'.
+Only used if `diary-header-line-flag' is non-nil."
+  :group   'diary
+  :type    'sexp
+  :version "21.4")
 
 (defun list-diary-entries (date number)
   "Create and display a buffer containing the relevant lines in diary-file.
@@ -311,6 +332,8 @@ These hooks have the following distinct roles:
 	  (setq file-glob-attrs (nth 1 (diary-pull-attrs nil "")))
           (setq selective-display t)
           (setq selective-display-ellipses nil)
+          (if diary-header-line-flag
+              (setq header-line-format diary-header-line-format))
           (setq old-diary-syntax-table (syntax-table))
           (set-syntax-table diary-syntax-table)
           (unwind-protect
-- 
2.11.4.GIT