Mercurial > emacs

comparison lisp/international/swedish.el @ 89161:dc16da3f414d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Don't require latin-1.
author Dave Love <fx@gnu.org>
date Sun, 06 Oct 2002 16:12:34 +0000
parents 253f761ad37b
children 2f877ed80fa6
comparison
equal deleted inserted replaced
89160:5b452d9d5875 89161:dc16da3f414d
25 25
26 ;;; Commentary: 26 ;;; Commentary:
27 27
28 ;;; Code: 28 ;;; Code:
29 29
30 ;; Fixme: Is this actually used? if so, it should be in language,
31 ;; possibly as a feature property of Swedish, probably defining a
32 ;; `swascii' coding system.
33
30 ;; Written by Howard Gayle. See case-table.el for details. 34 ;; Written by Howard Gayle. See case-table.el for details.
31 35
32 ;; See iso-swed.el for a description of the character set. 36 ;; See iso-swed.el for a description of the character set.
33
34 (require 'latin-1)
35 37
36 (defvar swedish-re 38 (defvar swedish-re
37 "[ \t\n]\\(och\\|att\\|en\\|{r\\|\\[R\\|p}\\|P\\]\\|som\\|det\\|av\\|den\\|f|r\\|F\\\\R\\)[ \t\n.,?!:;'\")}]" 39 "[ \t\n]\\(och\\|att\\|en\\|{r\\|\\[R\\|p}\\|P\\]\\|som\\|det\\|av\\|den\\|f|r\\|F\\\\R\\)[ \t\n.,?!:;'\")}]"
38 "Regular expression for common Swedish words.") 40 "Regular expression for common Swedish words.")
39 41