Skip to content
Browse files

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

* helm-grep.el: reindent.
  • Loading branch information...
1 parent ef5874d commit b72545d281e5a4be66218bc9bfd40d87e7fe44f0 @thierryvolpiatto thierryvolpiatto committed Apr 6, 2013
Showing with 7 additions and 9 deletions.
  1. +6 −6 helm-bmkext.el
  2. +1 −3 helm-grep.el
View
12 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))
View
4 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

0 comments on commit b72545d

Please sign in to comment.
Something went wrong with that request. Please try again.