diff options
| author | Michael Albinus | 2021-03-14 09:27:42 +0100 |
|---|---|---|
| committer | Michael Albinus | 2021-03-14 09:27:42 +0100 |
| commit | ebfb4c2789733d7ff11d08a595faa5804196c8e5 (patch) | |
| tree | 8ae5ccbb34b63e55ad8d2be974b6be63cb37af10 | |
| parent | ebc3b25409dd614c1814a0643960452683e37aa3 (diff) | |
| download | emacs-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.el | 4 |
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'." | |||
| 477 | Files in that directory and all subdirectories will be encrypted | 477 | Files in that directory and all subdirectories will be encrypted |
| 478 | before copying to, and decrypted after copying from that | 478 | before copying to, and decrypted after copying from that |
| 479 | directory. File names will be also encrypted." | 479 | directory. 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 | ||