From 95fe0861c93689d7c0d837e5ef335a07ba90326b Mon Sep 17 00:00:00 2001 From: Alexander Rosenberg Date: Fri, 28 Feb 2025 19:55:07 -0800 Subject: [PATCH] Fix trusted-content for remote directories --- init.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/init.el b/init.el index f42ba44..71c5092 100644 --- a/init.el +++ b/init.el @@ -104,6 +104,19 @@ (propertize "[Untrusted]" 'face 'error))))) (add-to-list 'mode-line-misc-info '(: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) + (let* ((method (file-remote-p source 'method)) + (host (file-remote-p source 'host)) + (trusted-content (cl-remove-if-not + (llama and (equal method (file-remote-p % 'method)) + (equal host (file-remote-p % 'host))) + trusted-content))) + (apply oldfun args))))) + (advice-add 'trusted-content-p :around + #'my/-fix-trusted-content-p-for-remote) ;; Increase responsiveness (setq gc-cons-threshold 80000000