diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2017-09-03 07:29:58 +0200 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2017-09-03 07:29:58 +0200 |
commit | 20f7e74764c0c230c843d43017d924141107aa11 (patch) | |
tree | 4856e6057ebbe79600794ba4456a896e89189d0b /helm-bookmark.el | |
parent | a83e2dd3ef36046da61a73c4b7a5e6736eafb0d1 (diff) |
Fix highlighting of non connected remote bmk's
* helm-bookmark.el (helm-highlight-bookmark): Do it.
Diffstat (limited to 'helm-bookmark.el')
-rw-r--r-- | helm-bookmark.el | 29 |
1 files changed, 18 insertions, 11 deletions
diff --git a/helm-bookmark.el b/helm-bookmark.el index e4c97b58..20536ca5 100644 --- a/helm-bookmark.el +++ b/helm-bookmark.el @@ -681,18 +681,25 @@ than `w3m-browse-url' use it." ( ;; Addressbook isabook (propertize trunc 'face 'helm-bookmark-addressbook)) - ( ;; directories + (;; Directories (helm-find-files) + hff + (if (and (file-remote-p isfile) + (not (file-remote-p isfile nil t))) + (propertize trunc 'face 'helm-bookmark-file-not-found + 'help-echo isfile) + (propertize trunc 'face 'helm-bookmark-directory + 'help-echo isfile))) + ( ;; Directories (dired) (and isfile - (or hff - ;; This is needed because `non-essential' - ;; is not working on Emacs-24.2 and the behavior - ;; of tramp seems to have changed since previous - ;; versions (Need to reenter password even if a - ;; first connection have been established, - ;; probably when host is named differently - ;; i.e machine/localhost) - (and (not (file-remote-p isfile)) - (file-directory-p isfile)))) + ;; This is needed because `non-essential' + ;; is not working on Emacs-24.2 and the behavior + ;; of tramp seems to have changed since previous + ;; versions (Need to reenter password even if a + ;; first connection have been established, + ;; probably when host is named differently + ;; i.e machine/localhost) + (and (not (file-remote-p isfile)) + (file-directory-p isfile))) (propertize trunc 'face 'helm-bookmark-directory 'help-echo isfile)) ( ;; Non existing files. |