mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

; Prefer incf/decf in image-dired

Browse source 
* lisp/image/image-dired-dired.el (image-dired-mark-tagged-files):
* lisp/image/image-dired.el (image-dired-gallery-generate):
Prefer incf/decf.
This commit is contained in:
Stefan Kangas 2025-02-26 03:15:37 +01:00
parent 7fe90ca77d
commit 68f9a7aac1
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -384,7 +384,7 @@ matching tag will be marked in the Dired buffer."
(setq curr-file (file-name-nondirectory curr-file)) (setq curr-file (file-name-nondirectory curr-file))
(goto-char (point-min)) (goto-char (point-min))
(when (search-forward-regexp (format "\\s %s[*@]?$" (regexp-quote curr-file)) nil t) (when (search-forward-regexp (format "\\s %s[*@]?$" (regexp-quote curr-file)) nil t)
(setq hits (+ hits 1)) (incf hits)
(dired-mark 1)))) (dired-mark 1))))
(message "%d files with matching tag marked" hits))) (message "%d files with matching tag marked" hits)))

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

@ -1990,7 +1990,7 @@ when using per-directory thumbnail file storage"))
(setq tag-link-list (setq tag-link-list
(append tag-link-list (list (cons tag tag-link)))) (append tag-link-list (list (cons tag tag-link))))
(setq tag-link-list (list (cons tag tag-link)))) (setq tag-link-list (list (cons tag tag-link))))
(setq count (1+ count)))) (incf count)))
(setq count 1) (setq count 1)
;; Main loop where we generated thumbnail pages per tag ;; Main loop where we generated thumbnail pages per tag
(dolist (curr tags) (dolist (curr tags)
@ -2037,7 +2037,7 @@ when using per-directory thumbnail file storage"))
(insert " <p><a href=\"index.html\">Index</a></p>\n") (insert " <p><a href=\"index.html\">Index</a></p>\n")
(insert " </body>\n") (insert " </body>\n")
(insert "</html>\n")) (insert "</html>\n"))
(setq count (1+ count)))) (incf count)))
(insert " </body>\n") (insert " </body>\n")
(insert "</html>")))) (insert "</html>"))))
@ -2099,7 +2099,7 @@ when using per-directory thumbnail file storage"))
;; (format "Size of thumbnail directory: %d, delete old file %s? " ;; (format "Size of thumbnail directory: %d, delete old file %s? "
;; dirsize (cadr (cdar files)))) ;; dirsize (cadr (cdar files))))
;; (delete-file (cadr (cdar files))) ;; (delete-file (cadr (cdar files)))
;; (setq dirsize (- dirsize (car (cdar files)))) ;; (decf dirsize (car (cdar files)))
;; (setq files (cdr files))))) ;; (setq files (cdr files)))))
(provide 'image-dired) (provide 'image-dired)