From fbd67b4b6dc4b3df1ab10421665bc58ad52974a5 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Wed, 23 Sep 2015 23:28:26 -0400
Subject: Revert "Remove pointless message format strings"

Never mind.  I think I used this just in case the string contained '%'.
---
 lisp/init-bib.el        | 2 +-
 lisp/init-dired.el      | 2 +-
 lisp/init-mail.el       | 2 +-
 lisp/init-projectile.el | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'lisp')

diff --git a/lisp/init-bib.el b/lisp/init-bib.el
index 06d59d9..b3e82da 100644
--- a/lisp/init-bib.el
+++ b/lisp/init-bib.el
@@ -151,7 +151,7 @@ point.  The link is opened using the settings of
   "Copy DOI at point to kill ring."
   (interactive)
   (-when-let (doi (km/doi-at-point))
-    (kill-new (message (concat "doi:" doi)))))
+    (kill-new (message "%s" (concat "doi:" doi)))))
 
 (defun km/doi-at-point ()
   "Return DOI at point."
diff --git a/lisp/init-dired.el b/lisp/init-dired.el
index 0d195d1..2c2577d 100644
--- a/lisp/init-dired.el
+++ b/lisp/init-dired.el
@@ -163,7 +163,7 @@ relative to DIRECTORY."
     (if (eq last-command 'kill-region)
         (kill-append string nil)
       (kill-new string))
-    (message string)))
+    (message "%s" string)))
 
 (defun km/other-default-directory ()
   "Get `default-directory' for result of `(other-window 1)'."
diff --git a/lisp/init-mail.el b/lisp/init-mail.el
index 9c53d1d..0ef158a 100644
--- a/lisp/init-mail.el
+++ b/lisp/init-mail.el
@@ -214,7 +214,7 @@ to group buffer instead of moving to next group."
 
 (defun km/notmuch-show-copy-message-id-as-kill ()
   (interactive)
-  (kill-new (message (notmuch-show-get-message-id))))
+  (kill-new (message "%s" (notmuch-show-get-message-id))))
 
 (define-key notmuch-hello-mode-map "o" 'km/ace-link-widget)
 
diff --git a/lisp/init-projectile.el b/lisp/init-projectile.el
index 7c225e6..2a20e7f 100644
--- a/lisp/init-projectile.el
+++ b/lisp/init-projectile.el
@@ -67,7 +67,7 @@ use the name of the current file."
     (if (eq last-command 'kill-region)
         (kill-append fname nil)
       (kill-new fname))
-    (message fname)))
+    (message "%s" fname)))
 
 (defvar km/projectile-project-saved-thing nil
   "Property list of saved thing for projects.
-- 
cgit v1.2.3