diff options
| author | Dan Davison <dandavison7@gmail.com> | 2011-01-24 12:00:19 +0000 |
|---|---|---|
| committer | Dan Davison <dandavison7@gmail.com> | 2011-02-13 11:13:32 +0000 |
| commit | 1d1368e142601896b13245b733a2bcf80ca6dc51 (patch) | |
| tree | 76593e0b3b9d80a21dbeb2d85fc717df1741a55b | |
| parent | 8e4b9b3a6a24ae3cb502733e8a07da7637020551 (diff) | |
| download | org-mode-1d1368e142601896b13245b733a2bcf80ca6dc51.tar.gz | |
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
| -rw-r--r-- | lisp/ob.el | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -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 |