branch: externals/show-font
commit d85cab7905596a619da7b1a82dd2d30f3fda6017
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Move a comment closer to what it refers to
---
show-font.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/show-font.el b/show-font.el
index 7b8117a93f..92be54c713 100644
--- a/show-font.el
+++ b/show-font.el
@@ -218,14 +218,14 @@ return nil."
(defun show-font-handler (operation &rest args)
"Handle the given I/O `file-name-handler-alist' OPERATION with ARGS.
Determine how to render the font file contents in a buffer."
- ;; Handle any operation we do not know about. This is copied from
- ;; the example shown in (info "(elisp) Magic File Names").
(if-let* ((_ (eq operation 'insert-file-contents))
(filename (car args))
(visit (cadr args)))
(progn
(setq buffer-file-name filename)
(show-font--add-text))
+ ;; Handle any operation we do not know about. This is copied from
+ ;; the example shown in (info "(elisp) Magic File Names").
(let ((inhibit-file-name-handlers
(cons #'show-font-handler
(and (eq inhibit-file-name-operation operation)
