Subject: bug#78990: 30.1; Show-font breaks `insert-file-contents-literally'

From: Zhengyi Fu <[email-masked]>
Date: Fri, 11 Jul 2025 17:58:52 +0800

Protesilaos Stavrou <[email-masked]> 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.