Mercurial > emacs

changeset 110640:f7f67bd95f3d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Minor diary-lib change. * lisp/calendar/diary-lib.el (diary-list-entries): Move the "Preparing..." message entirely here. (diary-simple-display, diary-fancy-display): Move "Preparing..." messages to diary-list-entries. (diary-include-other-diary-files): Use LIST-ONLY rather than setting diary-display-function.
author Glenn Morris <rgm@gnu.org>
date Tue, 28 Sep 2010 21:10:34 -0700
parents 75c1013c664c
children 1b24798e2816
files lisp/ChangeLog lisp/calendar/diary-lib.el
diffstat 2 files changed, 23 insertions(+), 20 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Tue Sep 28 21:00:50 2010 -0700
+++ b/lisp/ChangeLog	Tue Sep 28 21:10:34 2010 -0700
@@ -1,5 +1,12 @@
 2010-09-29  Glenn Morris  <rgm@gnu.org>
 
+	* calendar/diary-lib.el (diary-list-entries): Move the
+	"Preparing..." message entirely here.
+	(diary-simple-display, diary-fancy-display): Move "Preparing..."
+	messages to diary-list-entries.
+	(diary-include-other-diary-files): Use LIST-ONLY rather than setting
+	diary-display-function.
+
 	* calendar/diary-lib.el (diary-include-other-diary-files):
 	Trap some recursive includes.
 
--- a/lisp/calendar/diary-lib.el	Tue Sep 28 21:00:50 2010 -0700
+++ b/lisp/calendar/diary-lib.el	Tue Sep 28 21:10:34 2010 -0700
@@ -700,7 +700,6 @@
              (1+ (calendar-absolute-from-gregorian gdate))))))
   (goto-char (point-min)))
 
-(defvar diary-including) ; dynamically bound in diary-include-other-diary-files
 (defvar diary-included-files nil
   "List of any diary files included in the last call to `diary-list-entries'.")
 
@@ -759,10 +758,12 @@
     (let* ((original-date date)    ; save for possible use in the hooks
            (date-string (calendar-date-string date))
            (diary-buffer (find-buffer-visiting diary-file))
+           ;; Dynamically bound in diary-include-other-diary-files.
+           (d-incp (and (boundp 'diary-including) diary-including))
            diary-entries-list file-glob-attrs)
-      (or (bound-and-true-p diary-including)
-          (setq diary-included-files nil))
-      (message "Preparing diary...")
+      (unless d-incp
+        (setq diary-included-files nil)
+        (message "Preparing diary..."))
       (save-current-buffer
         (if (not diary-buffer)
             (set-buffer (find-file-noselect diary-file t))
@@ -816,6 +817,7 @@
                   (funcall (or diary-display-function
                                'diary-simple-display))))
               (run-hooks 'diary-hook)
+              (or d-incp (message "Preparing diary...done"))
               diary-entries-list)))))))
 
 (define-obsolete-function-alias 'list-diary-entries 'diary-list-entries "22.1")
@@ -846,22 +848,18 @@
           nil t)
     (let ((diary-file (match-string-no-properties 1))
           (diary-list-entries-hook 'diary-include-other-diary-files)
-          (diary-display-function 'ignore)
           (diary-including t)
           diary-hook diary-list-include-blanks efile)
       (if (file-exists-p diary-file)
           (if (file-readable-p diary-file)
-              (unwind-protect
-                  (if (member (setq efile (expand-file-name diary-file))
-                              diary-included-files)
-                      (error "Recursive diary include for %s" diary-file)
-                    (setq diary-included-files
-                          (append diary-included-files (list efile))
-                          diary-entries-list
-                          (append diary-entries-list
-                                  (diary-list-entries original-date number))))
-                (with-current-buffer (find-buffer-visiting diary-file)
-                  (diary-unhide-everything)))
+              (if (member (setq efile (expand-file-name diary-file))
+                          diary-included-files)
+                  (error "Recursive diary include for %s" diary-file)
+                (setq diary-included-files
+                      (append diary-included-files (list efile))
+                      diary-entries-list
+                      (append diary-entries-list
+                              (diary-list-entries original-date number t))))
             (beep)
             (message "Can't read included diary file %s" diary-file)
             (sleep-for 2))
@@ -930,8 +928,7 @@
         (let ((window (display-buffer (current-buffer))))
           ;; d-s-p is passed from diary-list-entries.
           (set-window-point window diary-saved-point)
-          (set-window-start window (point-min))))
-      (message "Preparing diary...done"))))
+          (set-window-start window (point-min)))))))
 
 (define-obsolete-function-alias 'simple-diary-display
   'diary-simple-display "23.1")
@@ -1053,8 +1050,7 @@
       (if (eq major-mode 'diary-fancy-display-mode)
           (run-hooks 'diary-fancy-display-mode-hook)
         (diary-fancy-display-mode))
-      (calendar-set-mode-line date-string)
-      (message "Preparing diary...done"))))
+      (calendar-set-mode-line date-string))))
 
 (define-obsolete-function-alias 'fancy-diary-display
   'diary-fancy-display "23.1")