branch: externals/dicom
commit c9cfa9d24ce840fd5abd1870b24dcc17f08e3272
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Separator lines
---
dicom.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/dicom.el b/dicom.el
index c8371861e0..e00e661875 100644
--- a/dicom.el
+++ b/dicom.el
@@ -347,7 +347,7 @@ progress:${percent-pos}%%' %s) & disown"
(defun dicom--title (level title)
"Insert TITLE at LEVEL into buffer."
(insert
- "\n"
+ (propertize "\n" 'face '(:height 8))
(propertize (format " %s %s\n" (make-string level ?*) title)
'face (list 'dicom-title (intern (format "outline-%s"
level))))))
@@ -407,14 +407,14 @@ progress:${percent-pos}%%' %s) & disown"
(defun dicom--insert-large ()
"Insert large image."
(pcase-let ((`(,dst . ,tmp) (dicom--cache-name (concat "large"
dicom--file))))
- (insert "\n")
+ (insert (propertize "\n" 'face '(:height 8)))
(dicom--button "Revert" #'revert-buffer)
(dicom--button "Larger" #'dicom-larger)
(dicom--button "Smaller" #'dicom-smaller)
(dicom--button "Rotate" #'dicom-rotate)
(when-let ((frames (alist-get 'NumberOfFrames dicom--data)))
(dicom--button (format "Play (%s frames)" frames) #'dicom-play))
- (insert "\n\n")
+ (insert "\n" (propertize "\n" 'face '(:height 8)))
(let ((pos (point)))
(insert dicom--large-placeholder "\n")
(if (file-exists-p dst)
