[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calendar/diary-lib.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calendar/diary-lib.el |
Date: |
Tue, 02 Sep 2003 13:37:48 -0400 |
Index: emacs/lisp/calendar/diary-lib.el
diff -c emacs/lisp/calendar/diary-lib.el:1.71
emacs/lisp/calendar/diary-lib.el:1.72
*** emacs/lisp/calendar/diary-lib.el:1.71 Mon Sep 1 11:45:19 2003
--- emacs/lisp/calendar/diary-lib.el Tue Sep 2 13:37:48 2003
***************
*** 258,263 ****
--- 258,284 ----
(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,316 ****
--- 332,339 ----
(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