# HG changeset patch # User Glenn Morris # Date 1062524268 0 # Node ID 58f90e8a75439371de7d8a6cf5fca327c275ddc1 # Parent 9db479d163496345f7204d1bafe281d5ad073a04 (diary-header-line-flag, diary-header-line-format): New variables. (list-diary-entries): Use them to set header line in simple diary. diff -r 9db479d16349 -r 58f90e8a7543 lisp/calendar/diary-lib.el --- a/lisp/calendar/diary-lib.el Tue Sep 02 17:37:01 2003 +0000 +++ b/lisp/calendar/diary-lib.el Tue Sep 02 17:37:48 2003 +0000 @@ -258,6 +258,27 @@ (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 @@ (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