Browse Source

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

* 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
Aaron Ecay 12 years ago
parent
commit
137fd35b64
1 changed files with 2 additions and 2 deletions
  1. 2 2
      contrib/lisp/org-bibtex-extras.el

+ 2 - 2
contrib/lisp/org-bibtex-extras.el

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