From: Glenn Morris <rgm@gnu.org>
Date: Thu, 9 Jun 2011 20:36:04 +0000 (-0400)
Subject: * lisp/calendar/appt.el (appt-mode-line): Eliminate one local variable.
X-Git-Tag: emacs-pretest-24.0.90~104^2~598
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5b4d6e0e880a20333a8c5bbdc517b6e54c285e3f;p=emacs.git

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

diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el
index 821a981cdcb..6148babfd11 100644
--- 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" "")