branch: externals/dicom
commit 50644a781cafd46ea70e8e5bab542a6ea92fe9a0
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Use cursor-face-highlight-mode
Otherwise the current thumbnail only get a thin border.
---
dicom.el | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/dicom.el b/dicom.el
index 57aeebd401..eb2a2a0264 100644
--- a/dicom.el
+++ b/dicom.el
@@ -392,6 +392,7 @@ The command is specified as FMT string with ARGS."
(round (* 4 dicom-thumb-height) 3)
dicom-thumb-height))))
`(image ,@dicom--thumb))
+ 'cursor-face (list :inherit 'cursor)
'pointer 'hand
'keymap dicom-image-map
'dicom--file src
@@ -521,8 +522,10 @@ The command is specified as FMT string with ARGS."
(format (propertize " DICOM %s %s" 'face 'dicom-header)
(if (dicom--dir-p) "DIR" "IMAGE")
(cadr (dicom--file-name))))
- (when (and (dicom--dir-p) (not cursor-in-non-selected-windows))
- (setq-local cursor-in-non-selected-windows t)))
+ (when (dicom--dir-p)
+ (cursor-face-highlight-mode)
+ (setq-local cursor-in-non-selected-windows t
+ cursor-face-highlight-nonselected-window t)))
(defun dicom--setup-content ()
"Setup buffer content."
