[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master fab48f1a543: ; Fix error in my last commit

From: Michael Albinus
Subject: master fab48f1a543: ; Fix error in my last commit
Date: Sun, 10 Dec 2023 09:15:24 -0500 (EST)

branch: master
commit fab48f1a543bed74e031d2e2cebac4e1165d7b4b
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

    ; Fix error in my last commit
    * lisp/files-x.el (hack-connection-local-variables): Autoload.
    (connection-local-value): Revert previous fix.
 lisp/files-x.el | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/lisp/files-x.el b/lisp/files-x.el
index 96d49427c81..282cc79f26e 100644
--- a/lisp/files-x.el
+++ b/lisp/files-x.el
@@ -791,6 +791,7 @@ definitions that aren't listed in VARIABLES."
     (setq variables (nreverse existing-variables)))
   (connection-local-set-profile-variables profile variables))
 (defun hack-connection-local-variables (criteria)
   "Read connection-local variables according to CRITERIA.
 Store the connection-local variables in buffer local
@@ -935,13 +936,8 @@ value is the default binding of the variable."
   (unless (symbolp variable)
     (signal 'wrong-type-argument (list 'symbolp variable)))
   `(let (connection-local-variables-alist file-local-variables-alist)
-     ;; This is a macro, so whether it is autoloaded doesn't influence
-     ;; whether its callers will induce the loading of files-x.el.
-     ;;
-     ;; Verify that h-c-l-v is autoloaded before calling it.
-     (when (fboundp 'hack-connection-local-variables)
-       (hack-connection-local-variables
-        (connection-local-criteria-for-default-directory ,application)))
+     (hack-connection-local-variables
+      (connection-local-criteria-for-default-directory ,application))
      (if-let ((result (assq ',variable connection-local-variables-alist)))
          (cdr result)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]