| Current File : //kunden/usr/share/emacs/27.2/lisp/international/kinsoku.elc |
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(string-lessp emacs-version "23")
(error "`%s' was compiled for Emacs 23 or later" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@114 How many more columns we can make lines longer by `kinsoku' processing.
The value 0 means there's no limitation.
(defvar kinsoku-limit 4 (#$ . 409))
(byte-code "\306\211\306G\307\310\311 \n W\203& \312\313\nH\" \314\f!P\nT\211\202
-\315Q\211 G\307\311 \n W\203G
\nH\nT\316\f\317\"\210\2022 ,\320\211\320G\307\310\311 \n W\203n \312\313\nH\" \314\f!P\nT\211\202U -\321Q\211 G\307\311 \n W\203\221 \nH\nT\316\f\322\"\210\202{ ,\311\207" [str1 len idx str2 ch kinsoku-bol "!)-_~}]:;',.?" 0 "" nil make-char latin-jisx0201 char-to-string "｡｣ｧｨｩｪｫｬｭｮｯｰﾞﾟ、。，．・：；？！゛゜´｀¨＾￣＿ヽヾゝゞ〃仝々〆〇ー—‐／＼〜‖｜…‥’”）〕］｝〉》」』】°′″℃ぁぃぅぇぉっゃゅょゎァィゥェォッャュョヮヵヶ、。．，・ˉˇ¨〃々―～‖…’”）〕〉》」』〗】；：？！±×÷∶°′″℃／＼＂＿￣｜ㄥ，、。．‧；：？！︰…‥﹐﹑﹒·﹔﹕﹖﹗｜–︱—︳╴︴﹏）︶｝︸〕︺】︼》︾〉﹀」﹂』﹄﹚﹜﹞’”〞′〃¯￣＿ˍ﹉﹊﹍﹎﹋﹌×÷±℃℉﹩°ㄥ" modify-category-entry 62 "({[`" "｢‘“（〔［｛〈《「『【°′″℃＠§‘“＂（〔〈《「『〖【°′″＠℃§ㄅㄆㄇㄈㄉㄊㄋㄌㄍㄎㄏㄐㄑㄒㄓㄔㄕㄖㄗㄘㄙㄨ（︵｛︷〔︹【︻《︽〈︿「﹁『﹃﹙﹛﹝‘“〝‵′〃§＠℃℉﹫°ㄅㄆㄇㄈㄉㄊㄋㄌㄍㄎㄏㄐㄑㄒㄓㄔㄕㄖㄗㄘㄙㄨ" 60 kinsoku-eol] 6)
(defalias 'kinsoku-longer #[nil "\212\302u\210l\204$ \303g!\304H\204 h\305=\204$ \303h!\306H\204$ \302u\210\202 `i)B \307X\2049 A\310 \\W\205< @b)\207" [pos-and-column kinsoku-limit 1 char-category-set 62 32 124 0 current-fill-column] 3])
(defalias 'kinsoku-shorter #[(linebeg) "\212\302u\210`W\203. \303h!\304H\204( \303g!\305H\204( h\306=\204. \303h!\307H\204. \302u\210\202 `) W\2059 b)\207" [linebeg pos -1 char-category-set 60 62 32 124] 2])
#@589 Go to a line breaking position near point by doing `kinsoku' processing.
LINEBEG is a buffer position we can't break a line before.
`Kinsoku' processing is to prohibit specific characters to be placed
at beginning of line or at end of line. Characters not to be placed
at beginning and end of line have character category `>' and `<'
respectively. This restriction is dissolved by making a line longer or
shorter.
`Kinsoku' is a Japanese word which originally means ordering to stay
in one place, and is used for the text processing described above in
the context of text formatting.
(defalias 'kinsoku #[(linebeg) "\205 \302g!\303H\203 \304 \203 \302h!\305H\205 \306 !\207" [enable-kinsoku linebeg char-category-set 62 kinsoku-longer 60 kinsoku-shorter] 2 (#$ . 2403)])