   (interactive)
   (when buffer-file-name
     (let* ((parsed-data (~parse-tramp-argument buffer-file-name))
-           (username  (~alist-get parsed-data 'username))
-           (host      (~alist-get parsed-data 'host))
-           (path      (~alist-get parsed-data 'path))
-           (port      (~alist-get parsed-data 'port)))
+            (username  (~alist-get parsed-data 'username))
+            (host      (~alist-get parsed-data 'host))
+            (path      (~alist-get parsed-data 'path))
+            (port      (~alist-get parsed-data 'port)))
       (find-alternate-file
-       (if (~string-empty? port)
-           (format "/sudo:root@%s:%s"
-                   host
-                   path)
-         ;; See Tramp's multiple hop
-         (progn
-           (message (format "/ssh:%s@%s#%s|sudo:%s#%s:%s"
-                            username
-                            host
-                            port
-                            host
-                            port
-                            path))
-           (format "/ssh:%s@%s#%s|sudo:%s#%s/%s"
-                   username
-                   host
-                   port
-                   host
-                   port
-                   path)))))))
+        (if (~string-empty? port)
+          (format "/sudo:root@%s:%s"
+            host
+            path)
+          ;; See Tramp's multiple hop
+          (progn
+            (message (format "/ssh:%s@%s#%s|sudo:%s#%s:%s"
+                       username
+                       host
+                       port
+                       host
+                       port
+                       path))
+            (format "/ssh:%s@%s#%s|sudo:%s#%s/%s"
+              username
+              host
+              port
+              host
+              port
+              path)))))))
 
 
 ;; (defalias 'qrr 'query-replace-Regexp)

;; filter annoying messages
;;
(defvar message-filter-regexp-list '("^Starting new Ispell process \\[.+\\] \\.\\.\\.$"
                                     "^Ispell process killed$")
  "filter formatted message string to remove noisy messages")
(defadvice message (around message-filter-by-regexp activate)
  (if (not (ad-get-arg 0))
      ad-do-it
    (let ((formatted-string (apply 'format (ad-get-args 0))))
      (if (and (stringp formatted-string)
               (some (lambda (re) (string-match re formatted-string)) message-filter-regexp-list))
          (save-excursion
            (set-buffer "*Messages*")
            (goto-char (point-max))
            (insert formatted-string "\n"))
        (progn
          (ad-set-args 0 `("%s" ,formatted-string))
          ad-do-it)))))

See docstring for `try-expand-flexible-abbrev' for information
about what flexible matching means in this context."
  (let ((collection nil)
         (regexp (he-flexible-abbrev-create-regexp str)))
    (save-excursion
      (goto-char (point-min))
      (while (search-forward-regexp regexp nil t)
