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

; 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
Show stats 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))
(goto-char (point-min))
(when (search-forward-regexp (format "\\s %s[*@]?$" (regexp-quote curr-file)) nil t)
(setq hits (+ hits 1))
(incf hits)
(dired-mark 1))))
(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
(append 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)
;; Main loop where we generated thumbnail pages per tag
(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 " </body>\n")
(insert "</html>\n"))
(setq count (1+ count))))
(incf count)))
(insert " </body>\n")
(insert "</html>"))))
@ -2099,7 +2099,7 @@ when using per-directory thumbnail file storage"))
;; (format "Size of thumbnail directory: %d, delete old file %s? "
;; dirsize (cadr (cdar files))))
;; (delete-file (cadr (cdar files)))
;; (setq dirsize (- dirsize (car (cdar files))))
;; (decf dirsize (car (cdar files)))
;; (setq files (cdr files)))))
(provide 'image-dired)