procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

lisp/textmodes/bibtex.el: minor bugfixes

Browse source
This commit is contained in:
Roland Winkler 2012-09-23 07:46:53 -05:00
parent 936ad0418d
commit 2f43823976
2 changed files with 24 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
2012-09-23 Roland Winkler <winkler@gnu.org>
* textmodes/bibtex.el (bibtex-autokey-transcriptions): Transcribe
also LaTeX hyphenation.
(bibtex-reformat): Bug fix. Do not quote twice the elements of
bibtex-reformat-previous-options.
2012-09-23 Roland Winkler <winkler@gnu.org>
* proced.el (proced-renice-command): New variable.

32
lisp/textmodes/bibtex.el
View file

@ -1002,6 +1002,7 @@ See `bibtex-generate-autokey' for details."
("\\\\`\\|\\\\'\\|\\\\\\^\\|\\\\~\\|\\\\=\\|\\\\\\.\\|\\\\u\\|\\\\v\\|\\\\H\\|\\\\t\\|\\\\c\\|\\\\d\\|\\\\b" . "")
;; braces, quotes, concatenation.
("[`'\"{}#]" . "")
("\\\\-" . "") ; \- ->
;; spaces
("\\\\?[ \t\n]+\\|~" . " "))
"Alist of (OLD-REGEXP . NEW-STRING) pairs.
@ -4893,21 +4894,22 @@ If mark is active reformat entries in region, if not in whole buffer."
(if use-previous-options
bibtex-reformat-previous-options
(setq bibtex-reformat-previous-options
(mapcar (lambda (option)
(if (y-or-n-p (car option)) (cdr option)))
`(("Realign entries (recommended)? " . 'realign)
("Remove empty optional and alternative fields? " . 'opts-or-alts)
("Remove delimiters around pure numerical fields? " . 'numerical-fields)
(,(concat (if bibtex-comma-after-last-field "Insert" "Remove")
" comma at end of entry? ") . 'last-comma)
("Replace double page dashes by single ones? " . 'page-dashes)
("Delete whitespace at the beginning and end of fields? " . 'whitespace)
("Inherit booktitle? " . 'inherit-booktitle)
("Force delimiters? " . 'delimiters)
("Unify case of entry types and field names? " . 'unify-case)
("Enclose parts of field entries by braces? " . 'braces)
("Replace parts of field entries by string constants? " . 'strings)
("Sort fields? " . 'sort-fields))))))
(delq nil
(mapcar (lambda (option)
(if (y-or-n-p (car option)) (cdr option)))
`(("Realign entries (recommended)? " . realign)
("Remove empty optional and alternative fields? " . opts-or-alts)
("Remove delimiters around pure numerical fields? " . numerical-fields)
(,(concat (if bibtex-comma-after-last-field "Insert" "Remove")
" comma at end of entry? ") . last-comma)
("Replace double page dashes by single ones? " . page-dashes)
("Delete whitespace at the beginning and end of fields? " . whitespace)
("Inherit booktitle? " . inherit-booktitle)
("Force delimiters? " . delimiters)
("Unify case of entry types and field names? " . unify-case)
("Enclose parts of field entries by braces? " . braces)
("Replace parts of field entries by string constants? " . strings)
("Sort fields? " . sort-fields)))))))
;; Do not include required-fields because `bibtex-reformat'
;; cannot handle the error messages of `bibtex-format-entry'.
;; Use `bibtex-validate' to check for required fields.