25 |
|
|
26 |
;;; Commentary: |
;;; Commentary: |
27 |
|
|
28 |
|
;; Fixme: Is this actually used? if so, it should be in language, |
29 |
|
;; possibly as a feature property of Swedish, probably defining a |
30 |
|
;; `swascii' coding system. |
31 |
|
|
32 |
;;; Code: |
;;; Code: |
33 |
|
|
34 |
;; Written by Howard Gayle. See case-table.el for details. |
;; Written by Howard Gayle. See case-table.el for details. |
35 |
|
|
36 |
;; See iso-swed.el for a description of the character set. |
;; See iso-swed.el for a description of the character set. |
37 |
|
|
|
(require 'latin-1) |
|
|
|
|
38 |
(defvar swedish-re |
(defvar swedish-re |
39 |
"[ \t\n]\\(och\\|att\\|en\\|{r\\|\\[R\\|p}\\|P\\]\\|som\\|det\\|av\\|den\\|f|r\\|F\\\\R\\)[ \t\n.,?!:;'\")}]" |
"[ \t\n]\\(och\\|att\\|en\\|{r\\|\\[R\\|p}\\|P\\]\\|som\\|det\\|av\\|den\\|f|r\\|F\\\\R\\)[ \t\n.,?!:;'\")}]" |
40 |
"Regular expression for common Swedish words.") |
"Regular expression for common Swedish words.") |