* calendar.el (calendar-basic-setup): Fix calendar-view-holidays-initially-flag

 and fancy display.
* diary-lib.el (diary-live-p): Doc fix.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 292156db1554986a5b37728c776d14f8779921be..90f91d14afe936d7ee45d33070e80c0beef7d81f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2014-09-08  Glenn Morris  <rgm@gnu.org>
 
+       * calendar/calendar.el (calendar-basic-setup):
+       Fix calendar-view-holidays-initially-flag and fancy display.
+       * calendar/diary-lib.el (diary-live-p): Doc fix.
+
        * calendar/calendar.el (calendar-basic-setup):
        Avoid clobbering calendar with diary.  (Bug#18381)
 

diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 39ab186d56d1602cc64df6192bc209efbd82a730..2b8c359047fd650b80e264b818c3ab47c2de9a9b 100644 (file)
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -1450,7 +1450,7 @@ display the generated calendar."
                  '(nil . ((inhibit-same-window . t)))))
             (diary-view-entries)))))
   (if calendar-view-holidays-initially-flag
-      (let* ((diary-buffer (get-file-buffer diary-file))
+      (let* ((diary-buffer (diary-live-p))
              (diary-window (if diary-buffer (get-buffer-window diary-buffer)))
              (split-height-threshold (if diary-window 2 1000)))
         ;; FIXME display buffer?

diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index a4e36d9abe8fb20e95eeffe3e51a8220ec773fde..155af0da6231275ac80c6e2b56148dffae3284e7 100644 (file)
--- a/lisp/calendar/diary-lib.el
+++ b/lisp/calendar/diary-lib.el
@@ -1,7 +1,6 @@
 ;;; diary-lib.el --- diary functions
 
-;; Copyright (C) 1989-1990, 1992-1995, 2001-2014 Free Software
-;; Foundation, Inc.
+;; Copyright (C) 1989-1990, 1992-1995, 2001-2014 Free Software Foundation, Inc.
 
 ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
 ;; Maintainer: Glenn Morris <rgm@gnu.org>
@@ -468,7 +467,8 @@ Only used if `diary-header-line-flag' is non-nil."
 ;; just visiting the diary-file. This is i) unlikely, and ii) no great loss.
 ;;;###cal-autoload
 (defun diary-live-p ()
-  "Return non-nil if the diary is being displayed."
+  "Return non-nil if the diary is being displayed.
+The actual return value is a diary buffer."
   (or (get-buffer diary-fancy-buffer)
       (and diary-file (find-buffer-visiting diary-file))))