org-bibtex: trimming whitespace off of bibtex fields read from properties
* lisp/org-bibtex.el (org-babel-trim): Declare this function to the compiler. (org-bibtex-get): Trimming whitespace off of bibtex fields read from properties.
This commit is contained in:
parent
74e333cb21
commit
407b87e9d9
|
@ -121,6 +121,7 @@
|
||||||
(declare-function bibtex-parse-entry "bibtex" (&optional content))
|
(declare-function bibtex-parse-entry "bibtex" (&optional content))
|
||||||
(declare-function bibtex-url "bibtex" (&optional pos no-browse))
|
(declare-function bibtex-url "bibtex" (&optional pos no-browse))
|
||||||
(declare-function longlines-mode "longlines" (&optional arg))
|
(declare-function longlines-mode "longlines" (&optional arg))
|
||||||
|
(declare-function org-babel-trim "ob" (string &optional regexp))
|
||||||
|
|
||||||
|
|
||||||
;;; Bibtex data
|
;;; Bibtex data
|
||||||
|
@ -277,8 +278,9 @@ This variable is relevant only if `org-bibtex-export-tags-as-keywords` is t."
|
||||||
|
|
||||||
;;; Utility functions
|
;;; Utility functions
|
||||||
(defun org-bibtex-get (property)
|
(defun org-bibtex-get (property)
|
||||||
(or (org-entry-get (point) (upcase property))
|
(org-babel-trim
|
||||||
(org-entry-get (point) (concat org-bibtex-prefix (upcase property)))))
|
(or (org-entry-get (point) (upcase property))
|
||||||
|
(org-entry-get (point) (concat org-bibtex-prefix (upcase property))))))
|
||||||
|
|
||||||
(defun org-bibtex-put (property value)
|
(defun org-bibtex-put (property value)
|
||||||
(let ((prop (upcase (if (keywordp property)
|
(let ((prop (upcase (if (keywordp property)
|
||||||
|
|
Loading…
Reference in New Issue