]> code.delx.au - gnu-emacs/blobdiff - lisp/calendar/appt.el
From Jeff Miller <jmiller at cablespeed.com> (tiny change)
[gnu-emacs] / lisp / calendar / appt.el
index 29e6fe56b6ee765ac1c81ff4e7da5dbc4aa53f80..892c76bba0c542c252844cf7c45e8af4d2e2b6bd 100644 (file)
@@ -394,8 +394,8 @@ displayed in a window:
                (if (and (< appt-comp-time appt-message-warning-time)
                         (> (+ cur-comp-time appt-message-warning-time)
                            appt-max-time))
-                   (setq min-to-app (+ (- (1+ appt-max-time) cur-comp-time))
-                         appt-comp-time))
+                   (setq min-to-app (+ (- (1+ appt-max-time) cur-comp-time)
+                         appt-comp-time)))
 
                ;; issue warning if the appointment time is
                ;; within appt-message-warning time