diff options
| author | Karl Heuer | 1996-01-25 00:52:17 +0000 |
|---|---|---|
| committer | Karl Heuer | 1996-01-25 00:52:17 +0000 |
| commit | b3099c46142e54f5a71dbc086d894a75bb7f945e (patch) | |
| tree | 9dc0b887c94321049f9c1512fa63373bce86b278 | |
| parent | 4120f5f5d2fb7c753801a474cd78f9f077f1f103 (diff) | |
| download | emacs-b3099c46142e54f5a71dbc086d894a75bb7f945e.tar.gz emacs-b3099c46142e54f5a71dbc086d894a75bb7f945e.zip | |
(simple-diary-display, fancy-diary-display): Pass proper format string to message.
| -rw-r--r-- | lisp/calendar/diary-lib.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 6840db68fc0..b9bb60c049e 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el | |||
| @@ -385,7 +385,7 @@ changing the variable `diary-include-string'." | |||
| 385 | (and (not (cdr diary-entries-list)) | 385 | (and (not (cdr diary-entries-list)) |
| 386 | (string-equal (car (cdr (car diary-entries-list))) ""))) | 386 | (string-equal (car (cdr (car diary-entries-list))) ""))) |
| 387 | (if (<= (length msg) (frame-width)) | 387 | (if (<= (length msg) (frame-width)) |
| 388 | (message msg) | 388 | (message "%s" msg) |
| 389 | (set-buffer (get-buffer-create holiday-buffer)) | 389 | (set-buffer (get-buffer-create holiday-buffer)) |
| 390 | (setq buffer-read-only nil) | 390 | (setq buffer-read-only nil) |
| 391 | (calendar-set-mode-line date-string) | 391 | (calendar-set-mode-line date-string) |
| @@ -422,7 +422,7 @@ This function is provided for optional use as the `diary-display-hook'." | |||
| 422 | (concat date-string (if holiday-list ":" "")) | 422 | (concat date-string (if holiday-list ":" "")) |
| 423 | (mapconcat 'identity holiday-list "; ")))) | 423 | (mapconcat 'identity holiday-list "; ")))) |
| 424 | (if (<= (length msg) (frame-width)) | 424 | (if (<= (length msg) (frame-width)) |
| 425 | (message msg) | 425 | (message "%s" msg) |
| 426 | (set-buffer (get-buffer-create holiday-buffer)) | 426 | (set-buffer (get-buffer-create holiday-buffer)) |
| 427 | (setq buffer-read-only nil) | 427 | (setq buffer-read-only nil) |
| 428 | (calendar-set-mode-line date-string) | 428 | (calendar-set-mode-line date-string) |