diff options
| author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2016-11-23 13:18:37 +0100 |
|---|---|---|
| committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2016-11-23 15:29:35 +0100 |
| commit | b4e46911dab20a03f63d3f7f345c80efaa39f990 (patch) | |
| tree | 1784f0795a8f711d8277371f36e5593d9d1920a6 /helm-bookmark.el | |
| parent | 0941293fb7129c83f04c584474ad1d85a6595ba3 (diff) | |
Allow toggling bmk view in PA for addressbook and fix error with images.
* helm-bookmark.el (helm-bookmark-addressbook-class): Do it.
Diffstat (limited to 'helm-bookmark.el')
| -rw-r--r-- | helm-bookmark.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/helm-bookmark.el b/helm-bookmark.el index 8a24c3d2..031f01a7 100644 --- a/helm-bookmark.el +++ b/helm-bookmark.el @@ -545,7 +545,15 @@ than `w3m-browse-url' use it." (lambda (candidate) (let ((bmk (helm-bookmark-get-bookmark-from-name candidate))) - (bookmark--jump-via bmk 'switch-to-buffer)))) + (if (and (get-buffer-window "*addressbook*" 'visible) + (string= bmk (with-current-buffer "*addressbook*" + (save-excursion + (search-forward "^Name: " nil t) + (car (addressbook-get-contact-data)))))) + (kill-buffer "*addressbook*") + (when (buffer-live-p (get-buffer "*addressbook*")) + (kill-buffer "*addressbook*")) + (bookmark--jump-via bmk 'switch-to-buffer))))) (persistent-help :initform "Show contact - Prefix with C-u to append") (mode-line :initform (list "Contact(s)" helm-mode-line-string)) (filtered-candidate-transformer :initform |