|
Server IP : 111.118.215.189 / Your IP : 3.18.102.38 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/obsolete/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:10 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/obsolete/swedish.el
;;; in Emacs version 24.3.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.,?!:;'\")}]" (#$ . 559))
#@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) (#$ . 749))
#@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 (#$ . 1136) 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 (#$ . 1422) 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) (#$ . 1924))
#@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 (#$ . 2348) "*"])
(byte-code "\302\211\303\304!\207" [mail-send-hook news-inews-hook 8859-to-swascii-buffer provide swedish] 3)