1.1 --- a/yatexadd.el	Wed Jan 03 23:58:59 2018 +0900
     1.2 +++ b/yatexadd.el	Wed May 30 07:03:38 2018 +0900
     1.3 @@ -1,6 +1,6 @@
     1.4  ;;; yatexadd.el --- YaTeX add-in functions -*- coding: sjis -*-
     1.5  ;;; (c)1991-2018 by HIROSE Yuuji.[yuuji@yatex.org]
     1.6 -;;; Last modified Wed Jan  3 23:57:48 2018 on firestorm
     1.7 +;;; Last modified Wed May 16 22:41:56 2018 on firestorm
     1.8  ;;; $Id$
     1.9  
    1.10  ;;; Code:
    1.11 @@ -1519,6 +1519,23 @@
    1.12  
    1.13     (t nil)))
    1.14  
    1.15 +(defvar YaTeX::bibliographystyle-alist-default
    1.16 +  '(("unsrt")("junsrt")("plain")("jplain")("alpha")("jalpha")
    1.17 +    ("abbrv")("jabbrv")("jipsj")("jname")("tieice")("tipsj")
    1.18 +    ("apalike")("ieeetr")("siam")))
    1.19 +(defvar YaTeX::bibliographystyle-alist-private
    1.20 +  nil
    1.21 +  "*Completion table for bibliographystyle")
    1.22 +
    1.23 +(defun YaTeX::bibliographystyle(argp)
    1.24 +  (cond
    1.25 +   ((= argp 1)
    1.26 +    (YaTeX-completing-read-or-skip
    1.27 +     "BibStyle: "
    1.28 +     (append YaTeX::bibliographystyle-alist-private
    1.29 +	     YaTeX::bibliographystyle-alist-default)
    1.30 +     nil))))
    1.31 +
    1.32  (defun YaTeX::bibitem (argp)
    1.33    "Add-in function to insert argument of \\bibitem."
    1.34    (YaTeX::label argp "label" "cite"))