update packages

lisp/parsebib/parsebib-pkg.el

@@ -1,14 +1,10 @@
-(define-package "parsebib" "20250225.840" "A library for parsing bib files"
+;; -*- no-byte-compile: t; lexical-binding: nil -*-
+(define-package "parsebib" "20250316.2257"
+  "A library for parsing bib files."
   '((emacs "25.1"))
-  :commit "735e308fc5b7aaed975764f6c7139d1c4bf28d0c" :authors
-  '(("Joost Kremers" . "joostkremers@fastmail.fm"))
-  :maintainers
-  '(("Joost Kremers" . "joostkremers@fastmail.fm"))
-  :maintainer
-  '("Joost Kremers" . "joostkremers@fastmail.fm")
-  :keywords
-  '("text" "bibtex")
-  :url "https://github.com/joostkremers/parsebib")
-;; Local Variables:
-;; no-byte-compile: t
-;; End:
+  :url "https://github.com/joostkremers/parsebib"
+  :commit "7bfde4e4679413424a9a9af099203d5c23e32cd2"
+  :revdesc "7bfde4e46794"
+  :keywords '("text" "bibtex")
+  :authors '(("Joost Kremers" . "joostkremers@fastmail.fm"))
+  :maintainers '(("Joost Kremers" . "joostkremers@fastmail.fm")))

lisp/parsebib/parsebib.el

@@ -6,7 +6,8 @@
 ;; Author: Joost Kremers <joostkremers@fastmail.fm>
 ;; Maintainer: Joost Kremers <joostkremers@fastmail.fm>
 ;; Created: 2014
-;; Version: 6.6
+;; Package-Version: 20250316.2257
+;; Package-Revision: 7bfde4e46794
 ;; Keywords: text bibtex
 ;; URL: https://github.com/joostkremers/parsebib
 ;; Package-Requires: ((emacs "25.1"))
@@ -373,6 +374,10 @@ should be read literally."
   "Parse text in double quotes."
   (parsebib--string ?\" ?\\))
 
+(defun parsebib--key ()
+  "Parse a BibTeX key."
+  (parsebib--symbol parsebib--bibtex-key-regexp))
+
 (defun parsebib--identifier ()
   "Parse a BibTeX identifier."
   (parsebib--symbol parsebib--bibtex-identifier))
@@ -462,7 +467,7 @@ Return the entry as an alist of <field . value> pairs, where
   (if-let* ((_ (parsebib--char '(?@)))
             (type (parsebib--identifier))
             (open (parsebib--char '(?\{ ?\( )))
-            (key (parsebib--identifier))
+            (key (parsebib--key))
             (_ (parsebib--char '(?,)))
             (fields (parsebib--fields))
             (_ (parsebib--char (alist-get open '((?\{ ?\}) (?\( ?\)))))))