From 0775a4709ce3c93ad3bbf2c5c8745a88900470c4 Mon Sep 17 00:00:00 2001 From: BardofSprites <89086143+BardofSprites@users.noreply.github.com> Date: Thu, 31 Jul 2025 14:47:34 -0400 Subject: formatting --- bard-elisp/bard-theme.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'bard-elisp/bard-theme.el') diff --git a/bard-elisp/bard-theme.el b/bard-elisp/bard-theme.el index 41396a1..1153eaa 100644 --- a/bard-elisp/bard-theme.el +++ b/bard-elisp/bard-theme.el @@ -88,11 +88,13 @@ (defvar my-last-cursor-type nil) (defun bard/update-cursor-type () - "Set cursor type to 'bar in text modes, 'box otherwise." - (let ((new-cursor (if (derived-mode-p 'text-mode) 'bar 'box))) - (unless (eq my-last-cursor-type new-cursor) - (setq cursor-type new-cursor) - (setq my-last-cursor-type new-cursor)))) + "Set cursor type to 'bar in text modes, 'box otherwise. +leave it alone in pdf-view-mode." + (unless (derived-mode-p 'pdf-view-mode) + (let ((new-cursor (if (derived-mode-p 'text-mode) 'bar 'box))) + (unless (eq my-last-cursor-type new-cursor) + (setq cursor-type new-cursor) + (setq my-last-cursor-type new-cursor))))) (add-hook 'post-command-hook #'bard/update-cursor-type) -- cgit v1.2.3