annotate lisp/auctex/style/swedish.el @ 100:4be1180a9e89 r20-1b2

Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
100
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
1 ;;; swedish.el - Setup AUC TeX for editing Swedish text.
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
2
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
3 ;; $Id: swedish.el,v 1.1 1997/02/20 02:15:44 steve Exp $
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
4
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
5 ;;; Commentary:
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
6 ;;
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
7 ;; Apparently the Swedes use ''this style'' quotations.
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
8
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
9 (TeX-add-style-hook "swedish"
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
10 (function (lambda ()
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
11 (make-local-variable 'TeX-open-quote)
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
12 (setq TeX-open-quote "''")
4be1180a9e89 Import from CVS: tag r20-1b2
cvs
parents:
diff changeset
13 (run-hooks 'TeX-language-sv-hook))))