summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2011-07-15 09:03:11 -0600
committerEric Schulte <schulte.eric@gmail.com>2011-07-15 09:03:21 -0600
commit407b87e9d9c7150ba5bebaac9c2bc7ef50e96ec7 (patch)
tree1f34e13a209110bb9115355f72afe5160a12e433
parent74e333cb2176510b7d1aceef24d25e539192101e (diff)
downloadorg-mode-407b87e9d9c7150ba5bebaac9c2bc7ef50e96ec7.tar.gz
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.
-rw-r--r--lisp/org-bibtex.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/org-bibtex.el b/lisp/org-bibtex.el
index 7d7a17a..71bebd6 100644
--- a/lisp/org-bibtex.el
+++ b/lisp/org-bibtex.el
@@ -121,6 +121,7 @@
(declare-function bibtex-parse-entry "bibtex" (&optional content))
(declare-function bibtex-url "bibtex" (&optional pos no-browse))
(declare-function longlines-mode "longlines" (&optional arg))
+(declare-function org-babel-trim "ob" (string &optional regexp))
;;; Bibtex data
@@ -277,8 +278,9 @@ This variable is relevant only if `org-bibtex-export-tags-as-keywords` is t."
;;; Utility functions
(defun org-bibtex-get (property)
- (or (org-entry-get (point) (upcase property))
- (org-entry-get (point) (concat org-bibtex-prefix (upcase property)))))
+ (org-babel-trim
+ (or (org-entry-get (point) (upcase property))
+ (org-entry-get (point) (concat org-bibtex-prefix (upcase property))))))
(defun org-bibtex-put (property value)
(let ((prop (upcase (if (keywordp property)