;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; 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\211G\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\211G\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\204h\305=\204$\303h!\306H\204$\302u\210\202`i)B \307X\2049A\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)])