From 635bdb902ab054252e4e0c460adab1daf9cd4cd8 Mon Sep 17 00:00:00 2001 From: rubikitch Date: Mon, 22 Nov 2010 04:51:15 +0900 Subject: [PATCH] anything.el (anything-output-filter--process-source): handle multiline in process source --- anything.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/anything.el b/anything.el index d22610a..d367229 100644 --- a/anything.el +++ b/anything.el @@ -141,7 +141,7 @@ ;; `anything-scroll-other-window-down' ;; Scroll other window (not *Anything* window) downward. ;; `anything-toggle-visible-mark' -;; Toggle anything visible bookmark at point. +;; Toggle anything visible mark at point. ;; `anything-display-all-visible-marks' ;; Show all `anything' visible marks strings. ;; `anything-next-visible-mark' @@ -2264,7 +2264,12 @@ the real value in a text property." (split-string string "\n") (assoc 'incomplete-line source)) source t)) - (anything-insert-match candidate 'insert-before-markers source) + (if (not (assq 'multiline source)) + (anything-insert-match candidate 'insert-before-markers source) + (let ((start (point))) + (anything-insert-candidate-separator) + (anything-insert-match candidate 'insert-before-markers source) + (put-text-property start (point) 'anything-multiline t))) (incf (cdr (assoc 'item-count source))) (when (>= (assoc-default 'item-count source) limit) (anything-kill-async-process process) -- 2.11.4.GIT