diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2021-03-03 14:51:10 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-03-07 05:18:38 +0000 |
| commit | e366291e4aaacc17c98f8cd253a27ef9915f2bf5 (patch) | |
| tree | c9815054fb8006ed08321677008eac716eb4883e /elisp | |
| parent | ec460565831d206fc3109b82e3a4cb2db1fa7850 (diff) | |
| download | geiser-e366291e4aaacc17c98f8cd253a27ef9915f2bf5.tar.gz geiser-e366291e4aaacc17c98f8cd253a27ef9915f2bf5.tar.bz2 | |
geiser-messages-mode: Don't quote lambda expressions
Diffstat (limited to 'elisp')
| -rw-r--r-- | elisp/geiser-log.el | 18 |
1 files 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)) |