[Emacs-diffs] Changes to emacs/lisp/calendar/diary-lib.el

[Glenn Morris]

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