gnu/packages/patches/emacs-dired-toggle-sudo-emacs-26.patch

   1 From 3c0f4b27a079b90dc632f5061a81ce28cef24801 Mon Sep 17 00:00:00 2001
   2 From: eryx67 <eryx67@gmail.com>
   3 Date: Thu, 29 Nov 2018 10:30:20 +0500
   4 Subject: [PATCH] fix for latest emacs
   5
   6 ---
   7  dired-toggle-sudo.el | 11 +++++++----
   8  1 file changed, 7 insertions(+), 4 deletions(-)
   9
  10 diff --git a/dired-toggle-sudo.el b/dired-toggle-sudo.el
  11 index 386921b..fe5898e 100644
  12 --- a/dired-toggle-sudo.el
  13 +++ b/dired-toggle-sudo.el
  14 @@ -37,17 +37,20 @@
  15  unless SUDO-USER is provided."
  16    (let* (;; Handle the case of local files. `tramp-dissect-file-name' does
  17          ;; not raise an error anymore.
  18 -        (path (if (tramp-tramp-file-p path) path (concat "/:" path)))
  19 +        ;;(path (if (tramp-tramp-file-p path) path (concat "/-::" path)))
  20          (file-vec (or (ignore-errors (tramp-dissect-file-name
  21                                        path))
  22                        (tramp-dissect-file-name
  23 -                       (concat "/:" path) 1)))
  24 +                       (concat "/-::" path) 1)))
  25          (method  (tramp-file-name-method file-vec))
  26          (user (tramp-file-name-user file-vec))
  27          (host  (tramp-file-name-host file-vec))
  28 +         (domain  (tramp-file-name-domain file-vec))
  29 +         (port  (tramp-file-name-port file-vec))
  30          (localname (expand-file-name
  31                      (tramp-file-name-localname file-vec))))
  32 -    (when (string= system-name host)
  33 +    (when (or (string= (system-name) host)
  34 +              (string= "-" host))
  35        (setq host nil))
  36      (cond
  37       ;; remote directory -> sudo
  38 @@ -67,7 +70,7 @@ unless SUDO-USER is provided."
  39        (setq method "sudo" user sudo-user)))
  40      (replace-regexp-in-string
  41       "^/:/" "/"
  42 -     (tramp-make-tramp-file-name method user host localname))))
  43 +     (tramp-make-tramp-file-name method domain user host port localname))))
  44
  45  (defun dired-toggle-sudo-find (fname)
  46    "Create a new buffer for file name FNAME."
  47 --
  48 2.22.0
  49