From 1d1368e142601896b13245b733a2bcf80ca6dc51 Mon Sep 17 00:00:00 2001 From: Dan Davison Date: Mon, 24 Jan 2011 12:00:19 +0000 Subject: [PATCH] ob: Maintain in-context text properties when listing search hits in minibuffer * lisp/ob.el (org-babel-src-block-names): Don't strip text properties from search hits (org-babel-result-names): Don't strip text properties from search hits --- lisp/ob.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/lisp/ob.el b/lisp/ob.el index d89892f7f..b4425b613 100644 --- a/lisp/ob.el +++ b/lisp/ob.el @@ -1159,8 +1159,7 @@ org-babel-named-src-block-regexp." (when file (find-file file)) (goto-char (point-min)) (let (names) (while (re-search-forward org-babel-src-name-w-name-regexp nil t) - (setq names (cons (org-babel-clean-text-properties (match-string 4)) - names))) + (setq names (cons (match-string 4) names))) names))) ;;;###autoload @@ -1193,8 +1192,7 @@ buffer or nil if no such result exists." (when file (find-file file)) (goto-char (point-min)) (let (names) (while (re-search-forward org-babel-result-w-name-regexp nil t) - (setq names (cons (org-babel-clean-text-properties (match-string 4)) - names))) + (setq names (cons (match-string 4) names))) names))) ;;;###autoload