diff options
| author | Craig Jennings <c@cjennings.net> | 2026-06-26 10:31:25 -0400 |
|---|---|---|
| committer | Craig Jennings <c@cjennings.net> | 2026-06-26 10:31:25 -0400 |
| commit | 7c7104ea5b22bf31d6c087b46f80ce2a6e215638 (patch) | |
| tree | 95a96913db6a67d5ffa4fa0212977d33f76fb6f7 /modules/jumper.el | |
| parent | 1320172999ca3dbe8cd1affaeafacad45df9ae76 (diff) | |
| download | dotemacs-7c7104ea5b22bf31d6c087b46f80ce2a6e215638.tar.gz dotemacs-7c7104ea5b22bf31d6c087b46f80ce2a6e215638.zip | |
chore(elisp): clear byte-compile warnings via declarations and a loop rewrite
Add the missing declare-function and defvar declarations that silence the not-known-to-be-defined and free-variable warnings in local-repository, org-webclipper, and weather-config. Rewrite jumper--location-exists-p from dotimes to cl-loop thereis, which fixes a spurious unused-variable warning and short-circuits on the first match. The remaining obsolete-generalized-variable warnings (point in pearl-config, buffer-substring in org-webclipper) come from upstream package macros (pearl, org-web-tools) and are not fixable in our code.
Diffstat (limited to 'modules/jumper.el')
| -rw-r--r-- | modules/jumper.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/modules/jumper.el b/modules/jumper.el index 3dc00aa18..61b6464a5 100644 --- a/modules/jumper.el +++ b/modules/jumper.el @@ -124,12 +124,10 @@ marker." (defun jumper--location-exists-p () "Check if current location is already stored." - (let ((key (jumper--location-key)) - (found nil)) - (dotimes (i jumper--next-index found) - (when (jumper--with-marker-at - i (lambda () (string= key (jumper--location-key)))) - (setq found t))))) + (let ((key (jumper--location-key))) + (cl-loop for i from 0 below jumper--next-index + thereis (jumper--with-marker-at + i (lambda () (string= key (jumper--location-key))))))) (defun jumper--register-available-p () "Check if there are registers available." |