Permalink
Browse files

* helm-locate.el (helm-c-locate-init): Use pipe.

* helm-grep.el (helm-c-pdfgrep-init): Same.
  • Loading branch information...
1 parent cc67dc8 commit ada576e540a64162782060822570445cd38cc769 @thierryvolpiatto thierryvolpiatto committed Jul 17, 2012
Showing with 18 additions and 16 deletions.
  1. +2 −1 helm-grep.el
  2. +16 −15 helm-locate.el
View
@@ -700,7 +700,8 @@ If a prefix arg is given run grep on all buffers ignoring non--file-buffers."
only-files)))
(cmd-line (format helm-c-pdfgrep-default-command
helm-pattern
- fnargs)))
+ fnargs))
+ process-connection-type)
(when helm-c-pdfgrep-debug-command-line
(with-current-buffer (get-buffer-create "*helm pdfgrep debug*")
(goto-char (point-max))
View
@@ -166,21 +166,22 @@ See also `helm-locate'."
(defun helm-c-locate-init ()
"Initialize async locate process for `helm-c-source-locate'."
- (setq mode-line-format
- '(" " mode-line-buffer-identification " "
- (line-number-mode "%l") " "
- (:eval (propertize "(Locate Process Running) "
- 'face '((:foreground "red"))))))
- (prog1
- (start-process-shell-command "locate-process" nil
- (format helm-c-locate-command
- helm-pattern))
- (set-process-sentinel (get-process "locate-process")
- #'(lambda (process event)
- (when (string= event "finished\n")
- (with-helm-window
- (force-mode-line-update nil)
- (helm-update-move-first-line)))))))
+ (let (process-connection-type)
+ (setq mode-line-format
+ '(" " mode-line-buffer-identification " "
+ (line-number-mode "%l") " "
+ (:eval (propertize "(Locate Process Running) "
+ 'face '((:foreground "red"))))))
+ (prog1
+ (start-process-shell-command
+ "locate-process" helm-buffer
+ (format helm-c-locate-command helm-pattern))
+ (set-process-sentinel (get-process "locate-process")
+ #'(lambda (process event)
+ (when (string= event "finished\n")
+ (with-helm-window
+ (force-mode-line-update nil)
+ (helm-update-move-first-line))))))))
(defvar helm-c-source-locate
`((name . "Locate")

0 comments on commit ada576e

Please sign in to comment.