From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 25 Jan 1996 00:52:17 +0000 (+0000)
Subject: (simple-diary-display, fancy-diary-display): Pass proper format string to message.
X-Git-Tag: emacs-19.34~1552
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b3099c46142e54f5a71dbc086d894a75bb7f945e;p=emacs.git

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

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)