(fancy-diary-display-mode): Bind "q" to `quit-window'

[gnu-emacs] / lisp / calendar / cal-julian.el

diff --git a/lisp/calendar/cal-julian.el b/lisp/calendar/cal-julian.el
index b409145fe35d4a3a0539ca8b35780461d8ade084..830a1df143b0cbc33e057caa060a46b820847b27 100644 (file)
--- a/lisp/calendar/cal-julian.el
+++ b/lisp/calendar/cal-julian.el
@@ -118,14 +118,14 @@ Driven by the variable `calendar-date-display-form'."
                          (mapcar 'list (append month-array nil))
                          nil t)
                        (calendar-make-alist month-array 1))))
-          (last 
+          (last
            (if (and (zerop (% year 4)) (= month 2))
                29
              (aref [31 28 31 30 31 30 31 31 30 31 30 31] (1- month))))
           (day (calendar-read
                 (format "Julian calendar day (%d-%d): "
                         (if (and (= year 1) (= month 1)) 3 1) last)
-                '(lambda (x) 
+                '(lambda (x)
                    (and (< (if (and (= year 1) (= month 1)) 2 0) x)
                         (<= x last))))))
      (list (list month day year))))