;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:46:53 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/international/swedish.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`swedish.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'latin-1) #@46 Regular expression for common Swedish words. (defvar swedish-re "[ \n]\\(och\\|att\\|en\\|{r\\|\\[R\\|p}\\|P\\]\\|som\\|det\\|av\\|den\\|f|r\\|F\\\\R\\)[ \n.,?!:;'\")}]" (#$ . 649)) #@35 Trans table from SWASCII to 8859. (defvar swascii-to-8859-trans (byte-code "\302\303\304\"\305\303W\203 \211I\210T\211\202 \306\307I\210 \310\311I\210 \312\313I\210 \314\315I\210 \316\317I\210 \320\321I\210 \322\323I\210 \324\325I\210 \326\327I\210 *\207" [i string make-string 256 32 0 91 196 93 197 92 214 94 220 123 228 125 229 96 233 124 246 126 252] 4) (#$ . 839)) #@137 Convert characters in buffer from Swedish/Finnish-ascii to ISO 8859/1. Works even on read-only buffers. `$' and `@' are not converted. (defalias 'swascii-to-8859-buffer #[nil "\302\303ed #)\207" [buffer-read-only swascii-to-8859-trans nil translate-region] 4 (#$ . 1226) nil]) #@122 Call swascii-to-8859-buffer if the buffer looks like Swedish-ascii. Leaves point just after the word that looks Swedish. (defalias 'swascii-to-8859-buffer-maybe #[nil "\302\303 \304\302#\205\f\305 )\207" [case-fold-search swedish-re t re-search-forward nil swascii-to-8859-buffer] 4 (#$ . 1512) nil]) (byte-code "\302\303\301!\204\n\304\305\306 \"\304\207" [rmail-show-message-hook news-group-hook-alist swascii-to-8859-buffer-maybe boundp nil append (("^swnet." . swascii-to-8859-buffer-maybe))] 3) #@30 8859 to SWASCII trans table. (defvar 8859-to-swascii-trans (byte-code "\302\303\304\"\305\303W\203 \211I\210T\211\202 \306\307I\210 \310\311I\210 \312\313I\210 \314\315I\210 \316\317I\210 \320\321I\210 \322\323I\210 \324\325I\210 \326\327I\210 \330\331I\210 \332\333I\210 *\207" [i string make-string 256 32 0 164 36 196 91 197 93 201 64 214 92 220 94 228 123 229 125 233 96 246 124 252 126] 4) (#$ . 2024)) #@72 Convert characters in buffer from ISO 8859/1 to Swedish/Finnish-ascii. (defalias '8859-to-swascii-buffer #[nil "\301ed#\207" [8859-to-swascii-trans translate-region] 4 (#$ . 2448) "*"]) (byte-code "\302\302\303\304!\207" [mail-send-hook news-inews-hook 8859-to-swascii-buffer provide swedish] 2)