GNU bug report logs - #78990
30.1; Show-font breaks `insert-file-contents-literally'

Previous Next

To reply to this bug, email your comments to 78990 AT debbugs.gnu.org.
There is no need to reopen the bug first.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Zhengyi Fu <i <at> fuzy.me>
To: bug-gnu-emacs <at> gnu.org
Cc: info <at> protesilaos.com
Subject: 30.1; Show-font breaks `insert-file-contents-literally'
Date: Thu, 10 Jul 2025 20:12:48 +0800

The package `show-font' adds a file name handler to
`file-name-handler-alist', which causes an error when trying to insert
the raw contents of an TTF file into a buffer with
`insert-file-contents-literally'.

;;;###autoload
(add-to-list 'file-name-handler-alist (cons "\\.\\(ttf\\|otf\\)\\'" #'show-font-handler))

Currently I use the following advice to workaround this behavior, but I
think it's better to fix this either in show-font or in Emacs core.

(define-advice insert-file-contents-literally
    (:around (&rest args) inhibit-show-font)
  (let ((inhibit-file-name-handlers
	 (append '(show-font-handler)
		 (and (eq inhibit-file-name-operation 'insert-file-contents)
		      inhibit-file-name-handlers)))
	(inhibit-file-name-operation 'insert-file-contents))
    (apply args)))

Message #8 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Protesilaos Stavrou <prot <at> protesilaos.com>
To: Zhengyi Fu <i <at> fuzy.me>
Cc: bug-gnu-emacs <at> gnu.org, info <at> protesilaos.com
Subject: Re: 30.1; Show-font breaks `insert-file-contents-literally'
Date: Thu, 10 Jul 2025 15:20:59 +0300

On 2025-07-10 15:12, Zhengyi Fu wrote:
> The package `show-font' adds a file name handler to
> `file-name-handler-alist', which causes an error when trying to insert
> the raw contents of an TTF file into a buffer with
> `insert-file-contents-literally'.
> 
> ;;;###autoload
> (add-to-list 'file-name-handler-alist (cons "\\.\\(ttf\\|otf\\)\\'" 
> #'show-font-handler))
> 
> Currently I use the following advice to workaround this behavior, but I
> think it's better to fix this either in show-font or in Emacs core.
> 
> (define-advice insert-file-contents-literally
>     (:around (&rest args) inhibit-show-font)
>   (let ((inhibit-file-name-handlers
> 	 (append '(show-font-handler)
> 		 (and (eq inhibit-file-name-operation 'insert-file-contents)
> 		      inhibit-file-name-handlers)))
> 	(inhibit-file-name-operation 'insert-file-contents))
>     (apply args)))

Do you want to send me a patch for this? I will apply it right away. 
Thank you!

Message #11 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Zhengyi Fu <i <at> fuzy.me>
To: Protesilaos Stavrou <prot <at> protesilaos.com>
Cc: bug-gnu-emacs <at> gnu.org, info <at> protesilaos.com
Subject: Re: 30.1; Show-font breaks `insert-file-contents-literally'
Date: Thu, 10 Jul 2025 20:27:05 +0800

Protesilaos Stavrou <prot <at> protesilaos.com> writes:

> On 2025-07-10 15:12, Zhengyi Fu wrote:
>> The package `show-font' adds a file name handler to
>> `file-name-handler-alist', which causes an error when trying to insert
>> the raw contents of an TTF file into a buffer with
>> `insert-file-contents-literally'.
>> ;;;###autoload
>> (add-to-list 'file-name-handler-alist (cons "\\.\\(ttf\\|otf\\)\\'"
>> #'show-font-handler))
>> Currently I use the following advice to workaround this behavior,
>> but I
>> think it's better to fix this either in show-font or in Emacs core.
>> (define-advice insert-file-contents-literally
>>     (:around (&rest args) inhibit-show-font)
>>   (let ((inhibit-file-name-handlers
>> 	 (append '(show-font-handler)
>> 		 (and (eq inhibit-file-name-operation 'insert-file-contents)
>> 		      inhibit-file-name-handlers)))
>> 	(inhibit-file-name-operation 'insert-file-contents))
>>     (apply args)))
>
> Do you want to send me a patch for this? I will apply it right
> away. Thank you!

Thank you for your fast reply.

No.  Actually, I don't know how to fix it correctly.

Message #14 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Protesilaos Stavrou <prot <at> protesilaos.com>
To: Zhengyi Fu <i <at> fuzy.me>
Cc: bug-gnu-emacs <at> gnu.org, info <at> protesilaos.com
Subject: Re: 30.1; Show-font breaks `insert-file-contents-literally'
Date: Thu, 10 Jul 2025 20:03:32 +0300

On 2025-07-10 15:27, Zhengyi Fu wrote:
> Thank you for your fast reply.

You are welcome!

> No.  Actually, I don't know how to fix it correctly.

Okay, no worries! Let's try to do this together. I have not tried 
'insert-file-contents-literally' before. Please evaluate the following 
function and try again.

(defun show-font--insert-button ()
  "Insert `show-font-installed-file-button' at point."
  (when buffer-file-name
    (insert
     (propertize "Cannot preview this font" 'face 'show-font-title)
     "\n\n"
     (propertize buffer-file-name 'face 'bold)
     " is not installed"
     "\n\n"
     "Install this font file?"
     "\n")
    (goto-char (point-max))
    (make-text-button (line-beginning-position 0) (line-end-position 0) 
:type 'show-font-installed-file-button)))

Message #17 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Zhengyi Fu <i <at> fuzy.me>
To: Protesilaos Stavrou <prot <at> protesilaos.com>
Cc: bug-gnu-emacs <at> gnu.org, info <at> protesilaos.com
Subject: Re: 30.1; Show-font breaks `insert-file-contents-literally'
Date: Fri, 11 Jul 2025 17:58:52 +0800

Protesilaos Stavrou <prot <at> protesilaos.com> writes:

> On 2025-07-10 15:27, Zhengyi Fu wrote:
>> Thank you for your fast reply.
>
> You are welcome!
>
>> No.  Actually, I don't know how to fix it correctly.
>
> Okay, no worries! Let's try to do this together. I have not tried
> 'insert-file-contents-literally' before. Please evaluate the following
> function and try again.
>
> (defun show-font--insert-button ()
>   "Insert `show-font-installed-file-button' at point."
>   (when buffer-file-name
>     (insert
>      (propertize "Cannot preview this font" 'face 'show-font-title)
>      "\n\n"
>      (propertize buffer-file-name 'face 'bold)
>      " is not installed"
>      "\n\n"
>      "Install this font file?"
>      "\n")
>     (goto-char (point-max))
>     (make-text-button (line-beginning-position 0) (line-end-position
>     0) :type 'show-font-installed-file-button)))

After evaluating that fnuction, it doesn't signal errors, but nothing
gets inserted.

Message #20 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Protesilaos Stavrou <prot <at> protesilaos.com>
To: Zhengyi Fu <i <at> fuzy.me>
Cc: bug-gnu-emacs <at> gnu.org, info <at> protesilaos.com
Subject: Re: 30.1; Show-font breaks `insert-file-contents-literally'
Date: Fri, 11 Jul 2025 15:46:35 +0300

On 2025-07-11 12:58, Zhengyi Fu wrote:
> Protesilaos Stavrou <prot <at> protesilaos.com> writes:
> 
>> On 2025-07-10 15:27, Zhengyi Fu wrote:
>>> Thank you for your fast reply.
>> 
>> You are welcome!
>> 
>>> No.  Actually, I don't know how to fix it correctly.
>> 
>> Okay, no worries! Let's try to do this together. I have not tried
>> 'insert-file-contents-literally' before. Please evaluate the following
>> function and try again.
>> 
>> (defun show-font--insert-button ()
>>   "Insert `show-font-installed-file-button' at point."
>>   (when buffer-file-name
>>     (insert
>>      (propertize "Cannot preview this font" 'face 'show-font-title)
>>      "\n\n"
>>      (propertize buffer-file-name 'face 'bold)
>>      " is not installed"
>>      "\n\n"
>>      "Install this font file?"
>>      "\n")
>>     (goto-char (point-max))
>>     (make-text-button (line-beginning-position 0) (line-end-position
>>     0) :type 'show-font-installed-file-button)))
> 
> After evaluating that fnuction, it doesn't signal errors, but nothing
> gets inserted.

I made two changes and bumped the version number. The new package will 
be available in a few hours. I believe I have fixed the problem. See 
commits d238f83 and f6239ae in show-font.git.

Message #23 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Zhengyi Fu <i <at> fuzy.me>
To: Protesilaos Stavrou <prot <at> protesilaos.com>
Cc: bug-gnu-emacs <at> gnu.org, info <at> protesilaos.com
Subject: Re: 30.1; Show-font breaks `insert-file-contents-literally'
Date: Sat, 12 Jul 2025 15:44:03 +0800

Protesilaos Stavrou <prot <at> protesilaos.com> writes:

> On 2025-07-11 12:58, Zhengyi Fu wrote:
>> Protesilaos Stavrou <prot <at> protesilaos.com> writes:
>> 
>>> On 2025-07-10 15:27, Zhengyi Fu wrote:
>>>> Thank you for your fast reply.
>>> You are welcome!
>>> 
>>>> No.  Actually, I don't know how to fix it correctly.
>>> Okay, no worries! Let's try to do this together. I have not tried
>>> 'insert-file-contents-literally' before. Please evaluate the following
>>> function and try again.
>>> (defun show-font--insert-button ()
>>>   "Insert `show-font-installed-file-button' at point."
>>>   (when buffer-file-name
>>>     (insert
>>>      (propertize "Cannot preview this font" 'face 'show-font-title)
>>>      "\n\n"
>>>      (propertize buffer-file-name 'face 'bold)
>>>      " is not installed"
>>>      "\n\n"
>>>      "Install this font file?"
>>>      "\n")
>>>     (goto-char (point-max))
>>>     (make-text-button (line-beginning-position 0) (line-end-position
>>>     0) :type 'show-font-installed-file-button)))
>> After evaluating that fnuction, it doesn't signal errors, but
>> nothing
>> gets inserted.
>
> I made two changes and bumped the version number. The new package will
> be available in a few hours. I believe I have fixed the problem. See
> commits d238f83 and f6239ae in show-font.git.

It works now!  Thank you very much! 👍

Message #28 received at 78990-done <at> debbugs.gnu.org (full text, mbox):

From: Eli Zaretskii <eliz <at> gnu.org>
To: Zhengyi Fu <i <at> fuzy.me>
Cc: info <at> protesilaos.com, prot <at> protesilaos.com, 78990-done <at> debbugs.gnu.org
Subject: Re: bug#78990: 30.1; Show-font breaks `insert-file-contents-literally'
Date: Sat, 19 Jul 2025 11:37:03 +0300

> Cc: 78990 <at> debbugs.gnu.org, info <at> protesilaos.com
> From: Zhengyi Fu <i <at> fuzy.me>
> Date: Sat, 12 Jul 2025 15:44:03 +0800
> 
> Protesilaos Stavrou <prot <at> protesilaos.com> writes:
> 
> > On 2025-07-11 12:58, Zhengyi Fu wrote:
> >> Protesilaos Stavrou <prot <at> protesilaos.com> writes:
> >> 
> >>> On 2025-07-10 15:27, Zhengyi Fu wrote:
> >>>> Thank you for your fast reply.
> >>> You are welcome!
> >>> 
> >>>> No.  Actually, I don't know how to fix it correctly.
> >>> Okay, no worries! Let's try to do this together. I have not tried
> >>> 'insert-file-contents-literally' before. Please evaluate the following
> >>> function and try again.
> >>> (defun show-font--insert-button ()
> >>>   "Insert `show-font-installed-file-button' at point."
> >>>   (when buffer-file-name
> >>>     (insert
> >>>      (propertize "Cannot preview this font" 'face 'show-font-title)
> >>>      "\n\n"
> >>>      (propertize buffer-file-name 'face 'bold)
> >>>      " is not installed"
> >>>      "\n\n"
> >>>      "Install this font file?"
> >>>      "\n")
> >>>     (goto-char (point-max))
> >>>     (make-text-button (line-beginning-position 0) (line-end-position
> >>>     0) :type 'show-font-installed-file-button)))
> >> After evaluating that fnuction, it doesn't signal errors, but
> >> nothing
> >> gets inserted.
> >
> > I made two changes and bumped the version number. The new package will
> > be available in a few hours. I believe I have fixed the problem. See
> > commits d238f83 and f6239ae in show-font.git.
> 
> It works now!  Thank you very much! 👍

Thanks, I'm therefore closing the bug.

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.