From e488cb26d467477ab94fd94585691cf11dc52ffc Mon Sep 17 00:00:00 2001 From: Gerard Vermeulen Date: Thu, 14 Mar 2024 11:25:49 +0100 Subject: [PATCH] Use `setq-local' instead of `setq'; `let' binding fails --- README.org | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/README.org b/README.org index 2dd9e19..1b3f9b9 100644 --- a/README.org +++ b/README.org @@ -622,15 +622,15 @@ verse and quote blocks are fontified using the `org-verse' and (defun set-buffer-variable-pitch-face () "Set a variable width (proportional) font in current buffer." (interactive) - (let ((buffer-face-mode-face 'variable-pitch)) - (buffer-face-mode))) + (setq-local buffer-face-mode-face 'variable-pitch) + (buffer-face-mode)) ;; Use monospaced font faces in current buffer (defun set-buffer-fixed-pitch-face () "Set a fixed width (monospace) font in current buffer." (interactive) - (let ((buffer-face-mode-face 'fixed-pitch)) - (buffer-face-mode))) + (setq-local buffer-face-mode-face 'fixed-pitch) + (buffer-face-mode)) (add-hook 'magit-mode-hook #'set-buffer-fixed-pitch-face) (add-hook 'prog-mode-hook #'set-buffer-fixed-pitch-face)