From a60efa80cdb8c72dacb1e16729a801206a4e80bf Mon Sep 17 00:00:00 2001 From: Jonas Bernoulli Date: Mon, 5 Dec 2022 15:17:55 +0100 Subject: Take the byte-compilers advice into account --- elisp/geiser-log.el | 18 ++++++++---------- 1 file changed, 8 insertions(+), 10 deletions(-) (limited to 'elisp/geiser-log.el') diff --git a/elisp/geiser-log.el b/elisp/geiser-log.el index 389e7ca..ead748f 100644 --- a/elisp/geiser-log.el +++ b/elisp/geiser-log.el @@ -40,9 +40,15 @@ (defvar geiser-log--max-message-size 20480 "Maximum size of individual Geiser log messages.") +(define-obsolete-variable-alias + 'geiser-log-verbose-p 'geiser-log-verbose "0.26.2") + (defvar geiser-log-verbose nil "Log purely informational messages.") +(define-obsolete-variable-alias + 'geiser-log-verbose-debug-p 'geiser-log-verbose-debug "0.26.2") + (defvar geiser-log-verbose-debug nil "Log very verbose informational messages. Useful only for debugging.") @@ -50,14 +56,6 @@ (defvar geiser-log--inhibit nil "Set this to t to inhibit all log messages") -(define-obsolete-variable-alias - 'geiser-log-verbose-p 'geiser-log-verbose "0.26.2") - -(define-obsolete-variable-alias - 'geiser-log-verbose-debug-p 'geiser-log-verbose-debug "0.26.2") - - - ;;; Log buffer and mode: @@ -71,14 +69,14 @@ "Simple mode for Geiser log messages buffer." (buffer-disable-undo) (add-hook 'after-change-functions - (lambda (b e len) + (lambda (b _e _len) (let ((inhibit-read-only t)) (when (> b geiser-log--max-buffer-size) (delete-region (point-min) b)))) nil t) ;; Maybe this feature would better be implemented as a revert-buffer function? (add-hook 'after-change-functions - (lambda (b e len) + (lambda (_b _e _len) (when geiser-log-autoscroll-buffer-p (let ((my-window (get-buffer-window (geiser-log--buffer) t))) (when (window-live-p my-window) -- cgit v1.2.3