From b3099c46142e54f5a71dbc086d894a75bb7f945e Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 25 Jan 1996 00:52:17 +0000 Subject: [PATCH] (simple-diary-display, fancy-diary-display): Pass proper format string to message. --- lisp/calendar/diary-lib.el | 4 ++-- 1 file 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'." (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) -- 2.39.2