all: Namespace functions and variables

1 files changed, 12 insertions, 12 deletions

diff --git a/lisp/init-tramp.el b/lisp/init-tramp.el
index 4fe63e0..9aa268b 100644
--- a/lisp/init-tramp.el
+++ b/lisp/init-tramp.el
@@ -1,12 +1,12 @@
-(defun sudo-prefix-p (prefix)
+(defun mpolden/sudo-prefix-p (prefix)
   "Return non-nil if PREFIX is a sudo prefix."
   (member prefix '("/sudo" "/sudo:")))
 
-(defun ssh-prefix-p (prefix)
+(defun mpolden/ssh-prefix-p (prefix)
   "Return non-nil if PREFIX is a ssh prefix."
   (string-equal prefix "/ssh"))
 
-(defun sudo-file-name (filename)
+(defun mpolden/sudo-file-name (filename)
   "Return FILENAME with a sudo prefix.
 
 If FILENAME already has a sudo prefix, do nothing. If FILENAME is
@@ -14,29 +14,29 @@ accessed over SSH, prefix it with \"/sudo:\". Otherwise, assume
 FILENAME is a local path and prefix it with \"/sudo::\"."
   (let* ((splitname (split-string filename ":"))
          (prefix (car splitname)))
-    (if (sudo-prefix-p prefix)
+    (if (mpolden/sudo-prefix-p prefix)
         filename
-      (let* ((ssh (ssh-prefix-p prefix))
+      (let* ((ssh (mpolden/ssh-prefix-p prefix))
              (sudo-prefix (if ssh "/sudo" "/sudo:"))
              (components (if ssh (cdr splitname) splitname)))
         (mapconcat 'identity (cons sudo-prefix components) ":")))))
 
-(defun sudo-find-file (&optional arg)
+(defun mpolden/sudo-find-file (&optional arg)
   "Find file and open it with sudo.
 With a prefix ARG prompt edit currently visited file using sudo."
   (interactive "P")
   (if arg
-      (find-alternate-file (sudo-file-name buffer-file-name))
-    (find-file (sudo-file-name (read-file-name "Find file with sudo: ")))))
+      (find-alternate-file (mpolden/sudo-file-name buffer-file-name))
+    (find-file (mpolden/sudo-file-name (read-file-name "Find file with sudo: ")))))
 
-(defun sudo-current-file ()
+(defun mpolden/sudo-current-file ()
   (interactive)
-  (sudo-find-file t))
+  (mpolden/sudo-find-file t))
 
 (use-package tramp
   :bind
-  (("C-x +" . sudo-find-file)
-   ("C-x !" . sudo-current-file))
+  (("C-x +" . mpolden/sudo-find-file)
+   ("C-x !" . mpolden/sudo-current-file))
 
   :config
   ;; make sudo:remote-host work as expected