Skip to content

Commit

Permalink
Rename elisp-check-debug to elisp-check-log
Browse files Browse the repository at this point in the history
  • Loading branch information
leotaku committed Nov 27, 2023
1 parent 404679b commit e06d85e
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions elisp-check.el
Original file line number Diff line number Diff line change
Expand Up @@ -103,10 +103,10 @@ See `elisp-check-alist' for a list of valid check names."
"Apply the given CHECK-FUNS to the given BUFFERS."
(dolist (buffer buffers)
(with-current-buffer buffer
(elisp-check-debug "Checking file: %s" (buffer-file-name))
(elisp-check-log "Checking file: %s" (buffer-file-name))
(let ((other (elisp-check--get-requires)))
(dolist (check check-funs)
(elisp-check-debug "Running check: %s" check)
(elisp-check-log "Running check: %s" check)
(apply check other))))))

(defun elisp-check--get-buffers (file-or-files)
Expand Down Expand Up @@ -197,7 +197,7 @@ documentation on the usage of PREFIX and KNOWN-BUFFERS."
"Install PACKAGES using the package.el package manager."
(let ((errors '()))
(dolist (package packages)
(elisp-check-debug "Installing: %s" package)
(elisp-check-log "Installing: %s" package)
(elisp-check-condition-case error
(package-install package)
(error
Expand Down Expand Up @@ -238,7 +238,7 @@ When LEVEL is error, also set `elisp-check-has-failed'."
(message template level message))
(t (elisp-check-error "Unsupported urgency level `%s'" level)))))

(defun elisp-check-debug (message &rest objects)
(defun elisp-check-log (message &rest objects)
"Emit a debug MESSAGE formatted with OBJECTS."
(let ((format (apply #'format message objects)))
(message "[ELISP-CHECK] %s" format)))
Expand Down

0 comments on commit e06d85e

Please sign in to comment.