diff options
| author | Glenn Morris <rgm@gnu.org> | 2011-06-09 16:36:04 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2011-06-09 16:36:04 -0400 |
| commit | 5b4d6e0e880a20333a8c5bbdc517b6e54c285e3f (patch) | |
| tree | f8f9b5f7669e1d3ac234d35a6271247d18681e08 /lisp/calendar/appt.el | |
| parent | 80675c21afd40351ab3c181eb9012d1b8f7e5ce8 (diff) | |
| download | emacs-5b4d6e0e880a20333a8c5bbdc517b6e54c285e3f.tar.gz emacs-5b4d6e0e880a20333a8c5bbdc517b6e54c285e3f.tar.bz2 emacs-5b4d6e0e880a20333a8c5bbdc517b6e54c285e3f.zip | |
* lisp/calendar/appt.el (appt-mode-line): Eliminate one local variable.
Diffstat (limited to 'lisp/calendar/appt.el')
| -rw-r--r-- | lisp/calendar/appt.el | 6 |
1 files 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" "") |