* lisp/calendar/appt.el (appt-mode-line): Eliminate one local variable.

diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el
index 821a981cdcbb85654fefad7894fd68c29fd96bd1..6148babfd11dc5cffb1260a70c39cc0d693f3f20 100644 (file)
--- a/lisp/calendar/appt.el
+++ b/lisp/calendar/appt.el
@@ -257,9 +257,9 @@ MIN-TO-APP is a list of minutes, as strings.
 If ABBREV is non-nil, abbreviates some text."
   ;; All this silliness is just to make the formatting slightly nicer.
   (let* ((multiple (> (length min-to-app) 1))
-         (sametime (or (not multiple)
-                       (not (delete (car min-to-app) min-to-app))))
-         (imin (if sametime (car min-to-app))))
+         (imin (if (or (not multiple)
+                       (not (delete (car min-to-app) min-to-app)))
+                   (car min-to-app))))
     (format "%s%s %s"
             (if abbrev "App't" "Appointment")
             (if multiple "s" "")