[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 642d7e2884 2/2: image-dired: Don't end messages with "."
From: |
Stefan Kangas |
Subject: |
master 642d7e2884 2/2: image-dired: Don't end messages with "." |
Date: |
Thu, 21 Jul 2022 15:15:13 -0400 (EDT) |
branch: master
commit 642d7e2884bae304ee45cc2f27acfc587a5e8518
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
image-dired: Don't end messages with "."
* lisp/image-dired.el (image-dired-toggle-dired-display-properties)
(image-dired--on-file-in-dired-buffer)
(image-dired-thumbnail-set-image-description)
(image-dired-mark-tagged-files)
(image-dired-dired-edit-comment-and-tags)
(image-dired-modify-mark-on-thumb-original-file): Don't end messages
with "." to better comply with '(elisp) Programming Tips'.
---
lisp/image-dired.el | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/lisp/image-dired.el b/lisp/image-dired.el
index 9ceaf1bf73..93cce33c2b 100644
--- a/lisp/image-dired.el
+++ b/lisp/image-dired.el
@@ -913,7 +913,7 @@ Otherwise, delete overlays."
(interactive)
(setq image-dired-dired-disp-props
(not image-dired-dired-disp-props))
- (message "Dired display properties %s."
+ (message "Dired display properties %s"
(if image-dired-dired-disp-props
"on"
"off")))
@@ -1464,7 +1464,7 @@ Should be called from commands in
`image-dired-thumbnail-mode'."
`(let ((file-name (image-dired-original-file-name))
(dired-buf (image-dired-associated-dired-buffer)))
(if (not (and dired-buf file-name))
- (message "No image, or image with correct properties, at point.")
+ (message "No image, or image with correct properties, at point")
(with-current-buffer dired-buf
(when (dired-goto-file file-name)
,@body
@@ -2106,7 +2106,7 @@ default value at the prompt."
(image-dired-set-exif-data file "ImageDescription"
(read-string "Value of ImageDescription: "
old-value)))
- (message "Successfully wrote ImageDescription tag.")
+ (message "Successfully wrote ImageDescription tag")
(error "Could not write ImageDescription tag")))))
(defun image-dired-set-exif-data (file tag-name tag-value)
@@ -2295,7 +2295,7 @@ matching tag will be marked in the Dired buffer."
(when (search-forward-regexp (format "\\s %s$" curr-file) nil t)
(setq hits (+ hits 1))
(dired-mark 1))))
- (message "%d files with matching tag marked." hits)))
+ (message "%d files with matching tag marked" hits)))
@@ -2728,14 +2728,14 @@ the operation by activating the Cancel button.\n\n")
(lambda (&rest _ignore)
(image-dired-save-information-from-widgets)
(bury-buffer)
- (message "Done."))
+ (message "Done"))
"Save")
(widget-insert " ")
(widget-create 'push-button
:notify
(lambda (&rest _ignore)
(bury-buffer)
- (message "Operation canceled."))
+ (message "Operation canceled"))
"Cancel")
(widget-insert "\n")
(use-local-map widget-keymap)
@@ -2973,7 +2973,7 @@ Dired."
(let ((file-name (image-dired-original-file-name))
(dired-buf (image-dired-associated-dired-buffer)))
(if (not (and dired-buf file-name))
- (message "No image, or image with correct properties, at point.")
+ (message "No image, or image with correct properties, at point")
(with-current-buffer dired-buf
(message "%s" file-name)
(when (dired-goto-file file-name)