From 99053aa4a30f6144297227e71f7ad3ef7924bd83 Mon Sep 17 00:00:00 2001 From: Protesilaos Stavrou Date: Thu, 5 Oct 2023 15:50:44 +0300 Subject: [PATCH] Reposition dired-preview--add-truncation-message --- dired-preview.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/dired-preview.el b/dired-preview.el index 84c5246..28336cc 100644 --- a/dired-preview.el +++ b/dired-preview.el @@ -216,6 +216,13 @@ Return the preview buffer." (t (dired-preview--find-file-no-select file)))) +(defun dired-preview--add-truncation-message () + "Add a message indicating that the previewed file is truncated." + (let ((end-ov (make-overlay (1- (point-max)) (point-max)))) + (overlay-put + end-ov 'display + (propertize "\n--PREVIEW TRUNCATED--" 'face 'shadow)))) + (declare-function hexl-mode "hexl") (declare-function hexl-mode-exit "hexl" (&optional arg)) @@ -249,13 +256,6 @@ The size of the leading chunk is specified by nil nil 'equal) (current-buffer)))))) -(defun dired-preview--add-truncation-message () - "Add a message indicating that the previewed file is truncated." - (let ((end-ov (make-overlay (1- (point-max)) (point-max)))) - (overlay-put - end-ov 'display - (propertize "\n--PREVIEW TRUNCATED--" 'face 'shadow)))) - (defun dired-preview-hexl-toggle () "Toggle preview between text and `hexl-mode'." (interactive) -- 2.45.2