[AUCTeX-devel] TeX-quote-language-alist: Documentation and custom type

[Reiner Steib]

Hi,

de.comp.editors/de.comp.text.tex readers [1] know why I bring this
up...

,----[ (info "(auctex)European") ]
|  -- User Option: TeX-quote-language-alist
|      Used for overriding the default language-specific quote insertion
|      behavior.  This is an alist where each element is a list
|      consisting of four items.  The first item is the name of the
|      language in concern as a string.  The second item is the opening
|      quotation mark.  The third item is the closing quotation mark.
|      Opening and closing quotation marks can be specified directly as
|      strings or as functions returning a string.  The fourth item is a
|      boolean controlling quote insertion.  It should be non-nil if if
|      the special quotes should only be used after inserting a literal
|      `"' character first, i.e. on second key press.
`----

I think it's not quote clear which choices exist for the first item of
each element.  In contrast to the doc string [2], it's "name of the
language as set by the language style file".  In the manual, we should
also mention which languages are available (i.e. refer to the listed
languages).  The custom type could include the possible choices, see
the patch below.

WDYT?

--8<---------------cut here---------------start------------->8---
--- tex.el      05 Jan 2007 01:41:31 +0100      5.593
+++ tex.el      05 Jan 2007 01:59:06 +0100      
@@ -4677,7 +4677,20 @@
 specifying insertion behavior, overriding
 `TeX-quote-after-quote'."
   :group 'TeX-quote
-  :type '(repeat (group (string :tag "Language")
+  :type '(repeat (group (choice
+                        (const "czech")
+                        (const "danish")
+                        (const "dutch")
+                        (const "german")
+                        (const "ngerman")
+                        (const "frenchb")
+                        (const "francais")
+                        (const "italian")
+                        (const "plfonts")
+                        (const "plhb")
+                        (const "slovak")
+                        (const "swedish")
+                        (string :tag "Other Language"))
                        (choice :tag "Opening quotation mark" string function)
                        (choice :tag "Closing quotation mark" string function)
                        (boolean :tag "Insert plain quote first" :value t))))
--8<---------------cut here---------------end--------------->8---

Bye, Reiner.

[1] From de.comp.text.tex (sorry, in German) ...

,----
| > Der entsprechende Dialog in
| >
| > (info "(auctex)European") erzeugt in .emacs die Zeile 
| >
| > '(TeX-quote-language-alist (quote (("de" "»" "«" t))))
| >  
| > die bisher wirkungslos bleibt.
| 
| Auf der Seite im Handbuch stehen alle Strings, die für die Angabe der
| Sprache verwendet werden können.  Nimm also lieber "ngerman" oder
| "german" (je nachdem, welche Variante du dem babel-Paket mitgibst)
| anstelle des Phantasiestrings "de".
`----

[2]
,----[ <f1> v TeX-quote-language-alist RET ]
| TeX-quote-language-alist is a variable defined in `tex'.
| Its value is nil
| 
| Documentation:
| Alist for overriding the default language-specific quote insertion.
| First element in each item is the name of the language as set by
| the language style file.  Second element is the opening quotation
| mark.  Third element is the closing quotation mark.  Opening and
| closing quotation marks can be specified directly as strings or
| as functions returning a string.  Fourth element is a boolean
| specifying insertion behavior, overriding
| `TeX-quote-after-quote'.
| 
| You can customize this variable.
`----
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/