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. |
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 |