From 5b4d6e0e880a20333a8c5bbdc517b6e54c285e3f Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 9 Jun 2011 16:36:04 -0400 Subject: [PATCH] * lisp/calendar/appt.el (appt-mode-line): Eliminate one local variable. --- lisp/calendar/appt.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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" "") -- 2.39.2