branch: externals/show-font
commit 69e2db52e5ce78c3d81e22920be1bf93a116485a
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Make show-font-install non-interactive
Because this might then be called from the wrong place. I do not want
to prompt the user for a file to install.
---
show-font.el | 4 ----
1 file changed, 4 deletions(-)
diff --git a/show-font.el b/show-font.el
index 3171dc443c..7ab741e938 100644
--- a/show-font.el
+++ b/show-font.el
@@ -264,12 +264,8 @@ FAMILY is a string like those of
`show-font--get-installed-font-families'."
(defun show-font-install (file)
"Install font FILE locally.
-When called interactively, FILE is the variable `buffer-file-name'.
-Otherwise, FILE is a string.
-
FILE must be of type TTF or OTF and must not already be installed (per
`show-font-installed-file-p')."
- (interactive (list buffer-file-name))
(if (string-match-p "\\.\\(ttf\\|otf\\)\\'" file)
(cond
((show-font-installed-file-p file)
