diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2011-07-15 09:03:11 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2011-07-15 09:03:21 -0600 |
commit | 407b87e9d9c7150ba5bebaac9c2bc7ef50e96ec7 (patch) | |
tree | 1f34e13a209110bb9115355f72afe5160a12e433 | |
parent | 74e333cb2176510b7d1aceef24d25e539192101e (diff) | |
download | org-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.el | 6 |
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) |