From e366291e4aaacc17c98f8cd253a27ef9915f2bf5 Mon Sep 17 00:00:00 2001 From: Jonas Bernoulli Date: Wed, 3 Mar 2021 14:51:10 +0100 Subject: geiser-messages-mode: Don't quote lambda expressions --- elisp/geiser-log.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/elisp/geiser-log.el b/elisp/geiser-log.el index 6444335..236f691 100644 --- a/elisp/geiser-log.el +++ b/elisp/geiser-log.el @@ -63,18 +63,18 @@ "Simple mode for Geiser log messages buffer." (buffer-disable-undo) (add-hook 'after-change-functions - '(lambda (b e len) - (let ((inhibit-read-only t)) - (when (> b geiser-log--max-buffer-size) - (delete-region (point-min) b)))) + (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) - (when geiser-log-autoscroll-buffer-p - (let ((my-window (get-buffer-window (geiser-log--buffer) t))) - (when (window-live-p my-window) - (set-window-point my-window (point)))))) + (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) + (set-window-point my-window (point)))))) nil t) (setq buffer-read-only t)) -- cgit v1.2.3