;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:51:59 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/swedish.el ;;; emacs version 19.28.90.26. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/gd/gnu/emacs/19.0/lisp/swedish.el' was compiled for Emacs 19")) (require (quote iso-syntax)) #@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.,?!:;'\")}]" (#$ . 512)) #@35 Trans table from SWASCII to 8859. (defvar swascii-to-8859-trans (byte-code "ÀÁÂ\"Ã\fÁWƒ \f‰Iˆ\fT‰‚ ÆÇIˆ ÈÉIˆ ÊËIˆ ÌÍIˆ ÎÏIˆ ÐÑIˆ ÒÓIˆ ÔÕIˆ Ö×Iˆ *‡" [make-string 256 32 0 i string 91 196 93 197 92 214 94 220 123 228 125 229 96 233 124 246 126 252] 4) (#$ . 702)) #@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 "ÀÂed #)‡" [nil buffer-read-only translate-region swascii-to-8859-trans] 4 (#$ . 978) 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 "À ÄÀ#…\fÅ )‡" [t case-fold-search re-search-forward swedish-re nil swascii-to-8859-buffer] 4 (#$ . 1254) nil]) (byte-code "ÀÂÃ!„\nÄÅÆ \"ć" [swascii-to-8859-buffer-maybe rmail-show-message-hook boundp news-group-hook-alist nil append (("^swnet." . swascii-to-8859-buffer-maybe))] 3) #@30 8859 to SWASCII trans table. (defvar 8859-to-swascii-trans (byte-code "ÀÁÂ\"Ã\fÁWƒ \f‰Iˆ\fT‰‚ ÆÇIˆ ÈÉIˆ ÊËIˆ ÌÍIˆ ÎÏIˆ ÐÑIˆ ÒÓIˆ ÔÕIˆ Ö×Iˆ ØÙIˆ ÚÛIˆ *‡" [make-string 256 32 0 i string 164 36 196 91 197 93 201 64 214 92 220 94 228 123 229 125 233 96 246 124 252 126] 4) (#$ . 1718)) #@72 Convert characters in buffer from ISO 8859/1 to Swedish/Finnish-ascii. (defalias '8859-to-swascii-buffer #[nil "Àed #‡" [translate-region 8859-to-swascii-trans] 4 (#$ . 2013) "*"]) (byte-code "ÀÀÃÄ!‡" [8859-to-swascii-buffer mail-send-hook news-inews-hook provide swedish] 2)