;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:16:39 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/obsolete/swedish.el
;;; in Emacs version 24.0.50.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@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.,?!:;'\")}]" (#$ . 550))
#@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) (#$ . 740))
#@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 (#$ . 1127) 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 (#$ . 1413) nil])
(byte-code "\302\303\304\305\301!\205	\"\302\207" [rmail-show-message-hook news-group-hook-alist swascii-to-8859-buffer-maybe append (("^swnet." . swascii-to-8859-buffer-maybe)) boundp] 4)
#@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) (#$ . 1915))
#@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 (#$ . 2339) "*"])
(byte-code "\302\211\303\304!\207" [mail-send-hook news-inews-hook 8859-to-swascii-buffer provide swedish] 3)
