From 676f07f9788261997ae024febcfe63baea68effe Mon Sep 17 00:00:00 2001 From: Thierry Volpiatto Date: Wed, 23 Nov 2016 15:45:10 +0100 Subject: Use addressbook-buffer-name. * helm-bookmark.el (helm-bookmark-addressbook-class): Do it. --- helm-bookmark.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'helm-bookmark.el') diff --git a/helm-bookmark.el b/helm-bookmark.el index 031f01a7..b43d24e9 100644 --- a/helm-bookmark.el +++ b/helm-bookmark.el @@ -545,14 +545,14 @@ than `w3m-browse-url' use it." (lambda (candidate) (let ((bmk (helm-bookmark-get-bookmark-from-name candidate))) - (if (and (get-buffer-window "*addressbook*" 'visible) - (string= bmk (with-current-buffer "*addressbook*" + (if (and (get-buffer-window addressbook-buffer-name 'visible) + (string= bmk (with-current-buffer addressbook-buffer-name (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*")) + (kill-buffer addressbook-buffer-name) + (when (buffer-live-p (get-buffer addressbook-buffer-name)) + (kill-buffer addressbook-buffer-name)) (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)) -- cgit v1.2.3