diff options
author | Matt Lundin <mdl@imapmail.org> | 2011-05-01 16:56:32 -0400 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2011-05-02 10:19:36 -0600 |
commit | c446b4dfbeed966f35e61a42542e664638e8fe93 (patch) | |
tree | 59606ca88c08df80cc9fb20448428153c1518212 | |
parent | 5cfb04a4e1c72a7e09d66eb9d8692fd624b65f28 (diff) | |
download | org-mode-c446b4dfbeed966f35e61a42542e664638e8fe93.tar.gz |
Do not export TYPE property as field when allowing arbitrary fields
* lisp/org-bibtex.el (org-bibtex-headline): Don't export TYPE property
as field
-rw-r--r-- | lisp/org-bibtex.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/org-bibtex.el b/lisp/org-bibtex.el index 12956fe..d3eb6eb 100644 --- a/lisp/org-bibtex.el +++ b/lisp/org-bibtex.el @@ -312,11 +312,13 @@ This variable is relevant only if `org-bibtex-export-tags-as-keywords` is t." org-bibtex-prefix) (mapcar (lambda (kv) - (when (string-match org-bibtex-prefix (car kv)) - (cons (downcase (replace-regexp-in-string - org-bibtex-prefix "" - (car kv))) - (cdr kv)))) + (let ((key (car kv)) (val (cdr kv))) + (when (and (string-match org-bibtex-prefix key) + (not (equalp + (concat org-bibtex-prefix "TYPE") key))) + (cons (downcase (replace-regexp-in-string + org-bibtex-prefix "" key)) + val)))) (org-entry-properties nil 'standard)) (mapcar (lambda (field) |