emacs: lisp/textmodes/bibtex.el comparison

comparison lisp/textmodes/bibtex.el @ 13728:4b7903cfa7ee

(bibtex-auto-fill-function): Adapted for use with changed autofill policy of emacs-19.30 (uses now fill-prefix instead of indent-line-function). (bibtex-indent-line-function): Removed (not used any more). (bibtex-make-field): Was broken when called non-interactively. (bibtex-make-field): Point is now placed on closing brace or quote (suggested by Karl Eichwalder <ke@ke.Central.DE>). (bibtex-clean-entry): Comma after last field isn't deleted anymore (new standard in BibTeX 0.99 and 1.xx). (bibtex-enclosing-reference-maybe-empty-head): Works with entries with comma after last field. (bibtex-reference): Permits entries with comma after last field. (bibtex-font-lock-keywords): Enhanced to support new field-name characters (suggested by Martin Maechler <maechler@stat.math.ethz.ch>). (bibtex-field-name): Now numbers (not as the first sign), dashes, and underscores are allowed (suggested by Martin Maechler <maechler@stat.math.ethz.ch> and Oren Patashnik <opbibtex@labrea.Stanford.EDU>). (bibtex-make-field): Was broken on lines containing non-parenthesized entries (reported by Karl Eichwalder <ke@ke.Central.DE>). (bibtex-validate-buffer): Changed so that preamble references are ignored (same as string entries) (reported by Martin Maechler <maechler@stat.math.ethz.ch>). (bibtex-enclosing-reference-maybe-empty-head): New function to be used in case reference head may be empty. (bibtex-clean-entry, bibtex-pop-previous, bibtex-pop-next): Uses now bibtex-enclosing-reference-maybe-empty-head. (bibtex-mode): Added support for font-lock mode. (bibtex-font-lock-keywords): New variable with font-lock keywords for BibTeX mode. (bibtex-make-optional-field): Not longer interactive (suggested by Karl Eichwalder <karl@pertron.central.de>). (bibtex-maintain-sorted-entries): Set to nil, since it requires more user attention and more restricted files to have this set to t. (bibtex-maintain-sorted-entries, bibtex-sort-ignore-string-entries): Made buffer local, since it may depend on the buffer which preferences to use. (bibtex-validate-buffer): Looking for correct sort order only when bibtex-maintain-sorted-entries is non-nil. Put a comment in the `KNOWN BUGS' section about the quote-inside-quotes problem. (whole file): Changed string `true' in some documentation strings to `non-nil' (e.g. `if variable has a true/non-nil value'). (bibtex-mode-map): Changed `move/edit' to `bibtex-edit'. (bibtex-sort-entries): Now works correctly with `@String' entries inside BibTeX files (i.e. after the occurence of other references). (bibtex-validate-buffer): Inserted code which looks if entries are balanced (a single non-escaped quote inside braces was not detected till now, but bibtex-sort-entries stumbles about it). (bibtex-entry): bibtex-move-outside-of-entry is only called when bibtex-maintain-sorted-entries is nil (otherwise bibtex-find-entry-location determines the correct location). (bibtex-find-entry-location): Now uses binary search. As before, it assumes that the buffer is sorted without duplicates (but as before it is only called when bibtex-maintain-sorted-entries is t). Ignores `@String' entries if told so via variable bibtex-sort-ignore-string-entries. (bibtex-clean-entry): Respect bibtex-maintain-sorted-entries when inserting autokey. (bibtex-validate-buffer): Searching whole buffer for duplicates and correct order is now done directly instead of calling bibtex-find-entry-location (since this is to be reprogrammed to use a binary search instead a sequential one). (bibtex-parse-keys): May now be called with an optional parameter which (if t) tells bibtex-parse-keys that it should abort if input is pending. (bibtex-mode): The instance of bibtex-parse-keys called in auto-save-mode-hook is now called with this new parameter set to t, so an auto-save caused by exceeding auto-save-interval is now aborted immediately if user is still typing. (bibtex-print-help-message, bibtex-clean-entry): Use now constant strings instead of custom ones. (bibtex-clean-entry): Changed the call of bibtex-enclosing-reference to a more specific call so entries without a key (here allowed) can be handled. (bibtex-reference-key): Cleared off parentheses (caused string entries enclosed by parentheses instead of braces to be not added to bibtex-completion-candidates). (bibtex-complete-string): Made it use bibtex-string. (bibtex-keys, bibtex-buffer-last-parsed-for-keys-tick): New buffer-local variables to make parsing of BibTeX buffer for reference keys (needed by TAB completion in minibuffer when entering key) more occasional. (bibtex-parse-keys): New function to parse for keys (functionality was partially included in bibtex-entry). (bibtex-entry): Changed to use bibtex-parse-keys. (bibtex-mode): Installs bibtex-parse-keys as an auto-save-mode-hook, so whole buffer is parsed at most when it is autosaved. (bibtex-clean-entry): Calls bibtex-parse-keys on the new entry, so bibtex-keys remains consistent for new entries that are finished by calling this function (most should). (bibtex-inside-field): Be independent on current setting of bibtex-field-right-delimiter (allows more intermixing between quotes and braces). (bibtex-make-field): Last change didn't make it work correctly when called non-interactively by bibtex-entry (fixed).

author	Karl Heuer <kwzh@gnu.org>
date	Wed, 13 Dec 1995 20:26:13 +0000
parents	5488d9efa7de
children	cc71d8efd948

comparison

equal deleted inserted replaced

-:9eb09adbcb38
+:4b7903cfa7ee
 ;;      on long entries (e.g. those containing abstracts) since
 ;;      the length of regular expression matches is fairly limited.
 ;;   2. Calling bibtex-find-text in a string entry results in the
 ;;      error message "Can't find enclosing Bibtex field" instead of
 ;;      moving to the empty string. [reported by gernot@cs.unsw.oz.au]
+;;   3. Quotes inside quote-parenthesized fields (like
+;;      `author = "Stefan Sch{\"o}f"') break bibtex-validate-buffer.
+;;      Further, you must use braces here, if you want to set
+;;      bibtex-maintain-sorted-entries to a non-nil value.
 ;; (current keeper: schoef@informatik.uni-oldenburg.de
 ;;  previous: alarson@src.honeywell.com)
 ;;; Code:
 (defvar bibtex-clean-entry-zap-empty-opts t
 "*If non-nil, bibtex-clean-entry will delete all empty optional fields.")
 (defvar bibtex-sort-ignore-string-entries t
-"*If true, BibTeX @STRING entries are not sort-significant.
+"*If non-nil, BibTeX @STRING entries are not sort-significant.
 That means they are ignored when determining ordering of the buffer
-(e.g. sorting, locating alphabetical position for new entries, etc.).")
+(e.g. sorting, locating alphabetical position for new entries, etc.).
+This variable is buffer local.")
+(make-variable-buffer-local 'bibtex-sort-ignore-string-entries)
 (defvar bibtex-maintain-sorted-entries nil
-"*If true, bibtex-mode maintains all BibTeX entries in sorted order.
+"*If non-nil, bibtex-mode maintains all BibTeX entries in sorted order.
 Setting this variable to nil will strip off some comfort (e.g. TAB
-completion for reference keys) from bibtex-mode.")
+completion for reference keys in minibuffer, automatic detection of
+duplicates) from bibtex-mode. See also bibtex-sort-ignore-string-entries.
+This variable is buffer local.")
+(make-variable-buffer-local 'bibtex-maintain-sorted-entries)
 (defvar bibtex-entry-field-alist
 '(
 ("Article" . (((("author" "Author1 [and Author2 ...] [and others]")
-("title" "Title of the article (will be converted to lowercase)")
+("title" "Title of the article (BibTeX converts it to lowercase)")
 ("journal" "Name of the journal (use string, remove braces)")
 ("year" "Year of publication"))
 		   (("volume" "Volume of the journal")
 ("number" "Number of the journal")
 ("month" "Month of the publication as a string (remove braces)")
 ("pages" "Pages in the journal")
 ("note" "Remarks to be put at the end of the \\bibitem")))
 		  ((("author" "Author1 [and Author2 ...] [and others]")
-("title" "Title of the article (will be converted to lowercase)"))
+("title" "Title of the article (BibTeX converts it to lowercase)"))
 		   (("journal" "Name of the journal (use string, remove braces)")
 ("year" "Year of publication")
 ("volume" "Volume of the journal")
 ("number" "Number of the journal")
 		    ("month" "Month of the publication as a string (remove braces)")
 ("series" "Series in which the book appeared")
 ("address" "Address of the publisher")
 		 ("edition" "Edition of the book as a capitalized English word")
 ("month" "Month of the publication as a string (remove braces)")
 ("note" "Remarks to be put at the end of the \\bibitem")))))
-("Booklet" . (((("title" "Title of the booklet (will be converted to lowercase)"))
+("Booklet" . (((("title" "Title of the booklet (BibTeX converts it to lowercase)"))
 		   (("author" "Author1 [and Author2 ...] [and others]")
 ("howpublished" "The way in which the booklet was published")
 ("address" "Address of the publisher")
 ("year" "Year of publication")
 ("month" "Month of the publication as a string (remove braces)")
 ("month" "Month of the publication as a string (remove braces)")
 ("pages" "Pages in the book")
 ("type" "Word to use instead of \"chapter\"")
 ("note" "Remarks to be put at the end of the \\bibitem")))))
 ("InCollection" . (((("author" "Author1 [and Author2 ...] [and others]")
-("title" "Title of the article in book (will be converted to lowercase)")
+("title" "Title of the article in book (BibTeX converts it to lowercase)")
 			 ("booktitle" "Name of the book")
 ("publisher" "Publishing company")
 ("year" "Year of publication"))
 			(("editor" "Editor1 [and Editor2 ...] [and others]")
 ("volume" "Volume of the book in the series")
 ("edition" "Edition of the book as a capitalized English word")
 ("month" "Month of the publication as a string (remove braces)")
 			 ("pages" "Pages in the book")
 ("note" "Remarks to be put at the end of the \\bibitem")))
 		       ((("author" "Author1 [and Author2 ...] [and others]")
-("title" "Title of the article in book (will be converted to lowercase)")
+("title" "Title of the article in book (BibTeX converts it to lowercase)")
 ("booktitle" "Name of the book"))
 			(("publisher" "Publishing company")
 ("year" "Year of publication")
 			 ("editor" "Editor1 [and Editor2 ...] [and others]")
 ("volume" "Volume of the book in the series")
 ("edition" "Edition of the book as a capitalized English word")
 ("month" "Month of the publication as a string (remove braces)")
 			 ("pages" "Pages in the book")
 ("note" "Remarks to be put at the end of the \\bibitem")))))
 ("InProceedings" . (((("author" "Author1 [and Author2 ...] [and others]")
-("title" "Title of the article in proceedings (will be converted to lowercase)")
+("title" "Title of the article in proceedings (BibTeX converts it to lowercase)")
 ("booktitle" "Name of the conference proceedings")
 ("year" "Year of publication"))
 			 (("editor" "Editor1 [and Editor2 ...] [and others]")
 ("volume" "Volume of the conference proceedings in the series")
 ("number" "Number of the conference proceedings in a small series (overwritten by volume)")
 ("address" "Location of the Proceedings")
 ("month" "Month of the publication as a string (remove braces)")
 ("pages" "Pages in the conference proceedings")
 ("note" "Remarks to be put at the end of the \\bibitem")))
 			((("author" "Author1 [and Author2 ...] [and others]")
-("title" "Title of the article in proceedings (will be converted to lowercase)")
+("title" "Title of the article in proceedings (BibTeX converts it to lowercase)")
 			  ("booktitle" "Name of the conference proceedings"))
 			 (("editor" "Editor1 [and Editor2 ...] [and others]")
 ("volume" "Volume of the conference proceedings in the series")
 ("number" "Number of the conference proceedings in a small series (overwritten by volume)")
 ("series" "Series in which the conference proceedings appeared")
 ("year" "Year of publication")
 		   ("month" "Month of the publication as a string (remove braces)")
 ("note" "Remarks to be put at the end of the \\bibitem")))))
 ("MastersThesis" . (((("author" "Author1 [and Author2 ...] [and others]")
-("title" "Title of the master\'s thesis (will be converted to lowercase)")
+("title" "Title of the master\'s thesis (BibTeX converts it to lowercase)")
 ("school" "School where the master\'s thesis was written")
 ("year" "Year of publication"))
 			 (("address" "Address of the school (if not part of field \"school\") or country")
 ("type" "Type of the master\'s thesis")
 ("month" "Month of the publication as a string (remove braces)")
 ("note" "Remarks to be put at the end of the \\bibitem")))))
 ("Misc" . ((()
 		(("author" "Author1 [and Author2 ...] [and others]")
-("title" "Title of the reference (will be converted to lowercase)")
+("title" "Title of the reference (BibTeX converts it to lowercase)")
 ("howpublished" "The way in which the reference was published")
 ("year" "Year of publication")
 ("month" "Month of the publication as a string (remove braces)")
 ("note" "Remarks to be put at the end of the \\bibitem")))))
 ("PhdThesis" . (((("author" "Author1 [and Author2 ...] [and others]")
 			("organization" "Sponsoring organization of the conference")
 ("address" "Location of the Proceedings")
 ("month" "Month of the publication as a string (remove braces)")
 ("note" "Remarks to be put at the end of the \\bibitem")))))
 ("TechReport" . (((("author" "Author1 [and Author2 ...] [and others]")
-("title" "Title of the technical report (will be converted to lowercase)")
+("title" "Title of the technical report (BibTeX converts it to lowercase)")
 ("institution" "Sponsoring institution of the report")
 ("year" "Year of publication"))
 		      (("type" "Type of the report (if other than \"technical report\")")
 ("number" "Number of the technical report")
 ("address" "Address of the institution (if not part of field \"institution\") or country")
 ("month" "Month of the publication as a string (remove braces)")
 ("note" "Remarks to be put at the end of the \\bibitem")))))
 ("Unpublished" . (((("author" "Author1 [and Author2 ...] [and others]")
-("title" "Title of the unpublished reference (will be converted to lowercase)")
+("title" "Title of the unpublished reference (BibTeX converts it to lowercase)")
 ("note" "Remarks to be put at the end of the \\bibitem"))
 		       (("year" "Year of publication")
 ("month" "Month of the publication as a string (remove braces)")))))
 )
 See the documentation of function bibtex-generate-autokey for further detail.")
 (defvar bibtex-autokey-edit-before-use t
 "*If non-nil, user is allowed to edit the generated key before it is used.")
+(defvar bibtex-font-lock-keywords
+(list
+"^@[A-Za-z]*[({]"
+;; reference type
+'("^\\([ \t]*OPT[A-Za-z_-][A-Za-z0-9_-]*\\)[ \t]*="
+1 font-lock-comment-face)
+;; optional field names
+'("^\\([ \t]*[A-Za-z_-][A-Za-z0-9_-]*\\)[ \t]*="
+1 font-lock-function-name-face)
+;; field names
+'("^@[A-Za-z]*[({]\\([^\n,]*\\),"
+1 font-lock-string-face)
+;; reference labels
+)
+"*Fonts to use in BibTeX mode")
 ;; Syntax Table, Keybindings and BibTeX Entry List
 (defvar bibtex-mode-syntax-table
 (let ((st (make-syntax-table)))
 (define-key km "\C-c$"   'bibtex-ispell-entry)
 (define-key km "\M-\C-a"   'bibtex-beginning-of-entry)
 (define-key km "\M-\C-e"   'bibtex-end-of-entry)
 (define-key km "\C-c\C-b"   'bibtex-entry)
 (define-key km "\C-c\C-q" 'bibtex-hide-entry-bodies)
-(define-key km "\C-c\C-a" 'show-all)
 (define-key km "\C-c\C-rn" 'bibtex-narrow-to-entry)
 (define-key km "\C-c\C-rw" 'widen)
 (define-key km "\C-c\C-o" 'bibtex-remove-OPT)
 (define-key km "\C-c\C-e\C-i" 'bibtex-InProceedings)
 (define-key km "\C-c\C-e\C-s" 'bibtex-string)
 (define-key km "\C-c\C-e\C-t" 'bibtex-TechReport)
 (define-key km "\C-c\C-e\C-u" 'bibtex-Unpublished)
 km))
-(define-key bibtex-mode-map [menu-bar move/edit]
+(define-key bibtex-mode-map [menu-bar bibtex-edit]
 (cons "BibTeX-Edit" (make-sparse-keymap "BibTeX-Edit")))
-(define-key bibtex-mode-map [menu-bar move/edit bibtex-print-help-message]
+(define-key bibtex-mode-map [menu-bar bibtex-edit bibtex-print-help-message]
 '("Help about Current Field" . bibtex-print-help-message))
-(define-key bibtex-mode-map [menu-bar move/edit bibtex-complete-string]
+(define-key bibtex-mode-map [menu-bar bibtex-edit bibtex-complete-string]
 '("String Complete" . bibtex-complete-string))
-(define-key bibtex-mode-map [menu-bar move/edit bibtex-next-field]
+(define-key bibtex-mode-map [menu-bar bibtex-edit bibtex-next-field]
 '("Next Field" . bibtex-next-field))
-(define-key bibtex-mode-map [menu-bar move/edit bibtex-find-text]
+(define-key bibtex-mode-map [menu-bar bibtex-edit bibtex-find-text]
 '("End of Field" . bibtex-find-text))
-(define-key bibtex-mode-map [menu-bar move/edit bibtex-pop-previous]
+(define-key bibtex-mode-map [menu-bar bibtex-edit bibtex-pop-previous]
 '("Snatch from Similar Preceding Field" . bibtex-pop-previous))
-(define-key bibtex-mode-map [menu-bar move/edit bibtex-pop-next]
+(define-key bibtex-mode-map [menu-bar bibtex-edit bibtex-pop-next]
 '("Snatch from Similar Following Field" . bibtex-pop-next))
-(define-key bibtex-mode-map [menu-bar move/edit bibtex-remove-OPT]
+(define-key bibtex-mode-map [menu-bar bibtex-edit bibtex-remove-OPT]
 '("Remove OPT" . bibtex-remove-OPT))
-(define-key bibtex-mode-map [menu-bar move/edit bibtex-remove-double-quotes-or-braces]
+(define-key bibtex-mode-map [menu-bar bibtex-edit bibtex-remove-double-quotes-or-braces]
 '("Remove Quotes or Braces" . bibtex-remove-double-quotes-or-braces))
-(define-key bibtex-mode-map [menu-bar move/edit bibtex-clean-entry]
+(define-key bibtex-mode-map [menu-bar bibtex-edit bibtex-clean-entry]
 '("Clean Up Entry" . bibtex-clean-entry))
-(define-key bibtex-mode-map [menu-bar move/edit bibtex-sort-entries]
+(define-key bibtex-mode-map [menu-bar bibtex-edit bibtex-sort-entries]
 '("Sort Entries" . bibtex-sort-entries))
-(define-key bibtex-mode-map [menu-bar move/edit bibtex-validate-buffer]
+(define-key bibtex-mode-map [menu-bar bibtex-edit bibtex-validate-buffer]
 '("Validate Entries" . bibtex-validate-buffer))
 (define-key bibtex-mode-map [menu-bar entry-types]
 (cons "Entry-Types" (make-sparse-keymap "Entry-Types")))
 (define-key bibtex-mode-map [menu-bar entry-types bibtex-preamble]
 ;; Candidates for bibtex-complete-string. Initialized from
 ;; bibtex-predefined-strings and bibtex-string-files. This variable is
 ;; buffer-local.
 (make-variable-buffer-local 'bibtex-completion-candidates)
+(defvar bibtex-keys nil)
+;; Candidates for TAB completion when entering a reference key using
+;; the minibuffer. Initialized in bibtex-mode and updated for each
+;; new entry. This variable is buffer-local.
+(make-variable-buffer-local 'bibtex-keys)
+(defvar bibtex-buffer-last-parsed-for-keys-tick nil)
+;; Remembers the value returned by buffer-modified-tick when buffer
+;; was parsed for keys the last time.
+(make-variable-buffer-local 'bibtex-keys)
 ;; Functions to Parse the BibTeX Entries
 (defun bibtex-cfield (name text)
 ;; Create a regexp for a BibTeX field of name NAME and text TEXT.
 ;; The regexp subexpression number of the name part in bibtex-cfield.
 (defconst bibtex-text-in-cfield 2)
 ;; The regexp subexpression number of the text part in bibtex-cfield.
-(defconst bibtex-field-name "[A-Za-z][]A-Za-z0-9.:;?!`'()/*@_+=-]*")
+(defconst bibtex-field-name "[A-Za-z_-][A-Za-z0-9_-]*")
 ;; Regexp defining the name part of a BibTeX field.
 (defconst bibtex-field-const "[0-9A-Za-z][A-Za-z0-9:_+-]*"
 "Format of a bibtex field constant.")
 (concat
 "\\("
 "{\\(\\({\\(\\({[^}]*}\\)\\|\\([^{}]\\)\\)*}\\)\\|\\([^{}]\\)\\)*}"
 ;; maximal twice nested {}
 "\\)\\|\\("
-"\"[^\"]*[^\\\\]\"\\|\"\"\\)"))
+"\"[^\"]*[^\\\\]\"\\|\"\""
+"\\)"))
 ;; Match either a string or an empty string.
 (defconst bibtex-field-string-or-const
 (concat bibtex-field-const "\\|" bibtex-field-string))
 ;; Match either bibtex-field-string or bibtex-field-const.
 (defconst bibtex-field-text
 (concat
 "\\(" bibtex-field-string-or-const "\\)"
-"\\([ \t\n]+#[ \t\n]+\\(" bibtex-field-string-or-const "\\)\\)*\\|"
+"\\([ \t\n]+#[ \t\n]+\\(" bibtex-field-string-or-const "\\)\\)*"))
-"{[^{}]*[^\\\\]}"))
 ;; Regexp defining the text part of a BibTeX field: either a string,
 ;; or an empty string, or a constant followed by one or more # /
-;; constant pairs. Also matches simple {...} patterns.
+;; constant pairs.
 (defconst bibtex-field
 (bibtex-cfield bibtex-field-name bibtex-field-text))
 ;; Regexp defining the format of a BibTeX field.
 ;; The regexp subexpression number of the name part in BibTeX-field.
 (defconst bibtex-text-in-field bibtex-text-in-cfield)
 ;; The regexp subexpression number of the text part in BibTeX-field.
-(defconst bibtex-reference-type
+(defconst bibtex-reference-type "@[A-Za-z]+")
-"@[A-Za-z]+")
 ;; Regexp defining the type part of a BibTeX reference entry.
+(defconst bibtex-reference-key "[A-Za-z][A-Za-z0-9.:;?!`'/*@_+-]*")
+;; Regexp defining the label part of a BibTeX reference entry.
 (defconst bibtex-reference-head
 (concat "^\\( \\|\t\\)*\\("
 	  bibtex-reference-type
 	  "\\)[ \t]*[({]\\("
-	  bibtex-field-name
+	  bibtex-reference-key
 	  "\\)"))
 ;; Regexp defining format of the header line of a BibTeX reference
 ;; entry.
+(defconst bibtex-reference-maybe-empty-head
+(concat bibtex-reference-head "?"))
+;; Regexp defining format of the header line of a maybe empty
+;; BibTeX reference entry (without reference key).
 (defconst bibtex-type-in-head 2)
 ;; The regexp subexpression number of the type part in
 ;; bibtex-reference-head.
 (defconst bibtex-key-in-head 3)
 ;; bibtex-reference-head.
 (defconst bibtex-reference
 (concat bibtex-reference-head
 	  "\\([ \t\n]*" bibtex-field "\\)*"
-	  "[ \t\n]*[})]"))
+	  "[ \t\n]*,?[ \t\n]*[})]"))
 ;; Regexp defining the format of a BibTeX reference entry.
 (defconst bibtex-type-in-reference bibtex-type-in-head)
 ;; The regexp subexpression number of the type part in
 ;; bibtex-reference.
 ;; The regexp subexpression number of the key part in
 ;; bibtex-reference.
 (defconst bibtex-string
 (concat "^[ \t]*@[sS][tT][rR][iI][nN][gG][ \t\n]*[({][ \t\n]*\\("
-	  bibtex-field-name
+	  bibtex-reference-key
 	  "\\)[ \t\n]*=[ \t\n]*\\("
 	  bibtex-field-text
 	  "\\)[ \t\n]*[})]"))
 ;; Regexp defining the format of a BibTeX string entry.
-(defconst bibtex-name-in-string 1)
+(defconst bibtex-key-in-string 1)
 ;; The regexp subexpression of the name part in bibtex-string.
 (defconst bibtex-text-in-string 2)
 ;; The regexp subexpression of the text part in bibtex-string.
 (defun map-bibtex-entries (fun)
 ;; Call FUN for each BibTeX entry starting with the current. Do this
 ;; to the end of the file. FUN is called with one argument, the key
 ;; of the entry, and with point inside the entry. If
-;; bibtex-sort-ignore-string-entries is true, FUN will not be called
+;; bibtex-sort-ignore-string-entries is non-nil, FUN will not be called
 ;; for @string entries.
 (bibtex-beginning-of-entry)
-(while (re-search-forward "^@[^{]*{[ \t]*\\([^, ]*\\)" nil t)
+(while (re-search-forward bibtex-reference-head nil t)
 (if (and bibtex-sort-ignore-string-entries
-	     (string-equal "@string{"
+	     (string-equal "@string"
 (downcase (buffer-substring-no-properties
-(match-beginning 0)
+(match-beginning bibtex-type-in-head)
-(match-beginning 1)))))
+(match-end bibtex-type-in-head)))))
 	nil
 (funcall fun (buffer-substring-no-properties
-(match-beginning 1) (match-end 1))))))
+(match-beginning bibtex-key-in-head)
+(match-end bibtex-key-in-head))))))
 (defun bibtex-flash-head ()
 ;; Flash at BibTeX reference head before point, if exists.
 (let ((flash))
 (cond ((re-search-backward bibtex-reference-head (point-min) t)
 (re-search-forward "[ \t\n]*" (point-max) t))
 (defun beginning-of-first-bibtex-entry ()
 ;; Go to the beginning of the first BibTeX entry in buffer.
 (goto-char (point-min))
 (cond
 ((re-search-forward "^@" nil 'move)
 (beginning-of-line))
 ((and (bobp) (eobp))
 nil)
 (t
 (message "Warning: No BibTeX entries found!"))))
 (defun bibtex-inside-field ()
 ;; Try to avoid point being at end of a BibTeX field.
 (end-of-line)
-(skip-chars-backward " \t")		;MON - maybe delete these chars?
+(skip-chars-backward " \t")
 (cond ((= (preceding-char) ?,)
-	 (forward-char -2))) ; -1 --> -2 sct@dcs.edinburgh.ac.uk
+	 (forward-char -2)))
-(cond ((= (preceding-char) (aref bibtex-field-right-delimiter 0))
+(cond ((or
-	 (forward-char -1))))		;MON - only go back if quote
+(= (preceding-char) ?})
+(= (preceding-char) ?\"))
+(forward-char -1))))
 (defun bibtex-enclosing-field ()
 ;; Search for BibTeX field enclosing point. Point moves to end of
 ;; field; also, use match-beginning and match-end to parse the field.
 ;; sct@dcs.edinburgh.ac.uk
 (search-failed
 (goto-char old-point)
 (error "Can't find enclosing BibTeX field.")))))
 (defun bibtex-enclosing-reference ()
-;; Search for BibTeX reference enclosing point. Point moves to begin
+;; Search for BibTeX reference enclosing point. Point moves to
-;; of reference. (match-end 0) denotes end of reference.
+;; beginning of reference. Beginning/end of reference is given by
-;; Hacked up for speed. Parsing isn't guaranteed any more.
+;; (match-beginning/match-end 0).
-;; schoef@informatik.uni-oldenburg.de
+(let ((old-point (point)))
-;; sct@dcs.edinburgh.ac.uk
+(if (not
+(re-search-backward bibtex-reference-head (point-min) t))
+(progn
+(error "Can't find enclosing BibTeX reference.")
+(goto-char old-point)))
+(goto-char (match-beginning bibtex-type-in-head))
+(let ((pnt (point)))
+(if (not
+(re-search-forward bibtex-reference (point-max) t))
+(progn
+(error "Can't find enclosing BibTeX reference.")
+(goto-char old-point))
+(goto-char pnt)))))
+(defun bibtex-enclosing-reference-maybe-empty-head ()
+;; Search for BibTeX reference enclosing point. Point moves to
+;; beginning of reference. Beginning/end of reference is given by
+;; (match-beginning/match-end 0).
 (let ((old-point (point)))
 (if (not
 (re-search-backward
-"^@[A-Za-z]+[ \t\n]*[{(][^, \t\n]*[ \t\n]*,"
+bibtex-reference-maybe-empty-head (point-min) t))
-(point-min) t))
 (progn
 (error "Can't find enclosing BibTeX reference.")
 (goto-char old-point)))
+(goto-char (match-beginning bibtex-type-in-head))
 (let ((pnt (point)))
 (if (not
-(re-search-forward "^[)}]$" (point-max) t))
+(re-search-forward
+(concat
+bibtex-reference-maybe-empty-head
+"\\([ \t\n]*" bibtex-field "\\)*"
+"[ \t\n]*,?[ \t\n]*[})]")
+(point-max) t))
 (progn
 (error "Can't find enclosing BibTeX reference.")
 (goto-char old-point))
 (goto-char pnt)))))
 (point)))
 (namefield
 (progn
 (goto-char min)
 (if (or
-(search-forward-regexp "^[ \t]*author[ \t]*=" max t)
+(re-search-forward "^[ \t]*author[ \t]*=" max t)
-(search-forward-regexp "^[ \t]*editor[ \t]*=" max t))
+(re-search-forward "^[ \t]*editor[ \t]*=" max t))
 (let* (bibtex-help-message
 (start (progn
 (bibtex-find-text t)
 (point)))
 (end (progn
 namelist
 bibtex-autokey-name-separator))
 (yearfield
 (progn
 (goto-char min)
-(if (search-forward-regexp
+(if (re-search-forward
 "^[ \t]*year[ \t]*=[ \t]*\\([0-9]*\\)" max t)
 (buffer-substring-no-properties
 (match-beginning 1) (match-end 1))
 "")))
 (yearpart
 (titlestring
 (let ((case-fold-search t)
 (titlefield
 (progn
 (goto-char min)
-(if (search-forward-regexp
+(if (re-search-forward
 "^[ \t]*title[ \t]*=" max t)
 (let* (bibtex-help-message
 (start (progn
 (bibtex-find-text t)
 (point)))
 bibtex-autokey-year-title-separator)
 titlepart)))
 (goto-char pnt)
 autokey))
+(defun bibtex-parse-keys (add &optional abortable)
+;; Sets bibtex-keys to the keys used in the whole (possibly
+;; restricted) buffer (either as entry keys or as crossref entries).
+;; If ADD is non-nil adds the new keys to bibtex-keys instead of
+;; simply resetting it. If ABORTABLE is non-nil abort on user input.
+(if bibtex-maintain-sorted-entries
+(let ((labels (if add
+bibtex-keys))
+label
+(case-fold-search t))
+(save-excursion
+(goto-char (point-min))
+(if (not add)
+(message "Parsing reference keys..."))
+(if (not
+(catch 'userkey
+(while
+(re-search-forward
+(concat
+"\\("
+bibtex-reference-head
+"\\)\\|\\("
+"^[ \t\n]*crossref[ \t\n]*=[ \t\n]*[{\"]\\([A-Za-z][]A-Za-z0-9.:;?!`'()/*@_+-]*\\)[}\"],?$"
+"\\)")
+nil t)
+(if (and
+abortable
+(input-pending-p))
+(throw 'userkey t))
+(if (match-beginning (1+ bibtex-key-in-head))
+(setq
+label
+(buffer-substring-no-properties
+(match-beginning (1+ bibtex-key-in-head))
+(match-end (1+ bibtex-key-in-head))))
+(setq
+label
+(buffer-substring-no-properties
+(match-beginning (+ 3 bibtex-key-in-head))
+(match-end (+ 3 bibtex-key-in-head)))))
+(if (not (assoc label labels))
+(setq labels
+(cons (list label) labels))))))
+(progn
+(setq
+bibtex-buffer-last-parsed-for-keys-tick
+(buffer-modified-tick))
+(if (not add)
+(message "Parsing reference keys... done"))
+(setq bibtex-keys labels)))))))
+(defun bibtex-auto-fill-function ()
+(let ((fill-prefix (make-string (+ bibtex-text-alignment 1) ? )))
+(do-auto-fill)))
 ;; Interactive Functions:
 ;;;###autoload
 (compl bibtex-completion-candidates))
 (create-file-buffer bufname)
 (set-buffer bufname)
 (insert-file-contents fullfilename)
 (goto-char (point-min))
-(while (search-forward-regexp bibtex-string nil t)
+(while (re-search-forward bibtex-string nil t)
 (setq
 compl
 (append
 compl
 (list
 (list (buffer-substring-no-properties
-(match-beginning bibtex-name-in-string)
+(match-beginning bibtex-key-in-string)
-(match-end bibtex-name-in-string)))))))
+(match-end bibtex-key-in-string)))))))
 (kill-buffer bufname)
 (set-buffer curbuf)
 (setq bibtex-completion-candidates compl))
 (error "File %s not in $BIBINPUTS paths" filename)))))
 bibtex-string-files)
+(add-hook
+'auto-save-hook
+(function
+(lambda ()
+(if (and
+bibtex-maintain-sorted-entries
+(eq major-mode 'bibtex-mode)
+(not
+(eq (buffer-modified-tick)
+bibtex-buffer-last-parsed-for-keys-tick)))
+(bibtex-parse-keys nil t)))))
+(bibtex-parse-keys nil)
 (make-local-variable 'paragraph-start)
 (setq paragraph-start "[ \f\n\t]*$")
 (make-local-variable 'comment-start)
 (setq comment-start "%")
-(auto-fill-mode 1)			; nice alignments
+(auto-fill-mode 1)
-(setq left-margin (+ bibtex-text-alignment 1))
+(setq auto-fill-function 'bibtex-auto-fill-function)
+(set (make-local-variable 'font-lock-defaults)
+'(bibtex-font-lock-keywords nil t ((?$ . "\""))))
 (run-hooks 'bibtex-mode-hook))
 (defun bibtex-entry (entry-type &optional required optional)
+"Inserts a new BibTeX entry.
+Calls the value of bibtex-add-entry-hook if that value is non-nil."
 (interactive (let* ((completion-ignore-case t)
 		      (e-t (completing-read
 "Entry Type: "
 bibtex-entry-field-alist
 nil t)))
 c-ref)
 	    (setq required (elt c-ref 0)
 		  optional (elt c-ref 1))
 	  (setq required (elt r-n-o 0)
 		optional (elt r-n-o 1)))))
-(let*
+(let ((key
-(labels
+(if bibtex-maintain-sorted-entries
-label
+(completing-read
-(case-fold-search t)
+(format "%s key: " entry-type)
-(key
+bibtex-keys))))
 (if bibtex-maintain-sorted-entries
-(progn
+	(bibtex-find-entry-location key)
-(save-excursion
+(bibtex-move-outside-of-entry))
-(goto-char (point-min))
-(while
-(re-search-forward
-"\\(^@[a-z]+[ \t\n]*[{(][ \t\n]*\\([^ ,\t\n]+\\)[ \t\n]*,\\)\\|\\(^[ \t\n]*crossref[ \t\n]*=[ \t\n]*[{\"]\\([^ ,\t\n]*\\)[}\"],$\\)"
-nil t)
-(if (match-beginning 2)
-(setq label (buffer-substring-no-properties
-(match-beginning 2) (match-end 2)))
-(setq label (buffer-substring-no-properties
-(match-beginning 4) (match-end 4))))
-(if (not (assoc label labels))
-(setq labels
-(cons (list label) labels)))))
-(completing-read
-(format "%s key: " entry-type)
-labels)))))
-(if key
-	(bibtex-find-entry-location key))
-(bibtex-move-outside-of-entry)
 (insert "@" entry-type "{")
 (if key
 	(insert key))
 (save-excursion
 (mapcar 'bibtex-make-field required)
 (mapcar 'bibtex-make-optional-field
 	      bibtex-mode-user-optional-fields)
 (if bibtex-include-OPTannote
 	  (bibtex-make-optional-field '("annote")))
 (insert "\n}\n\n"))
-(if key
+(bibtex-next-field t)
-	(bibtex-next-field t))
 (run-hooks 'bibtex-add-entry-hook)))
 (defun bibtex-print-help-message ()
 "Prints helpful information about current field in current BibTeX entry."
 (interactive)
 (condition-case errname
 (bibtex-enclosing-regexp bibtex-field)
 (search-failed
 (goto-char pnt)
 (error "Not on BibTeX field")))
-(re-search-backward
+(let ((mb (match-beginning bibtex-name-in-field))
-"^[ \t]*\\([A-Za-z]+\\)[ \t\n]*=" nil t)
+(me (match-end bibtex-name-in-field)))
-(let ((mb (match-beginning 1))
+(goto-char mb)
-(me (match-end 1)))
 (buffer-substring-no-properties
-(if (looking-at "^[ \t]*OPT")
+(if (looking-at "OPT")
 (+ 3 mb)
 mb)
 me))))
 (reference-type
 (progn
 (re-search-backward
-"^@\\([A-Za-z]+\\)[ \t\n]*[{(][^, \t\n]*[ \t\n]*," nil t)
+bibtex-reference-maybe-empty-head nil t)
 (buffer-substring-no-properties
-(match-beginning 1) (match-end 1))))
+(1+ (match-beginning bibtex-type-in-head))
+(match-end bibtex-type-in-head))))
 (entry-list
 (assoc-ignore-case reference-type
 bibtex-entry-field-alist))
 (c-r-list (elt entry-list 2))
 (req-opt-list
 (message (elt (assoc field-name list-of-entries) 1))
 (message "NO COMMENT AVAILABLE"))))
 (defun bibtex-make-field (e-t)
 "Makes a field named E-T in current BibTeX entry."
-(interactive "sBibTeX entry type: ")
+(interactive "sBibTeX field name: ")
 (let ((name (if (consp e-t)
 (elt e-t 0)
 e-t)))
-(bibtex-find-text nil)
+(if (interactive-p)
-(forward-char 1)
+(progn
+(bibtex-find-text nil)
+(if (looking-at "[}\"]")
+(forward-char 1))))
 (insert ",\n")
 (indent-to-column bibtex-name-alignment)
 (insert name " = ")
 (indent-to-column bibtex-text-alignment)
-(insert bibtex-field-left-delimiter bibtex-field-right-delimiter)))
+(insert bibtex-field-left-delimiter bibtex-field-right-delimiter)
+(if (interactive-p)
+(forward-char -1))))
 (defun bibtex-make-optional-field (e-t)
 "Makes an optional field named E-T in current BibTeX entry."
-(interactive "sOptional BibTeX entry type: ")
 (if (consp e-t)
 (setq e-t (cons (concat "OPT" (car e-t)) (cdr e-t)))
 (setq e-t (concat "OPT" e-t)))
 (bibtex-make-field e-t))
 (setq selective-display (not arg))
 (set-buffer-modified-p modifiedp))))
 (defun bibtex-sort-entries ()
 "Sort BibTeX entries alphabetically by key.
-Text before the first BibTeX entry, and following the last is not affected.
+Text outside of BibTeX entries is not affected. If
-If bibtex-sort-ignore-string-entries is true, @string entries will be ignored.
+bibtex-sort-ignore-string-entries is non-nil, @string entries will be
+ignored."
-Bugs:
-1. Text between the closing brace ending one BibTeX entry, and the @ starting
-the next, is considered part of the PRECEDING entry.  Perhaps it should be
-part of the following entry."
 (interactive)
 (save-restriction
 (beginning-of-first-bibtex-entry)
 (narrow-to-region
 (point)
 (save-excursion
 (goto-char (point-max))
 (bibtex-end-of-entry)
 (point)))
+(if bibtex-sort-ignore-string-entries
+(if (re-search-forward bibtex-reference nil 'move)
+(goto-char (match-beginning 0))))
 (sort-subr
 nil
 ;; NEXTREC function
-'forward-line
-;; ENDREC function
 (function
 (lambda ()
-(and
+(if bibtex-sort-ignore-string-entries
-(re-search-forward "}\\s-*\n[\n \t]*@" nil 'move)
+(if (re-search-forward bibtex-reference nil 'move)
-(forward-char -2))))
+(goto-char (match-beginning 0)))
+(if (re-search-forward bibtex-reference-head nil 'move)
+(goto-char (match-beginning 0))))))
+;; ENDREC function
+'bibtex-end-of-entry
 ;; STARTKEY function
-(if bibtex-sort-ignore-string-entries
-(function
-(lambda ()
-(while
-(and
-(re-search-forward "^\\s-*\\([@a-zA-Z]*\\)\\s-*{\\s-*")
-(string-equal
-"@string"
-(downcase
-(buffer-substring-no-properties
-(match-beginning 1)
-(match-end 1))))))
-nil))
-(function
-(lambda ()
-(re-search-forward "{\\s-*"))))
-;; ENDKEY function
 (function
 (lambda ()
-(search-forward ","))))))
+(if bibtex-sort-ignore-string-entries
+(progn
+(re-search-forward bibtex-reference)
+(buffer-substring-no-properties
+(match-beginning bibtex-key-in-reference)
+(match-end bibtex-key-in-reference)))
+(re-search-forward bibtex-reference-head)
+(buffer-substring-no-properties
+(match-beginning bibtex-key-in-head)
+(match-end bibtex-key-in-head)))))
+;; ENDKEY function
+nil)))
-(defun bibtex-find-entry-location (entry-name &optional ignore-errors)
+(defun bibtex-find-entry-location (entry-name &optional ignore-dups)
 "Looking for place to put the BibTeX entry named ENTRY-NAME.
-Searches from beginning of buffer. Buffer is assumed to be in sorted
+Performs a binary search (therefore, buffer is assumed to be in sorted
-order, without duplicates (see \\[bibtex-sort-entries]), if it is not,
+order, without duplicates (see \\[bibtex-validate-buffer]), if it is
-an error will be signalled. However, if optional argument
+not, bibtex-find-entry-location will fail). If entry-name is already
-IGNORE-ERRORS is non-nil, no error messages about duplicate entries or
+used as a reference key, an error is signalled. However, if optional
-sort order violences are signalled, but the error handling is assumed
+variable IGNORE-DUPS is non-nil, no error messages about duplicate
-to be made in the calling function. Nil is returned, if any error
+entries are signalled, but the error handling is assumed to be made in
-occured during search for location of the new entry, and t in all
+the calling function. Nil is returned, if an duplicate entry error
-other cases. If an error occured, point is not moved."
+occured, and t in all other cases."
-(interactive "sBibtex entry key: ")
+(let* ((left
-(let ((noerr t)
+(progn
-(previous nil)
+(beginning-of-first-bibtex-entry)
-(pnt (point))
+(if bibtex-sort-ignore-string-entries
-	point)
+(re-search-forward bibtex-reference nil `move)
-(beginning-of-first-bibtex-entry)
+(bibtex-end-of-entry))
-(or
+(point)))
-(catch 'done
+(right
-(map-bibtex-entries
+(progn
-(function
+(goto-char (point-max))
-(lambda (current)
+(if bibtex-sort-ignore-string-entries
-(cond ((string-equal entry-name current)
+(re-search-backward bibtex-reference nil `move)
-(setq noerr nil)
+(bibtex-beginning-of-entry))
-(bibtex-beginning-of-entry)
+(point)))
-(if ignore-errors
+actual-point
-(throw 'done t)
+actual-key
-(error "Entry duplicates existing!")))
+(done (>= left right))
-((or (null previous)
+new
-(string< previous current))
+dup)
-(setq previous current
+(while (not done)
-point (point))
+(setq actual-point (/ (+ left right) 2))
-(if (string< entry-name current)
+(goto-char actual-point)
-(progn
+(bibtex-beginning-of-entry)
-(bibtex-beginning-of-entry)
+(setq actual-key
-;; Many schemes append strings to
+(if bibtex-sort-ignore-string-entries
-;; existing entries to resolve them,
+(progn
-;; so initial substring matches may
+(re-search-forward bibtex-reference)
-;; indicate a duplicate entry.
+(buffer-substring-no-properties
-(let ((idx
+(match-beginning bibtex-key-in-reference)
-(string-match
+(match-end bibtex-key-in-reference)))
-(regexp-quote entry-name) current)))
+(re-search-forward bibtex-reference-head)
-(if (and
+(buffer-substring-no-properties
-(integerp idx)
+(match-beginning bibtex-key-in-head)
-(zerop idx)
+(match-end bibtex-key-in-head))))
-;;                               (not ignore-errors)
+(cond
-(not (equal entry-name "")))
+((string-lessp entry-name actual-key)
-(progn
+(setq new (match-beginning 0))
-(message
+(if (equal right new)
-"Warning: Entry %s may be a duplicate of %s!"
+(setq done t)
-entry-name current)
+(setq right new)))
-(ding t))))
+((string-lessp actual-key entry-name)
-(throw 'done t))))
+(setq new (match-end 0))
-((string-equal previous current)
+(if (equal left new)
-(setq noerr nil)
+(setq done t)
-(if ignore-errors
+(setq left new)))
-(throw 'done t)
+((string-equal actual-key entry-name)
-(error "Duplicate here with previous!")))
+(setq dup t
-(t
+done t)
-(setq noerr nil)
+(if (not ignore-dups)
-(if ignore-errors
+(error "Entry with key `%s' already exists!" entry-name)))))
-(throw 'done t)
+(if dup
-(error "Entries out of order here!"))))))))
+nil
-(goto-char (point-max)))
+(goto-char right)
-(if (not noerr)
+(if (re-search-forward bibtex-reference nil t)
-(goto-char pnt))
+(progn
-noerr))
+(setq actual-key
+(buffer-substring-no-properties
+(match-beginning bibtex-key-in-reference)
+(match-end bibtex-key-in-reference)))
+(if (string-lessp actual-key entry-name)
+;; even greater than last entry --> we must append
+(progn
+(goto-char (match-end 0))
+(newline (forward-line 2))
+(beginning-of-line))
+(goto-char right))))
+t)))
 (defun bibtex-validate-buffer ()
 "Validate if the current BibTeX buffer is syntactically correct.
 Any garbage (e.g. comments) before the first \"@\" is not tested (so
 you can put comments here)."
 (interactive)
 (let ((pnt (point))
 (max (point-max)))
+;; looking if entries fit syntactical structure
 (goto-char (point-min))
 (while (< (re-search-forward "@\\|\\'") max)
 (forward-char -1)
 (let ((p (point)))
-(if (looking-at "@string")
+(if (or
+(looking-at "@string")
+(looking-at "@preamble"))
 (forward-char)
 (if (not (and
 (re-search-forward bibtex-reference nil t)
 (equal p (match-beginning 0))))
 (progn
 (goto-char p)
 (error "Bad entry begins here"))))))
-(bibtex-find-entry-location (make-string 10 255))
+;; looking if entries are balanced (a single non-escaped quote
-;; find duplicates
+;; inside braces is not detected by the former check, but
+;; bibtex-sort-entries stumbles about it
+(goto-char (point-min))
+(map-bibtex-entries
+(function
+(lambda (current)
+(bibtex-beginning-of-entry)
+(forward-sexp 2))))
+;; looking for correct sort order and duplicates
+(if bibtex-maintain-sorted-entries
+(let ((entry-name (make-string 10 255))
+(previous nil)
+point)
+(beginning-of-first-bibtex-entry)
+(map-bibtex-entries
+(function
+(lambda (current)
+(cond ((or (null previous)
+(string< previous current))
+(setq previous current
+point (point)))
+((string-equal previous current)
+(error "Duplicate here with previous!"))
+(t
+(error "Entries out of order here!"))))))))
 (goto-char pnt)
 (message "BibTeX buffer is syntactically correct")))
 (defun bibtex-next-field (arg)
 "Finds end of text of next BibTeX field; with arg, to its beginning."
 	(cond ((or (eq last-command 'bibtex-pop-previous)
 		   (eq last-command 'bibtex-pop-next))
 	       t
 	       )
 	      (t
-	       (bibtex-enclosing-reference)
+	       (bibtex-enclosing-reference-maybe-empty-head)
 	       (setq bibtex-pop-previous-search-point (point))
 	       (setq bibtex-pop-next-search-point (match-end 0))))
 	(goto-char bibtex-pop-previous-search-point)
 	; Now search for arg'th previous similar field
 	(cond
 	(cond ((or (eq last-command 'bibtex-pop-next)
 		   (eq last-command 'bibtex-pop-previous))
 	       t
 	       )
 	      (t
-	       (bibtex-enclosing-reference)
+	       (bibtex-enclosing-reference-maybe-empty-head)
 	       (setq bibtex-pop-previous-search-point (point))
 	       (setq bibtex-pop-next-search-point (match-end 0))))
 	(goto-char bibtex-pop-next-search-point)
 	; Now search for arg'th next similar field
 (if (not (looking-at
 (concat
 bibtex-field-left-delimiter
 bibtex-field-right-delimiter)))
 (setq crossref-there t))))))
-(bibtex-enclosing-reference)
+(bibtex-enclosing-reference-maybe-empty-head)
 (re-search-forward bibtex-reference-type)
 (let ((begin-type (1+ (match-beginning 0)))
 (end-type (match-end 0)))
 (goto-char start)
 (while (re-search-forward bibtex-field (point-max) t 1)
 (buffer-substring-no-properties
 begin-name end-name))))
 (t
 (goto-char end-field)))))))))
 (goto-char start)
-(bibtex-end-of-entry)
+(bibtex-end-of-entry))
-;; sct@dcs.edinburgh.ac.uk
-(save-excursion
-(forward-line -1)
-(end-of-line)
-(if (eq (preceding-char) ?,)
-	  (backward-delete-char 1))))
 (let* ((eob (progn
 (bibtex-end-of-entry)
 (point)))
 (key (progn
 (bibtex-beginning-of-entry)
-(if (search-forward-regexp
+(if (re-search-forward
 bibtex-reference-head eob t)
 (buffer-substring-no-properties
 (match-beginning bibtex-key-in-head)
 (match-end bibtex-key-in-head))))))
 (if (or
 (if bibtex-autokey-edit-before-use
 (read-from-minibuffer "Key to use: "
 (bibtex-generate-autokey))
 (bibtex-generate-autokey))))
 (bibtex-beginning-of-entry)
-(search-forward-regexp "^@[A-Za-z]+[ \t]*[({]\\([^,]*\\)")
+(re-search-forward bibtex-reference-maybe-empty-head)
-(delete-region (match-beginning 1)
+(if (match-beginning bibtex-key-in-head)
-(match-end 1))
+(delete-region (match-beginning bibtex-key-in-head)
+(match-end bibtex-key-in-head)))
 (insert autokey)
 (let ((start (progn
 (bibtex-beginning-of-entry)
 (point)))
 (end (progn
 (bibtex-end-of-entry)
-(search-forward-regexp "^@" nil 'move)
+(re-search-forward "^@" nil 'move)
 (beginning-of-line)
 (point)))
 last-command)
 (kill-region start end)
-(let ((success (bibtex-find-entry-location autokey t)))
+(let ((success
+(or
+(not bibtex-maintain-sorted-entries)
+(bibtex-find-entry-location autokey t))))
 (yank)
 (setq kill-ring (cdr kill-ring))
-(if success
+(forward-char -1)
 (bibtex-beginning-of-entry)
-(goto-char start))
+(re-search-forward bibtex-reference-head)
-(search-forward-regexp bibtex-reference-head)
 (if (not success)
 (error
-"BibTeX buffer was or has become invalid (call `bibtex-validate-buffer')")))))))))
+"New inserted reference may be a duplicate."))))))))
+(save-excursion
+(let ((start (progn (bibtex-beginning-of-entry) (point)))
+(end (progn (bibtex-end-of-entry) (point))))
+(save-restriction
+(narrow-to-region start end)
+(bibtex-parse-keys t)))))
 (defun bibtex-complete-string ()
 "Complete word fragment before point to longest prefix of a defined string.
 If point is not after the part of a word, all strings are listed."
 (interactive "*")
 (string-list (copy-sequence bibtex-completion-candidates))
 (case-fold-search t)
 (completion (save-excursion
 (progn
 (while (re-search-backward
-"@string[ \t\n]*{" (point-min) t)
+bibtex-string (point-min) t)
-(goto-char (match-end 0))
+(setq string-list
-(let ((pnt (point))
+(cons
-(strt (match-beginning 0)))
+(list
-(re-search-forward "[ \t\n]*="
+(buffer-substring-no-properties
-(point-max) t)
+(match-beginning bibtex-key-in-string)
-(goto-char (match-beginning 0))
+(match-end bibtex-key-in-string)))
-(setq string-list
+string-list)))
-(cons
-(list
-(buffer-substring-no-properties
-pnt (point)))
-string-list))
-(goto-char strt)))
 (setq string-list
 (sort string-list
 (lambda(x y)
 (string-lessp
 (car x)

Mercurial > emacs

comparison lisp/textmodes/bibtex.el @ 13728:4b7903cfa7ee