Zander671/emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix trusted-content-p

Browse Source
This commit is contained in:
Alexander Rosenberg 2025-04-01 20:54:20 +09:00
parent e0c8453dfe
commit 8112f6b1dc
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
init.el
View File

@ -106,8 +106,8 @@
'(:eval (my/-trusted-content-segment))) '(:eval (my/-trusted-content-segment)))
(defun my/-fix-trusted-content-p-for-remote (oldfun &rest args) (defun my/-fix-trusted-content-p-for-remote (oldfun &rest args)
(let ((source (or buffer-file-truename default-directory))) (let ((source (or buffer-file-truename default-directory)))
(if (not source) (if (or (not source) (eq trusted-content :all))
(apply oldfun args) (apply oldfun (ensure-list args))
(let* ((method (file-remote-p source 'method)) (let* ((method (file-remote-p source 'method))
(host (file-remote-p source 'host)) (host (file-remote-p source 'host))
(trusted-content (cl-remove-if-not (trusted-content (cl-remove-if-not