* helm-bmkext.el (helm-source-bmkext-addressbook): Fix prefix arg usage.

* helm-grep.el: reindent.
emacs-helm · Apr 6, 2013 · b72545d · b72545d
1 parent ef5874d
commit b72545d
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 9 deletions.
diff --git a/helm-bmkext.el b/helm-bmkext.el
@@ -67,22 +67,22 @@
      . (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
      helm-highlight-bookmark)
     (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
@@ -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