Gecko [ 122.154.134.11 ]

Name	Size	Permission
awk-mode.elc	4.27 KB	-rw-r--r--
fast-lock.elc	17.08 KB	-rw-r--r--
iso-acc.elc	12.05 KB	-rw-r--r--
iso-insert.elc	11.71 KB	-rw-r--r--
iso-swed.elc	3.85 KB	-rw-r--r--
keyswap.el	1.37 KB	-rw-r--r--
lazy-lock.elc	24.77 KB	-rw-r--r--
old-whitespace.elc	23.48 KB	-rw-r--r--
options.elc	3.84 KB	-rw-r--r--
resume.elc	2.34 KB	-rw-r--r--
rnews.elc	25.96 KB	-rw-r--r--
rnewspost.elc	11.6 KB	-rw-r--r--
sc.elc	764 B	-rw-r--r--
scribe.elc	9.89 KB	-rw-r--r--
swedish.elc	2.64 KB	-rw-r--r--
vc-mcvs.elc	15.26 KB	-rw-r--r--
x-menu.elc	4.05 KB	-rw-r--r--

Code Editor : swedish.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:39 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/obsolete/swedish.el
;;; in Emacs version 23.1.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"))

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

#@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.,?!:;'\")}]" (#$ . 614))
#@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) (#$ . 804))
#@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 (#$ . 1191) 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 (#$ . 1477) 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) (#$ . 1979))
#@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 (#$ . 2403) "*"])
(byte-code "\302\211\303\304!\207" [mail-send-hook news-inews-hook 8859-to-swascii-buffer provide swedish] 3)

${this.title}

Code Editor : swedish.elc