/[auctex]/auctex/tex.el
ViewVC logotype

Diff of /auctex/tex.el

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

revision 5.540 by arne, Wed Oct 12 13:03:58 2005 UTC revision 5.541 by angeli, Fri Oct 28 16:38:37 2005 UTC
# Line 4388  quotes are inserted only after \"." Line 4388  quotes are inserted only after \"."
4388    "Alist for overriding the default language-specific quote insertion.    "Alist for overriding the default language-specific quote insertion.
4389  First element in each item is the name of the language as set by  First element in each item is the name of the language as set by
4390  the language style file.  Second element is the opening quotation  the language style file.  Second element is the opening quotation
4391  mark as string.  Third element is the closing quotation mark.  mark.  Third element is the closing quotation mark.  Opening and
4392  Fourth element is a boolean specifying insertion behavior,  closing quotation marks can be specified directly as strings or
4393  overriding `TeX-quote-after-quote'."  as functions returning a string.  Fourth element is a boolean
4394    specifying insertion behavior, overriding
4395    `TeX-quote-after-quote'."
4396    :group 'TeX-quote    :group 'TeX-quote
4397    :type '(repeat (group (string :tag "Language")    :type '(repeat (group (string :tag "Language")
4398                          (string :tag "Opening quotation mark")                          (choice :tag "Opening quotation mark" string function)
4399                          (string :tag "Closing quotation mark")                          (choice :tag "Closing quotation mark" string function)
4400                          (boolean :tag "Insert plain quote first" :value t))))                          (boolean :tag "Insert plain quote first" :value t))))
4401    
4402  (defvar TeX-quote-language nil  (defvar TeX-quote-language nil
# Line 4436  With prefix argument FORCE, always inser Line 4438  With prefix argument FORCE, always inser
4438             (open-quote (if lang (nth 1 lang) TeX-open-quote))             (open-quote (if lang (nth 1 lang) TeX-open-quote))
4439             (close-quote (if lang (nth 2 lang) TeX-close-quote))             (close-quote (if lang (nth 2 lang) TeX-close-quote))
4440             (q-after-q (if lang (nth 3 lang) TeX-quote-after-quote)))             (q-after-q (if lang (nth 3 lang) TeX-quote-after-quote)))
4441          (when (functionp open-quote)
4442            (setq open-quote (funcall open-quote)))
4443          (when (functionp close-quote)
4444            (setq close-quote (funcall close-quote)))
4445        (if q-after-q        (if q-after-q
4446            (insert (cond ((bobp)            (insert (cond ((bobp)
4447                           ?\")                           ?\")

Legend:
Removed from v.5.540  
changed lines
  Added in v.5.541

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