[Emacs-diffs] /srv/bzr/emacs/trunk r104549: * lisp/calendar/appt.el (appt-mode-line): Eliminate one local variable.

[Glenn Morris]

------------------------------------------------------------
revno: 104549
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Thu 2011-06-09 16:36:04 -0400
message:
  * lisp/calendar/appt.el (appt-mode-line): Eliminate one local variable.
modified:
  lisp/calendar/appt.el

=== modified file 'lisp/calendar/appt.el'
--- a/lisp/calendar/appt.el     2011-06-09 20:25:34 +0000
+++ b/lisp/calendar/appt.el     2011-06-09 20:36:04 +0000
@@ -257,9 +257,9 @@
 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" "")