aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/image
diff options
context:
space:
mode:
authorStefan Kangas2025-02-22 19:06:11 +0100
committerStefan Kangas2025-02-23 00:38:22 +0100
commit9d7d4db7eb3398e754872f4c82d3d2071ae10fb2 (patch)
tree5ca33790e629932b1cdbcf6305071c1eb41f4cc1 /lisp/image
parent95fee880e45184f4820e9704b75887ef2d91bd01 (diff)
downloademacs-9d7d4db7eb3398e754872f4c82d3d2071ae10fb2.tar.gz
emacs-9d7d4db7eb3398e754872f4c82d3d2071ae10fb2.zip
Prefer decf to cl-decf
* lisp/auth-source-pass.el (auth-source-pass--find-match-many): * lisp/calendar/time-date.el (decoded-time-add) (decoded-time--alter-month, decoded-time--alter-day): * lisp/dired.el (dired--move-to-next-line): * lisp/dom.el (dom-pp): * lisp/emacs-lisp/cl-macs.el (cl--transform-lambda): * lisp/emacs-lisp/cl-print.el (cl-print-to-string-with-limit): * lisp/emacs-lisp/cl-seq.el (cl-fill, cl-replace, cl-substitute): * lisp/emacs-lisp/comp-cstr.el (comp--range-union) (comp--range-intersection): * lisp/emacs-lisp/comp.el (comp-vec-prepend, comp--emit-narg-prologue): * lisp/emacs-lisp/edebug.el (edebug--strip-instrumentation): * lisp/emacs-lisp/eldoc.el (eldoc--invoke-strategy): * lisp/emacs-lisp/pp.el (pp--format-definition): * lisp/emacs-lisp/smie.el (smie-config--guess-1): * lisp/eshell/esh-io.el (eshell-close-handle, eshell-set-output-handle): * lisp/gnus/gnus-async.el (gnus-async-prefetch-article): * lisp/gnus/gnus-group.el (gnus-group-mark-group) (gnus-group-yank-group): * lisp/gnus/gnus-salt.el (gnus-tree-forward-line): * lisp/gnus/gnus-score.el (gnus-decay-scores): * lisp/gnus/gnus-srvr.el (gnus-browse-toggle-subscription-at-point): * lisp/gnus/gnus-sum.el (gnus-build-sparse-threads, gnus-parent-headers) (gnus-update-marks, gnus-summary-work-articles) (gnus-summary-refer-parent-article, gnus-summary-next-thread) (gnus-read-header, gnus-summary-insert-new-articles): * lisp/gnus/gnus-topic.el (gnus-topic-forward-topic): * lisp/gnus/gnus.el (gnus-short-group-name): * lisp/gnus/message.el (message-remove-first-header) (message-shorten-references, message-insert-screenshot): * lisp/gnus/mm-url.el (mm-url-insert): * lisp/gnus/nnselect.el (nnselect-push-info): * lisp/ibuffer.el (ibuffer-backward-line, ibuffer-forward-line) (ibuffer-map-lines): * lisp/icomplete.el (icomplete--render-vertical): * lisp/image/image-dired-external.el (image-dired-create-thumb-1): * lisp/image/image-dired.el (image-dired-delete-char): * lisp/mail/ietf-drums-date.el (ietf-drums-date--tokenize-string): * lisp/mh-e/mh-utils.el (mh-sub-folders-parse): * lisp/minibuffer.el (minibuffer-completion-help): * lisp/mpc.el (mpc-cmd-move, mpc-songpointer-refresh-hairy): * lisp/net/eww.el (eww-process-text-input): * lisp/net/pop3.el (pop3-wait-for-messages, pop3-uidl-stat) (pop3-uidl-dele): * lisp/net/shr-color.el (shr-color-hue-to-rgb): * lisp/play/5x5.el (5x5-up, 5x5-left): * lisp/play/decipher.el (decipher-read-alphabet, decipher--digram-total) (decipher-analyze-buffer): * lisp/play/hanoi.el (hanoi-insert-ring, hanoi-move-ring): * lisp/profiler.el (profiler-format-number) (profiler-calltree-build-unified): * lisp/progmodes/antlr-mode.el (antlr-next-rule, antlr-indent-line): * lisp/progmodes/c-ts-common.el (c-ts-common-statement-offset): * lisp/progmodes/ebrowse.el (ebrowse-cyclic-display-next/previous-member-list): * lisp/progmodes/hideif.el (hif-backward-comment): * lisp/progmodes/js.el (js-beginning-of-defun, js-end-of-defun) (js-ts--syntax-propertize): * lisp/progmodes/typescript-ts-mode.el (tsx-ts--syntax-propertize-captures): * lisp/rect.el (rectangle--*-char): * lisp/term.el (term-emulate-terminal): * lisp/textmodes/reftex-cite.el (reftex-do-citation): * lisp/textmodes/reftex-index.el (reftex-index-next-phrase): * lisp/textmodes/reftex-parse.el (reftex-init-section-numbers): * lisp/textmodes/reftex-sel.el (reftex-select-unmark): * lisp/textmodes/reftex.el (reftex-silence-toc-markers): * lisp/treesit.el (treesit-navigate-thing): * lisp/vc/diff-mode.el (diff-sanity-check-context-hunk-half, (diff-sanity-check-hunk): * lisp/vc/pcvs-util.el (cvs-first): * lisp/vc/smerge-mode.el (smerge-get-current): * lisp/vc/vc-hg.el (vc-hg--glob-to-pcre): * test/lisp/net/socks-tests.el (socks-tests-perform-hello-world-http-request): * test/src/buffer-tests.el (test-overlay-randomly): Prefer decf to cl-defc in all code where we can.
Diffstat (limited to 'lisp/image')
-rw-r--r--lisp/image/image-dired-external.el2
-rw-r--r--lisp/image/image-dired.el2
2 files changed, 2 insertions, 2 deletions
diff --git a/lisp/image/image-dired-external.el b/lisp/image/image-dired-external.el
index cec01ecef41..f09f676893d 100644
--- a/lisp/image/image-dired-external.el
+++ b/lisp/image/image-dired-external.el
@@ -424,7 +424,7 @@ on MS-Windows cannot have too many concurrent sub-processes.")
424 (setf (process-sentinel process) 424 (setf (process-sentinel process)
425 (lambda (process status) 425 (lambda (process status)
426 ;; Trigger next in queue once a thumbnail has been created 426 ;; Trigger next in queue once a thumbnail has been created
427 (cl-decf image-dired-queue-active-jobs) 427 (decf image-dired-queue-active-jobs)
428 (image-dired-thumb-queue-run) 428 (image-dired-thumb-queue-run)
429 (when (= image-dired-queue-active-jobs 0) 429 (when (= image-dired-queue-active-jobs 0)
430 (image-dired-debug 430 (image-dired-debug
diff --git a/lisp/image/image-dired.el b/lisp/image/image-dired.el
index 8edc73d09b8..aff452b0f5c 100644
--- a/lisp/image/image-dired.el
+++ b/lisp/image/image-dired.el
@@ -1184,7 +1184,7 @@ With a negative prefix argument, prompt user for the delay."
1184 (interactive nil image-dired-thumbnail-mode) 1184 (interactive nil image-dired-thumbnail-mode)
1185 (let ((inhibit-read-only t)) 1185 (let ((inhibit-read-only t))
1186 (delete-char 1) 1186 (delete-char 1)
1187 (cl-decf image-dired--number-of-thumbnails)) 1187 (decf image-dired--number-of-thumbnails))
1188 (let ((pos (point))) 1188 (let ((pos (point)))
1189 (image-dired--line-up-with-method) 1189 (image-dired--line-up-with-method)
1190 (goto-char pos) 1190 (goto-char pos)