From mboxrd@z Thu Jan 1 00:00:00 1970 From: Sebastien Le Maguer Subject: [PATCH] ox-bibtex.el: take key with spaces or non-alphabetic characters into account Date: Sun, 5 Feb 2017 08:11:16 +0100 Message-ID: <877f55f6fh.fsf@coli.uni-saarland.de> References: <87shnvrmwq.fsf@nicolasgoaziou.fr> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:37268) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1caH9p-0005ZN-Sv for emacs-orgmode@gnu.org; Sun, 05 Feb 2017 02:22:46 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1caH9j-0003nE-IB for emacs-orgmode@gnu.org; Sun, 05 Feb 2017 02:22:45 -0500 Received: from triton.rz.uni-saarland.de ([134.96.7.25]:16570) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1caH9j-0003lk-62 for emacs-orgmode@gnu.org; Sun, 05 Feb 2017 02:22:39 -0500 Received: from mail.coli.uni-saarland.de (supi.coli.uni-saarland.de [134.96.104.8]) by triton.rz.uni-saarland.de (8.14.9/8.14.0) with ESMTP id v157MW2D020008 for ; Sun, 5 Feb 2017 08:22:32 +0100 Received: from localhost (LFbn-1-7753-175.w92-167.abo.wanadoo.fr [92.167.163.175]) by mail.coli.uni-saarland.de (Postfix) with ESMTPSA id 981D22F04C for ; Sun, 5 Feb 2017 08:22:32 +0100 (CET) In-reply-to: <87shnvrmwq.fsf@nicolasgoaziou.fr> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: "Emacs-orgmode" To: org mode * ox-bibtex.el (org-bibtex-process-bib-files) solve a bug in which ox-bibtex was not considering enterily keys like "Author et&bsp; al., 1999" as valid. --- contrib/lisp/ox-bibtex.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/contrib/lisp/ox-bibtex.el b/contrib/lisp/ox-bibtex.el index 56dec38..fb34a5e 100644 --- a/contrib/lisp/ox-bibtex.el +++ b/contrib/lisp/ox-bibtex.el @@ -235,7 +235,7 @@ Return new parse tree." ;; Update `org-bibtex-html-entries-alist'. (goto-char (point-min)) (while (re-search-forward - "a name=\"\\([-_a-zA-Z0-9:]+\\)\">\\(\\w+\\)" nil t) + "a name=\"\\([-_a-zA-Z0-9:]+\\)\">\\([^<]+\\)" nil t) (push (cons (match-string 1) (match-string 2)) org-bibtex-html-entries-alist))) ;; Open produced HTML file, wrap references within a block and -- 2.9.3