/[auctex]/auctex/style/dk-bib.el
ViewVC logotype

Diff of /auctex/style/dk-bib.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by angeli, Thu Oct 13 14:05:21 2005 UTC revision 1.3 by rsteib, Thu Oct 13 17:16:48 2005 UTC
# Line 2  Line 2 
2    
3  ;; Copyright (C) 2005 Free Software Foundation, Inc.  ;; Copyright (C) 2005 Free Software Foundation, Inc.
4    
5  ;; Author: Arne J,Ax(Brgensen <arne@arnested.dk>  ;; Author: Arne Jørgensen <arne@arnested.dk>
6  ;; Keywords: tex  ;; Keywords: tex
7    
8  ;; This file is part of AUCTeX.  ;; This file is part of AUCTeX.
# Line 30  Line 30 
30    
31  (defun LaTeX-dk-bib-package-options nil  (defun LaTeX-dk-bib-package-options nil
32    "Prompt for package option for dk-bib.sty."    "Prompt for package option for dk-bib.sty."
33    (let ((options    (let ((options
34           (mapconcat 'identity           (mapconcat 'identity
35                      (TeX-completing-read-multiple "Options: "                      (TeX-completing-read-multiple
36                                                    '(("isbn") ("issn") ("url")                       "Options: "
37                                                      ("annote") ("printing")                       '(("isbn") ("issn") ("url") ("annote")
38                                                      ("apalike") ("fixcitedash=false")                         ("printing") ("apalike") ("fixcitedash=false")
39                                                      ("ordinals2word")                         ("ordinals2word") ("ordinaldepth=")))
                                                     ("ordinaldepth=")))  
40                      ","))                      ","))
41          (depth -1))          (depth -1))
42      (when (string-match "\\(ordinaldepth=\\)\\([^0-9]\\|$\\)" options)      (when (string-match "\\(ordinaldepth=\\)\\([^0-9]\\|$\\)" options)
# Line 49  Line 48 
48          (when (or (< depth 0)          (when (or (< depth 0)
49                    (> depth 20))                    (> depth 20))
50            (message "Ordinal depth must be between 0 and 20")            (message "Ordinal depth must be between 0 and 20")
51            (sit-for 1)))              (sit-for 1)))
52        (setq options (concat        (setq options (concat
53                       (substring options 0 (match-end 1))                       (substring options 0 (match-end 1))
54                       (number-to-string depth)                       (number-to-string depth)
55                       (substring options (match-end 1)))))                       (substring options (match-end 1)))))
56      options))      options))
57    
58    ;; Local Variables:
59    ;; coding: iso-8859-1
60    ;; End:
61    
62  ;;; dk-bib.el ends here  ;;; dk-bib.el ends here

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26