[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] [PATCH 5/6] Do not export TYPE property as field when allowing arbit
From: |
Matt Lundin |
Subject: |
[O] [PATCH 5/6] Do not export TYPE property as field when allowing arbitrary fields |
Date: |
Sun, 1 May 2011 16:56:32 -0400 |
* lisp/org-bibtex.el (org-bibtex-headline): Don't export TYPE property
as field
---
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 cf7fc49..513519b 100644
--- a/lisp/org-bibtex.el
+++ b/lisp/org-bibtex.el
@@ -320,11 +320,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)
--
1.7.5
- [O] [PATCH 5/6] Do not export TYPE property as field when allowing arbitrary fields,
Matt Lundin <=