diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2023-01-17 16:00:08 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2023-01-17 16:00:08 +0100 |
| commit | 013ab7e2a83afa7fb577c356ae686439a2906f34 (patch) | |
| tree | ae500e02b0f7269420cc607c6b8c7506fcd49fdd /lisp/net/ange-ftp.el | |
| parent | 96015c9c8cc1720e8ee7cd9cea4de48126dd9122 (diff) | |
| download | emacs-013ab7e2a83afa7fb577c356ae686439a2906f34.tar.gz | |
Complete implementation of `file-user-id'
* lisp/net/ange-ftp.el (ange-ftp-file-user-uid): New defun. Mark
it as file name handler for `file-user-uid'.
* lisp/net/tramp-archive.el (tramp-archive-handle-file-user-uid):
Move up. Protect `file-user-id' call for older Emacs versions.
* lisp/net/tramp-crypt.el (tramp-crypt-file-name-handler-alist):
Remove 'file-user-uid'.
* test/lisp/net/tramp-archive-tests.el
(tramp-archive-test44-file-user-uid): New test.
(tramp-archive-test48-auto-load)
(tramp-archive-test48-delay-load): Rename.
* test/lisp/net/tramp-tests.el (tramp-test44-file-user-uid): New test.
(tramp--test-asynchronous-requests-timeout): Adapt docstring.
(tramp-test45-asynchronous-requests)
(tramp-test46-dired-compress-file)
(tramp-test46-dired-compress-dir, tramp-test47-read-password)
(tramp-test48-auto-load, tramp-test48-delay-load)
(tramp-test48-recursive-load, tramp-test48-remote-load-path)
(tramp-test49-unload): Rename.
Diffstat (limited to 'lisp/net/ange-ftp.el')
| -rw-r--r-- | lisp/net/ange-ftp.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index a14122f815a..e21367135d3 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -4379,6 +4379,10 @@ NEWNAME should be the name to give the new compressed or uncompressed file.") ;; or return nil meaning don't make a backup. (if ange-ftp-make-backup-files (ange-ftp-real-find-backup-file-name fn))) + +(defun ange-ftp-file-user-uid () + ;; Return "don't know" value. + -1) ;;; Define the handler for special file names ;;; that causes ange-ftp to be invoked. @@ -4519,6 +4523,9 @@ NEWNAME should be the name to give the new compressed or uncompressed file.") (put 'file-notify-add-watch 'ange-ftp 'ignore) (put 'file-notify-rm-watch 'ange-ftp 'ignore) (put 'file-notify-valid-p 'ange-ftp 'ignore) + +;; Return the "don't know' value for remote user uid. +(put 'file-user-uid 'ange-ftp 'ange-ftp-file-user-uid) ;;; Define ways of getting at unmodified Emacs primitives, ;;; turning off our handler. |