Fix trusted-content-p

2025-04-01 20:54:20 +09:00
parent e0c8453dfe
commit 8112f6b1dc
1 changed files with 2 additions and 2 deletions
--- a/init.el
+++ b/init.el
@ -106,8 +106,8 @@
               '(:eval (my/-trusted-content-segment)))
  (defun my/-fix-trusted-content-p-for-remote (oldfun &rest args)
    (let ((source (or buffer-file-truename default-directory)))
-      (if (not source)
-          (apply oldfun args)
+      (if (or (not source) (eq trusted-content :all))
+          (apply oldfun (ensure-list args))
        (let* ((method (file-remote-p source 'method))
               (host (file-remote-p source 'host))
               (trusted-content (cl-remove-if-not