diff options
| author | BardofSprites <[email protected]> | 2025-07-31 14:47:34 -0400 |
|---|---|---|
| committer | BardofSprites <[email protected]> | 2025-07-31 14:47:34 -0400 |
| commit | 0775a4709ce3c93ad3bbf2c5c8745a88900470c4 (patch) | |
| tree | e6469ddc3f147d518bb32eed604861216ef1788c /bard-elisp | |
| parent | 399cf54b884e9c3a5fd3cec2a1a0c45fa27aa99e (diff) | |
formatting
Diffstat (limited to 'bard-elisp')
| -rw-r--r-- | bard-elisp/bard-theme.el | 12 |
1 files changed, 7 insertions, 5 deletions
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) |