procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; Prefer string-join in image-dired

Browse source 
* lisp/image/image-dired-dired.el (subr-x): Require.
(image-dired-dired-display-properties): Prefer string-join.
* lisp/image/image-dired.el (subr-x): Require.
(image-dired-update-header-line): Prefer string-join.
This commit is contained in:
Stefan Kangas 2022-09-13 18:54:14 +02:00
parent 10e9ec6da4
commit 439a3cd29d
2 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/image/image-dired-dired.el
View file

@ -24,6 +24,8 @@
;;; Code:
(eval-when-compile (require 'subr-x)) ; for string-join
(require 'image-dired)
(defgroup image-dired-dired nil
@ -370,7 +372,7 @@ matching tag will be marked in the Dired buffer."
(let* ((file (dired-get-filename))
(file-name (file-name-nondirectory file))
(dired-buf (buffer-name (current-buffer)))
(props (mapconcat #'identity (image-dired-list-tags file) ", "))
(props (string-join (image-dired-list-tags file) ", "))
(comment (image-dired-get-comment file))
(message-log-max nil))
(if file-name

3
lisp/image/image-dired.el
View file

@ -138,6 +138,7 @@
(eval-when-compile
(require 'cl-lib)
(require 'subr-x) ; for string-join
(require 'wid-edit))
(require 'image-dired-external)
@ -704,7 +705,7 @@ comment."
image-dired-display-image-mode)))
(let ((file-name (file-name-nondirectory (image-dired-original-file-name)))
(dired-buf (buffer-name (image-dired-associated-dired-buffer)))
(props (mapconcat #'identity (get-text-property (point) 'tags) ", "))
(props (string-join (get-text-property (point) 'tags) ", "))
(comment (get-text-property (point) 'comment))
(message-log-max nil))
(if file-name