Mercurial > emacs

diff lisp/calendar/appt.el @ 104820:408195c2a9e5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(appt-check): Don't call substitute-in-file-name on diary-file.
author Glenn Morris <rgm@gnu.org>
date Thu, 03 Sep 2009 06:35:25 +0000
parents 9b52cad1866b
children 1d1d5d9bd884
line wrap: on
line diff
--- a/lisp/calendar/appt.el	Thu Sep 03 06:34:19 2009 +0000
+++ b/lisp/calendar/appt.el	Thu Sep 03 06:35:25 2009 +0000
@@ -331,8 +331,7 @@
                              (cons 'appt-make-list diary-hook))))
                       (diary))
                   (let* ((diary-display-function 'appt-make-list)
-                         (d-buff (find-buffer-visiting
-                                  (substitute-in-file-name diary-file)))
+                         (d-buff (find-buffer-visiting diary-file))
                          (selective
                           (if d-buff    ; diary buffer exists
                               (with-current-buffer d-buff
@@ -343,8 +342,7 @@
                     (if d-buff
                         ;; Displays the diary buffer.
                         (or selective (diary-show-all-entries))
-                      (and (setq d-buff (find-buffer-visiting
-                                         (substitute-in-file-name diary-file)))
+                      (and (setq d-buff (find-buffer-visiting diary-file))
                            (kill-buffer d-buff)))))
               (error nil)))
         (setq appt-prev-comp-time cur-comp-time