diff --git a/helm-bmkext.el b/helm-bmkext.el index a9821eae4..049831192 100644 --- a/helm-bmkext.el +++ b/helm-bmkext.el @@ -67,7 +67,7 @@ . (lambda (candidate) (let ((bmk (helm-bookmark-get-bookmark-from-name candidate))) - (bookmark--jump-via bmk 'pop-to-buffer)))) + (bookmark--jump-via bmk 'switch-to-buffer)))) (persistent-help . "Show contact - Prefix with C-u to append") (filtered-candidate-transformer helm-adaptive-sort @@ -75,14 +75,14 @@ (action . (("Show Contact(s)" . (lambda (candidate) (let* ((contacts (helm-marked-candidates)) - (current-prefix-arg (or helm-current-prefix-arg - (> (length contacts) 1)))) + (current-prefix-arg helm-current-prefix-arg)) (bookmark-jump (helm-bookmark-get-bookmark-from-name (car contacts))) (helm-aif (cdr contacts) - (loop for bmk in it do - (bookmark-jump - (helm-bookmark-get-bookmark-from-name bmk))))))) + (let ((current-prefix-arg '(4))) + (loop for bmk in it do + (bookmark-jump + (helm-bookmark-get-bookmark-from-name bmk)))))))) ("Send Mail" . (lambda (candidate) (let* ((contacts (helm-marked-candidates)) diff --git a/helm-grep.el b/helm-grep.el index 353f59e56..d72579597 100644 --- a/helm-grep.el +++ b/helm-grep.el @@ -717,9 +717,7 @@ Special commands: :fc-transformer '(helm-adaptive-sort helm-grep-ack-types-transformer) :buffer "*helm ack-types*"))) - (mapconcat #'(lambda (type) - (concat "--type=" type)) - types " "))) + (mapconcat #'(lambda (type) (concat "--type=" type)) types " "))) ;;; grep extensions