Mercurial > emacs
comparison lisp/=diary-lib.el @ 778:cd00bdacc17b
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Wed, 15 Jul 1992 02:24:58 +0000 |
| parents | a8d94735277e |
| children | c693d56ef36d |
comparison
equal
deleted
inserted
replaced
| 777:c99faf9381bb | 778:cd00bdacc17b |
|---|---|
| 259 (concat date-string (if holiday-list ":" "")) | 259 (concat date-string (if holiday-list ":" "")) |
| 260 (mapconcat 'identity holiday-list "; ")))) | 260 (mapconcat 'identity holiday-list "; ")))) |
| 261 (if (or (not diary-entries-list) | 261 (if (or (not diary-entries-list) |
| 262 (and (not (cdr diary-entries-list)) | 262 (and (not (cdr diary-entries-list)) |
| 263 (string-equal (car (cdr (car diary-entries-list))) ""))) | 263 (string-equal (car (cdr (car diary-entries-list))) ""))) |
| 264 (if (<= (length msg) (screen-width)) | 264 (if (<= (length msg) (frame-width)) |
| 265 (message msg) | 265 (message msg) |
| 266 (set-buffer (get-buffer-create holiday-buffer)) | 266 (set-buffer (get-buffer-create holiday-buffer)) |
| 267 (setq buffer-read-only nil) | 267 (setq buffer-read-only nil) |
| 268 (setq mode-line-format | 268 (setq mode-line-format |
| 269 (format "--------------------------%s%%-" date-string)) | 269 (format "--------------------------%s%%-" date-string)) |
| 293 (let* ((holiday-list (if holidays-in-diary-buffer | 293 (let* ((holiday-list (if holidays-in-diary-buffer |
| 294 (check-calendar-holidays original-date))) | 294 (check-calendar-holidays original-date))) |
| 295 (msg (format "No diary entries for %s %s" | 295 (msg (format "No diary entries for %s %s" |
| 296 (concat date-string (if holiday-list ":" "")) | 296 (concat date-string (if holiday-list ":" "")) |
| 297 (mapconcat 'identity holiday-list "; ")))) | 297 (mapconcat 'identity holiday-list "; ")))) |
| 298 (if (<= (length msg) (screen-width)) | 298 (if (<= (length msg) (frame-width)) |
| 299 (message msg) | 299 (message msg) |
| 300 (set-buffer (get-buffer-create holiday-buffer)) | 300 (set-buffer (get-buffer-create holiday-buffer)) |
| 301 (setq buffer-read-only nil) | 301 (setq buffer-read-only nil) |
| 302 (setq mode-line-format | 302 (setq mode-line-format |
| 303 (format "--------------------------%s%%-" date-string)) | 303 (format "--------------------------%s%%-" date-string)) |