diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2019-02-28 10:33:05 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2019-02-28 10:33:05 +0100 |
| commit | a80e10458a6e85b64936085f95354cdde5aa847b (patch) | |
| tree | bbf3967570a3d2e30fd694501eec0ecbcd7afdca /lisp/net/tramp-rclone.el | |
| parent | 4927f94792ffaab985e0aa3c977eb19308f067cf (diff) | |
| download | emacs-a80e10458a6e85b64936085f95354cdde5aa847b.tar.gz | |
Use proper read syntax for all function names in Tramp
* lisp/net/tramp.el:
* lisp/net/tramp-adb.el:
* lisp/net/tramp-archive.el:
* lisp/net/tramp-cache.el:
* lisp/net/tramp-cmds.el:
* lisp/net/tramp-compat.el:
* lisp/net/tramp-ftp.el:
* lisp/net/tramp-gvfs.el:
* lisp/net/tramp-integration.el:
* lisp/net/tramp-rclone.el:
* lisp/net/tramp-sh.el:
* lisp/net/tramp-smb.el:
* lisp/net/tramp-sudoedit.el:
* test/lisp/net/tramp-archive-tests.el:
* test/lisp/net/tramp-tests.el: Use proper read syntax for all
function names.
Diffstat (limited to 'lisp/net/tramp-rclone.el')
| -rw-r--r-- | lisp/net/tramp-rclone.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/net/tramp-rclone.el b/lisp/net/tramp-rclone.el index 698296bf550..0148116d739 100644 --- a/lisp/net/tramp-rclone.el +++ b/lisp/net/tramp-rclone.el @@ -280,7 +280,7 @@ file names." 'copy filename newname ok-if-already-exists keep-date preserve-uid-gid preserve-extended-attributes) (tramp-run-real-handler - 'copy-file + #'copy-file (list filename newname ok-if-already-exists keep-date preserve-uid-gid preserve-extended-attributes)))) @@ -314,7 +314,7 @@ file names." (when full (let ((local (concat "^" (regexp-quote (tramp-rclone-mount-point v)))) (remote (funcall (if (tramp-compat-file-name-quoted-p directory) - 'tramp-compat-file-name-quote 'identity) + #'tramp-compat-file-name-quote #'identity) (file-remote-p directory)))) (setq result (mapcar @@ -328,7 +328,7 @@ file names." result))) (setq result (cons item result)))) ;; Return result. - (if nosort result (sort result 'string<)))))) + (if nosort result (sort result #'string<)))))) (defun tramp-rclone-handle-file-attributes (filename &optional id-format) "Like `file-attributes' for Tramp files." @@ -436,7 +436,7 @@ file names." 'rename filename newname ok-if-already-exists 'keep-date 'preserve-uid-gid) (tramp-run-real-handler - 'rename-file (list filename newname ok-if-already-exists)))) + #'rename-file (list filename newname ok-if-already-exists)))) ;; File name conversions. @@ -500,7 +500,7 @@ file names." (let ((quoted (tramp-compat-file-name-quoted-p localname)) (localname (tramp-compat-file-name-unquote localname))) (funcall - (if quoted 'tramp-compat-file-name-quote 'identity) + (if quoted #'tramp-compat-file-name-quote #'identity) (expand-file-name (if (file-name-absolute-p localname) (substring localname 1) localname) @@ -560,7 +560,7 @@ connection if a previous connection has died for some reason." ;; DESTINATION of `tramp-call-process'. (unless (tramp-rclone-mounted-p vec) (apply - 'tramp-call-process + #'tramp-call-process vec tramp-rclone-program nil 0 nil (delq nil `("mount" ,(concat host ":/") @@ -591,7 +591,7 @@ connection if a previous connection has died for some reason." (erase-buffer) (let ((flags (tramp-get-method-parameter vec (intern (format "tramp-%s-args" (car args)))))) - (apply 'tramp-call-process + (apply #'tramp-call-process vec tramp-rclone-program nil t nil (append args flags))))) (add-hook 'tramp-unload-hook |