]> git.eshelyaron.com Git - emacs.git/commitdiff
; Fix last change
authorPo Lu <luangruo@yahoo.com>
Wed, 28 Feb 2024 04:23:32 +0000 (12:23 +0800)
committerEshel Yaron <me@eshelyaron.com>
Wed, 28 Feb 2024 17:53:42 +0000 (18:53 +0100)
* lisp/net/tramp-androidsu.el
(tramp-androidsu-handle-write-region): Delete function.
(tramp-androidsu-sh-handle-write-region): New function.
(tramp-androidsu-file-name-handler-alist): Avoid infinite
recursion by replacing handle-write-region with the tramp-sh
implementation.

(cherry picked from commit 977a56d5c7d71b958767dbae05b75c5e5cb87571)

lisp/net/tramp-androidsu.el

index 6d4ac2c17f157098da4f90ee37ac3809abda2ad0..fd9edb6a92e64c457681b0020b56ecf3dc487bcd 100644 (file)
@@ -441,8 +441,8 @@ FUNCTION."
 (defalias 'tramp-androidsu-handle-verify-visited-file-modtime
   (tramp-androidsu-generate-wrapper #'tramp-handle-verify-visited-file-modtime))
 
-(defalias 'tramp-androidsu-handle-write-region
-  (tramp-androidsu-generate-wrapper #'tramp-handle-write-region))
+(defalias 'tramp-androidsu-sh-handle-write-region
+  (tramp-androidsu-generate-wrapper #'tramp-sh-handle-write-region))
 
 ;;;###tramp-autoload
 (defconst tramp-androidsu-file-name-handler-alist
@@ -532,7 +532,7 @@ FUNCTION."
     (unlock-file . tramp-androidsu-handle-unlock-file)
     (vc-registered . ignore)
     (verify-visited-file-modtime . tramp-androidsu-handle-verify-visited-file-modtime)
-    (write-region . tramp-androidsu-handle-write-region))
+    (write-region . tramp-androidsu-sh-handle-write-region))
   "Alist of TRAMP handler functions for superuser sessions on Android.")
 
 ;; It must be a `defsubst' in order to push the whole code into