[Emacs-diffs] master b22cb96: Don't abuse princ and spam messages

[Mark Oteiza]

branch: master
commit b22cb9690622a5dab0a08c9e5599c53900296097
Author: Mark Oteiza <address@hidden>
Commit: Mark Oteiza <address@hidden>

    Don't abuse princ and spam messages
    
    * lisp/image-dired.el (image-dired-format-properties-string): Nix princ.
    (image-dired-display-thumb-properties):
    (image-dired-dired-display-properties): Nix princ.  Bind
    message-log-max to nil.
---
 lisp/image-dired.el |   20 ++++++++------------
 1 file changed, 8 insertions(+), 12 deletions(-)

diff --git a/lisp/image-dired.el b/lisp/image-dired.el
index 5239b3c..60b7a5d 100644
--- a/lisp/image-dired.el
+++ b/lisp/image-dired.el
@@ -1189,14 +1189,14 @@ image."
 (defun image-dired-format-properties-string (buf file props comment)
   "Format display properties.
 BUF is the associated dired buffer, FILE is the original image file
-name, PROPS is a list of tags and COMMENT is the image file's
+name, PROPS is a stringified list of tags and COMMENT is the image file's
 comment."
   (format-spec
    image-dired-display-properties-format
    (list
     (cons ?b (or buf ""))
     (cons ?f file)
-    (cons ?t (or (princ props) ""))
+    (cons ?t (or props ""))
     (cons ?c (or comment "")))))
 
 (defun image-dired-display-thumb-properties ()
@@ -1204,11 +1204,9 @@ comment."
   (if (not (eobp))
       (let ((file-name (file-name-nondirectory 
(image-dired-original-file-name)))
             (dired-buf (buffer-name (image-dired-associated-dired-buffer)))
-            (props (mapconcat
-                    'princ
-                    (get-text-property (point) 'tags)
-                    ", "))
-            (comment (get-text-property (point) 'comment)))
+            (props (mapconcat #'identity (get-text-property (point) 'tags) ", 
"))
+            (comment (get-text-property (point) 'comment))
+            (message-log-max nil))
         (if file-name
              (message "%s"
              (image-dired-format-properties-string
@@ -2164,11 +2162,9 @@ non-nil."
   (let* ((file (dired-get-filename))
          (file-name (file-name-nondirectory file))
          (dired-buf (buffer-name (current-buffer)))
-         (props (mapconcat
-                 'princ
-                 (image-dired-list-tags file)
-                 ", "))
-         (comment (image-dired-get-comment file)))
+         (props (mapconcat #'identity (image-dired-list-tags file) ", "))
+         (comment (image-dired-get-comment file))
+         (message-log-max nil))
     (if file-name
         (message "%s"
          (image-dired-format-properties-string