andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(simple-diary-display, fancy-diary-display): Pass proper format string to message.

Browse source
This commit is contained in:
Karl Heuer 1996-01-25 00:52:17 +00:00
parent 4120f5f5d2
commit b3099c4614
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/calendar/diary-lib.el
View file

@ -385,7 +385,7 @@ changing the variable `diary-include-string'."
(and (not (cdr diary-entries-list))
(string-equal (car (cdr (car diary-entries-list))) "")))
(if (<= (length msg) (frame-width))
(message msg)
(message "%s" msg)
(set-buffer (get-buffer-create holiday-buffer))
(setq buffer-read-only nil)
(calendar-set-mode-line date-string)
@ -422,7 +422,7 @@ This function is provided for optional use as the `diary-display-hook'."
(concat date-string (if holiday-list ":" ""))
(mapconcat 'identity holiday-list "; "))))
(if (<= (length msg) (frame-width))
(message msg)
(message "%s" msg)
(set-buffer (get-buffer-create holiday-buffer))
(setq buffer-read-only nil)
(calendar-set-mode-line date-string)