aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichael Albinus2021-03-14 09:27:42 +0100
committerMichael Albinus2021-03-14 09:27:42 +0100
commitebfb4c2789733d7ff11d08a595faa5804196c8e5 (patch)
tree8ae5ccbb34b63e55ad8d2be974b6be63cb37af10
parentebc3b25409dd614c1814a0643960452683e37aa3 (diff)
downloademacs-ebfb4c2789733d7ff11d08a595faa5804196c8e5.tar.gz
emacs-ebfb4c2789733d7ff11d08a595faa5804196c8e5.zip
* lisp/net/tramp-crypt.el (tramp-crypt-add-directory):
Don't autoload setting property `completion-predicate'.
-rw-r--r--lisp/net/tramp-crypt.el4
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/net/tramp-crypt.el b/lisp/net/tramp-crypt.el
index 278fb9d8732..f44be449e25 100644
--- a/lisp/net/tramp-crypt.el
+++ b/lisp/net/tramp-crypt.el
@@ -477,7 +477,6 @@ See `tramp-crypt-do-encrypt-or-decrypt-file'."
477Files in that directory and all subdirectories will be encrypted 477Files in that directory and all subdirectories will be encrypted
478before copying to, and decrypted after copying from that 478before copying to, and decrypted after copying from that
479directory. File names will be also encrypted." 479directory. File names will be also encrypted."
480 ;; (declare (completion tramp-crypt-enabled-p))
481 (interactive "DRemote directory name: ") 480 (interactive "DRemote directory name: ")
482 (unless tramp-crypt-enabled 481 (unless tramp-crypt-enabled
483 (tramp-user-error nil "Feature is not enabled.")) 482 (tramp-user-error nil "Feature is not enabled."))
@@ -490,8 +489,7 @@ directory. File names will be also encrypted."
490 (setq tramp-crypt-directories (cons name tramp-crypt-directories))) 489 (setq tramp-crypt-directories (cons name tramp-crypt-directories)))
491 (tramp-register-file-name-handlers)) 490 (tramp-register-file-name-handlers))
492 491
493;; Starting with Emacs 28.1, this can be replaced by the "(declare ...)" form. 492;; `tramp-crypt-enabled-p' is not autoloaded, and this setting isn't either.
494;;;###tramp-autoload
495(function-put 493(function-put
496 #'tramp-crypt-add-directory 'completion-predicate #'tramp-crypt-enabled-p) 494 #'tramp-crypt-add-directory 'completion-predicate #'tramp-crypt-enabled-p)
497 495