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
This commit is contained in:
Dan Davison 2011-01-24 12:00:19 +00:00
parent 8e4b9b3a6a
commit 1d1368e142
1 changed files with 2 additions and 4 deletions

View File

@ -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