[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[AUCTeX-diffs] Changes to auctex/style/dk-bib.el
From: |
Reiner Steib |
Subject: |
[AUCTeX-diffs] Changes to auctex/style/dk-bib.el |
Date: |
Thu, 13 Oct 2005 13:16:50 -0400 |
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