* 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
The subject should be patch 3/4 - sorry.
Matt Lundin <mdl@imapmail.org> writes:
> * 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)