procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Glenn Morris 2011-06-09 16:36:04 -04:00
parent 80675c21af
commit 5b4d6e0e88
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/calendar/appt.el
View file

@ -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" "")