emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/show-font 69e2db52e5 34/54: Make show-font-install non-


From: ELPA Syncer
Subject: [elpa] externals/show-font 69e2db52e5 34/54: Make show-font-install non-interactive
Date: Tue, 10 Sep 2024 03:58:59 -0400 (EDT)

branch: externals/show-font
commit 69e2db52e5ce78c3d81e22920be1bf93a116485a
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]