mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-22 07:09:47 +00:00
Code

contrib/lisp/org-bibtex-extras.el: Replace non-existent org-babel-clean-text-properties' with org-no-properties'

Browse Source 
* contrib/lisp/org-bibtex-extras.el (obe-citations)
(obe-get-meta-data): Replace non-existent
`org-babel-clean-text-properties' with `org-no-properties'.

TINYCHANGE
This commit is contained in:
Aaron Ecay 2013-04-03 13:07:10 +02:00 committed by Bastien Guerry
parent b70ec7a29c
commit 137fd35b64
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
contrib/lisp/org-bibtex-extras.el
View File

@ -78,7 +78,7 @@ For example, to point to your `obe-bibtex-file' use the following.
(find-file obe-bibtex-file)
(goto-char (point-min))
(while (re-search-forward " :CUSTOM_ID: \\(.+\\)$" nil t)
(push (org-babel-clean-text-properties (match-string 1))
(push (org-no-properties (match-string 1))
obe-citations))
obe-citations)))
@ -111,7 +111,7 @@ For example, to point to your `obe-bibtex-file' use the following.
(when (obe-goto-citation citation)
(let ((pt (point)))
`((:authors . ,(split-string (org-entry-get pt "AUTHOR") " and " t))
(:title . ,(org-babel-clean-text-properties (org-get-heading 1 1)))
(:title . ,(org-no-properties (org-get-heading 1 1)))
(:journal . ,(org-entry-get pt "JOURNAL")))))))
(defun obe-meta-to-json (meta &optional fields)