[Emacs-diffs] /srv/bzr/emacs/trunk r110163: lisp/textmodes/bibtex.el: minor bugfixes

[Roland Winkler]

------------------------------------------------------------
revno: 110163
committer: Roland Winkler <address@hidden>
branch nick: trunk
timestamp: Sun 2012-09-23 07:46:53 -0500
message:
  lisp/textmodes/bibtex.el: minor bugfixes
modified:
  lisp/ChangeLog
  lisp/textmodes/bibtex.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-09-23 12:35:28 +0000
+++ b/lisp/ChangeLog    2012-09-23 12:46:53 +0000
@@ -1,5 +1,12 @@
 2012-09-23  Roland Winkler  <address@hidden>
 
+       * 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  <address@hidden>
+
        * proced.el (proced-renice-command): New variable.
        (proced-marked-processes): New function.
        (proced-with-processes-buffer): New macro.

=== modified file 'lisp/textmodes/bibtex.el'
--- a/lisp/textmodes/bibtex.el  2012-06-12 05:47:14 +0000
+++ b/lisp/textmodes/bibtex.el  2012-09-23 12:46:53 +0000
@@ -1002,6 +1002,7 @@
     
("\\\\`\\|\\\\'\\|\\\\\\^\\|\\\\~\\|\\\\=\\|\\\\\\.\\|\\\\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 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.