     (anything-match-line-color-current-line)))
 
 (defun anything-find-file-as-root (candidate)
-  (find-file (concat "/su::" (expand-file-name candidate))))
+  (find-file (concat "/" anything-su-or-sudo "::" (expand-file-name candidate))))
 
 ;; borrowed from etags.el
 ;; (anything-c-goto-line-with-adjustment (line-number-at-pos) ";; borrowed from etags.el")

  (anything '(anything-c-source-info-elisp
              anything-c-source-info-cl
              anything-c-source-info-pages)
            (thing-at-point 'sexp)))

(defun anything-show-kill-ring ()
  "Show `kill-ring'. It is drop-in replacement of `yank-pop'.

(defun tv-root-logged-p ()
  (catch 'break
    (dolist (i (mapcar #'buffer-name (buffer-list)))
      (when (string-match (format "*tramp/%s ." anything-su-or-sudo) i)
        (throw 'break t)))))


