# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1252982094 0
# Node ID c1a58b7ba6a305cd71b81743854a94560d32f229
# Parent  91988e1c7d6c5c27ae3fefd27250fefb934c34f9
(diary-display-function): Change the default to fancy display.
(body): Define for compiler.

diff -r 91988e1c7d6c -r c1a58b7ba6a3 lisp/calendar/diary-lib.el
--- a/lisp/calendar/diary-lib.el	Tue Sep 15 02:34:32 2009 +0000
+++ b/lisp/calendar/diary-lib.el	Tue Sep 15 02:34:54 2009 +0000
@@ -151,10 +151,9 @@
 (define-obsolete-variable-alias 'diary-display-hook 'diary-display-function
   "23.1")
 
-(defcustom diary-display-function 'diary-simple-display
+(defcustom diary-display-function 'diary-fancy-display
   "Function used to display the diary.
-The default is `diary-simple-display'; `diary-fancy-display' is
-an alternative.
+The two standard options are `diary-fancy-display' and `diary-simple-display'.
 
 For historical reasons, `nil' is the same as `diary-simple-display'
 \(so you must use `ignore' for no display).  Also for historical
@@ -167,14 +166,14 @@
 entry for the given date.  This can be used, for example, to
 produce a different buffer for display (perhaps combined with
 holidays), or hard copy output."
-  :type '(choice (const diary-simple-display :tag "Basic display")
-                 (const diary-fancy-display :tag "Fancy display")
+  :type '(choice (const diary-fancy-display :tag "Fancy display")
+                 (const diary-simple-display :tag "Basic display")
                  (const ignore :tag "No display")
                  (const nil :tag "Obsolete way to choose basic display")
                  (hook :tag "Obsolete form with list of display functions"))
   :initialize 'custom-initialize-default
   :set 'diary-set-maybe-redraw
-  :version "23.1"
+  :version "23.2"                       ; simple->fancy
   :group 'diary)
 
 (define-obsolete-variable-alias 'list-diary-entries-hook
@@ -2381,6 +2380,7 @@
 ;; `diary-outlook-formats'.
 
 (defvar subject)                        ; bound in diary-from-outlook-gnus
+(defvar body)
 
 (defun diary-from-outlook-internal (&optional test-only)
   "Snarf a diary entry from a message assumed to be from MS Outlook.