[AUCTeX-diffs] Changes to auctex/style/dk-bib.el

[Reiner Steib]

Index: auctex/style/dk-bib.el
diff -u auctex/style/dk-bib.el:1.2 auctex/style/dk-bib.el:1.3
--- auctex/style/dk-bib.el:1.2  Thu Oct 13 14:05:21 2005
+++ auctex/style/dk-bib.el      Thu Oct 13 17:16:48 2005
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 2005 Free Software Foundation, Inc.
 
-;; Author: Arne J,Ax(Brgensen <address@hidden>
+;; Author: Arne Jørgensen <address@hidden>
 ;; Keywords: tex
 
 ;; This file is part of AUCTeX.
@@ -30,14 +30,13 @@
 
 (defun LaTeX-dk-bib-package-options nil
   "Prompt for package option for dk-bib.sty."
-  (let ((options 
-        (mapconcat 'identity 
-                   (TeX-completing-read-multiple "Options: "
-                                                 '(("isbn") ("issn") ("url")
-                                                   ("annote") ("printing")
-                                                   ("apalike") 
("fixcitedash=false")
-                                                   ("ordinals2word")
-                                                   ("ordinaldepth=")))
+  (let ((options
+        (mapconcat 'identity
+                   (TeX-completing-read-multiple
+                    "Options: "
+                    '(("isbn") ("issn") ("url") ("annote")
+                      ("printing") ("apalike") ("fixcitedash=false")
+                      ("ordinals2word") ("ordinaldepth=")))
                    ","))
        (depth -1))
     (when (string-match "\\(ordinaldepth=\\)\\([^0-9]\\|$\\)" options)
@@ -49,11 +48,15 @@
        (when (or (< depth 0)
                  (> depth 20))
          (message "Ordinal depth must be between 0 and 20")
-         (sit-for 1)))  
-      (setq options (concat 
+         (sit-for 1)))
+      (setq options (concat
                     (substring options 0 (match-end 1))
                     (number-to-string depth)
                     (substring options (match-end 1)))))
     options))
+
+;; Local Variables:
+;; coding: iso-8859-1
+;; End:
 
 ;;; dk-bib.el ends here