Mercurial > emacs
comparison lisp/calendar/appt.el @ 95411:7a388916f4ae
(appt-check): Use diary-display-function rather than diary-display-hook.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Fri, 30 May 2008 02:57:43 +0000 |
parents | e49abd957e81 |
children | f9c7bc38ee36 |
comparison
equal
deleted
inserted
replaced
95410:d933144b818e | 95411:7a388916f4ae |
---|---|
328 (let ((diary-hook | 328 (let ((diary-hook |
329 (if (assoc 'appt-make-list diary-hook) | 329 (if (assoc 'appt-make-list diary-hook) |
330 diary-hook | 330 diary-hook |
331 (cons 'appt-make-list diary-hook)))) | 331 (cons 'appt-make-list diary-hook)))) |
332 (diary)) | 332 (diary)) |
333 (let* ((diary-display-hook 'appt-make-list) | 333 (let* ((diary-display-function 'appt-make-list) |
334 (d-buff (find-buffer-visiting | 334 (d-buff (find-buffer-visiting |
335 (substitute-in-file-name diary-file))) | 335 (substitute-in-file-name diary-file))) |
336 (selective | 336 (selective |
337 (if d-buff ; diary buffer exists | 337 (if d-buff ; diary buffer exists |
338 (with-current-buffer d-buff | 338 (with-current-buffer d-buff |