summaryrefslogtreecommitdiff
path: root/elpa/auctex-13.1.3/style/plhb.el
diff options
context:
space:
mode:
Diffstat (limited to 'elpa/auctex-13.1.3/style/plhb.el')
-rw-r--r--elpa/auctex-13.1.3/style/plhb.el34
1 files changed, 34 insertions, 0 deletions
diff --git a/elpa/auctex-13.1.3/style/plhb.el b/elpa/auctex-13.1.3/style/plhb.el
new file mode 100644
index 0000000..14d86ab
--- /dev/null
+++ b/elpa/auctex-13.1.3/style/plhb.el
@@ -0,0 +1,34 @@
+;;; plhb.el - Setup AUC TeX for editing Polish text with plhb.sty -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;;
+;; `plhb.sty' use `"' to make next character Polish.
+;; `plhb.sty' <C> J. S. Bie\'n, IIUW, jsbien@mimuw.edu.pl
+
+;;; Code:
+
+(require 'tex)
+(require 'latex)
+
+(defvar LaTeX-plhb-mode-syntax-table
+ (copy-syntax-table LaTeX-mode-syntax-table)
+ "Syntax table used in LaTeX mode when using `plhb.sty'.")
+
+(modify-syntax-entry ?\" "w" LaTeX-plhb-mode-syntax-table)
+
+(TeX-add-style-hook
+ "plhb"
+ (lambda ()
+ (set-syntax-table LaTeX-plhb-mode-syntax-table)
+ (make-local-variable 'TeX-open-quote)
+ (make-local-variable 'TeX-close-quote)
+ (make-local-variable 'TeX-command-default)
+ (make-local-variable 'TeX-quote-after-quote)
+ (setq TeX-open-quote "\"<")
+ (setq TeX-close-quote "\">")
+ (setq TeX-quote-after-quote t)
+ (setq TeX-command-default "plLaTeX")
+ (run-hooks 'TeX-language-pl-hook))
+ TeX-dialect)
+
+;;; plhb.el ends here