bibtex-generate-url-list): Add support for DOI URLs

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9cd341bfccf7997556de63717ec61e6067cef74c..7376fc31af407b333d49c96668cd79254006fbc8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-06-25  Rüdiger Sonderfeld  <ruediger@c-plusplus.de>
+
+       * lisp/textmodes/bibtex.el (bibtex-generate-url-list): Add support
+       for DOI URLs.
+
 2013-06-25  Rüdiger Sonderfeld  <ruediger@c-plusplus.de>
 
        * lisp/textmodes/bibtex.el (bibtex-mode, bibtex-set-dialect):

diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el
index 6280e19b63764ed3c4a13c90285a4aa88d4ef796..171f373317a6fe48336c400761a21fbdb8c9ecfa 100644 (file)
--- a/lisp/textmodes/bibtex.el
+++ b/lisp/textmodes/bibtex.el
@@ -1224,7 +1224,10 @@ Used by `bibtex-complete-crossref-cleanup' and `bibtex-copy-summary-as-kill'."
                  (function :tag "Personalized function")))
 
 (defcustom bibtex-generate-url-list
-  '((("url" . ".*:.*")))
+  '((("url" . ".*:.*"))
+    (("doi" . "10\\.[0-9]+/.+")
+     "http://dx.doi.org/%s"
+     ("doi" ".*" 0)))
   "List of schemes for generating the URL of a BibTeX entry.
 These schemes are used by `bibtex-url'.
 
@@ -1261,6 +1264,7 @@ The following is a complex example, see URL `http://link.aps.org/'.
      (\"volume\" \".*\" 0)
      (\"pages\" \"\\`[A-Z]?[0-9]+\" 0)))"
   :group 'bibtex
+  :version "24.4"
   :type '(repeat
           (cons :tag "Scheme"
                 (cons :tag "Matcher" :extra-offset 4