/[emacs]/emacs/lisp/calendar/diary-lib.el
ViewVC logotype

Diff of /emacs/lisp/calendar/diary-lib.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.71 by miles, Mon Sep 1 15:45:19 2003 UTC revision 1.72 by gm, Tue Sep 2 17:37:48 2003 UTC
# Line 258  search." Line 258  search."
258        (list entry ret-attr))))        (list entry ret-attr))))
259    
260    
261    ;; This can be removed once the kill/yank treatment of invisible text
262    ;; (see etc/TODO) is fixed. -- gm
263    (defcustom diary-header-line-flag t
264      "*If non-nil, `simple-diary-display' will show a header line.
265    The format of the header is specified by `diary-header-line-format'."
266      :group   'diary
267      :type    'boolean
268      :version "21.4")
269    
270    (defcustom diary-header-line-format
271      '(:eval (calendar-string-spread
272               (list (if selective-display
273                         "Selective display active - press \"s\" in calendar \
274    before edit/copy"
275                       "Diary"))
276               ?\ (frame-width)))
277      "*Format of the header line displayed by `simple-diary-display'.
278    Only used if `diary-header-line-flag' is non-nil."
279      :group   'diary
280      :type    'sexp
281      :version "21.4")
282    
283  (defun list-diary-entries (date number)  (defun list-diary-entries (date number)
284    "Create and display a buffer containing the relevant lines in diary-file.    "Create and display a buffer containing the relevant lines in diary-file.
# Line 311  These hooks have the following distinct Line 332  These hooks have the following distinct
332            (setq file-glob-attrs (nth 1 (diary-pull-attrs nil "")))            (setq file-glob-attrs (nth 1 (diary-pull-attrs nil "")))
333            (setq selective-display t)            (setq selective-display t)
334            (setq selective-display-ellipses nil)            (setq selective-display-ellipses nil)
335              (if diary-header-line-flag
336                  (setq header-line-format diary-header-line-format))
337            (setq old-diary-syntax-table (syntax-table))            (setq old-diary-syntax-table (syntax-table))
338            (set-syntax-table diary-syntax-table)            (set-syntax-table diary-syntax-table)
339            (unwind-protect            (unwind-protect

Legend:
Removed from v.1.71  
changed lines
  Added in v.1.72

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26