annotate lisp/international/kinsoku.el @ 49822:02529e3b1f2c

(vc-cvs-dir-state): Protect against DIR not being under CVS control.
author André Spiegel <spiegel@gnu.org>
date Mon, 17 Feb 2003 08:11:13 +0000
parents 0d8b17d428b5
children 28bd29f9f91c d7ddb3e565de
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
38414
67b464da13ec Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 23492
diff changeset
1 ;;; kinsoku.el --- `Kinsoku' processing funcs -*- coding: iso-2022-7bit; -*-
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
18377
8b4a66c66dd6 Change copyright notice.
Richard M. Stallman <rms@gnu.org>
parents: 17759
diff changeset
4 ;; Licensed to the Free Software Foundation.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5
18377
8b4a66c66dd6 Change copyright notice.
Richard M. Stallman <rms@gnu.org>
parents: 17759
diff changeset
6 ;; Keywords: mule, kinsoku
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8 ;; This file is part of GNU Emacs.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
9
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
13 ;; any later version.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
14
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
18 ;; GNU General Public License for more details.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
19
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
17071
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
23 ;; Boston, MA 02111-1307, USA.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
24
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
25 ;;; Commentary:
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
26
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
27 ;; `Kinsoku' processing is to prohibit specific characters to be
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
28 ;; placed at beginning of line or at end of line. Characters not to
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
29 ;; be placed at beginning and end of line have character category `>'
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
30 ;; and `<' respectively. This restriction is dissolved by making a
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
31 ;; line longer or shorter.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
32 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
33 ;; `Kinsoku' is a Japanese word which originally means ordering to
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
34 ;; stay in one place, and is used for the text processing described
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
35 ;; above in the context of text formatting.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
36
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
37 ;;; Code:
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
38
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
39 (defvar kinsoku-limit 4
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
40 "How many more columns we can make lines longer by `kinsoku' processing.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
41 The value 0 means there's no limitation.")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
42
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
43 ;; Setting character category `>' for characters which should not be
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
44 ;; placed at beginning of line.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
45 (let* ((kinsoku-bol
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
46 (concat
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
47 ;; ASCII
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
48 "!)-_~}]:;',.?"
17759
ef12c80a8a1e Set category of kinsoku-bol and kinsoku-eol for
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
49 ;; Latin JISX0201
23196
30beacf88b75 Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 20843
diff changeset
50 ;; Instead of putting Latin JISX0201 string directly, we
17759
ef12c80a8a1e Set category of kinsoku-bol and kinsoku-eol for
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
51 ;; generate the string as below to avoid character
ef12c80a8a1e Set category of kinsoku-bol and kinsoku-eol for
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
52 ;; unification problem.
ef12c80a8a1e Set category of kinsoku-bol and kinsoku-eol for
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
53 (let* ((str1 "!)-_~}]:;',.?")
ef12c80a8a1e Set category of kinsoku-bol and kinsoku-eol for
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
54 (len (length str1))
ef12c80a8a1e Set category of kinsoku-bol and kinsoku-eol for
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
55 (idx 0)
ef12c80a8a1e Set category of kinsoku-bol and kinsoku-eol for
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
56 (str2 "")
ef12c80a8a1e Set category of kinsoku-bol and kinsoku-eol for
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
57 ch)
ef12c80a8a1e Set category of kinsoku-bol and kinsoku-eol for
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
58 (while (< idx len)
ef12c80a8a1e Set category of kinsoku-bol and kinsoku-eol for
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
59 (setq ch (make-char 'latin-jisx0201 (aref str1 idx))
ef12c80a8a1e Set category of kinsoku-bol and kinsoku-eol for
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
60 str2 (concat str2 (char-to-string ch))
ef12c80a8a1e Set category of kinsoku-bol and kinsoku-eol for
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
61 idx (1+ idx)))
ef12c80a8a1e Set category of kinsoku-bol and kinsoku-eol for
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
62 str2)
ef12c80a8a1e Set category of kinsoku-bol and kinsoku-eol for
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
63 ;; Katakana JISX0201
ef12c80a8a1e Set category of kinsoku-bol and kinsoku-eol for
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
64 "(I!#'()*+,-./0^_(B"
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
65 ;; Japanese JISX0208
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
66 "$B!"!#!$!%!&!'!(!)!*!+!,!-!.!/!0!1!2!3!4!5!6!7!8!9!:!;!<!=!>(B\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
67 $B!?!@!A!B!C!D!E!G!I!K!M!O!Q!S!U!W!Y![!k!l!m!n(B\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
68 $B$!$#$%$'$)$C$c$e$g$n%!%#%%%'%)%C%c%e%g%n%u%v(B"
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
69 ;; Chinese GB2312
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
70 "$A!"!##.#,!$!%!&!'!(!)!*!+!,!-!/!1#)!3!5!7!9!;!=(B\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
71 $A!?#;#:#?#!!@!A!B!C!c!d!e!f#/#\#"#_#~#|(e(B"
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
72 ;; Chinese BIG5
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
73 "$(0!"!#!$!%!&!'!(!)!*!+!,!-!.!/!0!1!2(B\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
74 $(0!3!4!5!6!7!8!9!:!;!<!=!?!A!C!E!G!I!K(B\
23431
9aad69351f7b Add coding tag.
Kenichi Handa <handa@m17n.org>
parents: 23196
diff changeset
75 $(0!M!O!Q!S!U!W!Y![!]!_!a!c!e!g!i!k!q(B\
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
76 $(0"#"$"%"&"'"(")"*"+","2"3"4"j"k"l"x%7(B"))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
77 (len (length kinsoku-bol))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
78 (idx 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
79 ch)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
80 (while (< idx len)
20843
b60871b4710f Use aref instead of sref.
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
81 (setq ch (aref kinsoku-bol idx)
b60871b4710f Use aref instead of sref.
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
82 idx (1+ idx))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
83 (modify-category-entry ch ?>)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
84
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
85 ;; Setting character category `<' for characters which should not be
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
86 ;; placed at end of line.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
87 (let* ((kinsoku-eol
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
88 (concat
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
89 ;; ASCII
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
90 "({[`"
17759
ef12c80a8a1e Set category of kinsoku-bol and kinsoku-eol for
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
91 ;; Latin JISX0201
ef12c80a8a1e Set category of kinsoku-bol and kinsoku-eol for
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
92 ;; See the comment above.
ef12c80a8a1e Set category of kinsoku-bol and kinsoku-eol for
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
93 (let* ((str1 "({[`")
ef12c80a8a1e Set category of kinsoku-bol and kinsoku-eol for
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
94 (len (length str1))
ef12c80a8a1e Set category of kinsoku-bol and kinsoku-eol for
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
95 (idx 0)
ef12c80a8a1e Set category of kinsoku-bol and kinsoku-eol for
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
96 (str2 "")
ef12c80a8a1e Set category of kinsoku-bol and kinsoku-eol for
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
97 ch)
ef12c80a8a1e Set category of kinsoku-bol and kinsoku-eol for
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
98 (while (< idx len)
ef12c80a8a1e Set category of kinsoku-bol and kinsoku-eol for
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
99 (setq ch (make-char 'latin-jisx0201 (aref str1 idx))
ef12c80a8a1e Set category of kinsoku-bol and kinsoku-eol for
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
100 str2 (concat str2 (char-to-string ch))
ef12c80a8a1e Set category of kinsoku-bol and kinsoku-eol for
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
101 idx (1+ idx)))
ef12c80a8a1e Set category of kinsoku-bol and kinsoku-eol for
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
102 str2)
ef12c80a8a1e Set category of kinsoku-bol and kinsoku-eol for
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
103 ;; JISX0201 Katakana
ef12c80a8a1e Set category of kinsoku-bol and kinsoku-eol for
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
104 "(I"(B"
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
105 ;; Japanese JISX0208
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
106 "$B!F!H!J!L!N!P!R!T!V!X!Z!k!l!m!n!w!x(B\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
107 $A!.!0#"#(!2!4!6!8!:!<!>!c!d!e#@!f!l(B"
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
108 ;; Chinese GB2312
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
109 "$A(E(F(G(H(I(J(K(L(M(N(O(P(Q(R(S(T(U(V(W(X(Y(h(B\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
110 $(0!>!@!B!D!F!H!J!L!N!P!R!T!V!X!Z!\!^!`!b(B"
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
111 ;; Chinese BIG5
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
112 "$(0!d!f!h!j!k!q!p"i"j"k"n"x$u$v$w$x$y$z${(B\
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
113 $(0$|$}$~%!%"%#%$%%%&%'%(%)%*%+%:(B"))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
114 (len (length kinsoku-eol))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
115 (idx 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
116 ch)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
117 (while (< idx len)
20843
b60871b4710f Use aref instead of sref.
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
118 (setq ch (aref kinsoku-eol idx)
b60871b4710f Use aref instead of sref.
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
119 idx (1+ idx))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
120 (modify-category-entry ch ?<)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
121
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
122 ;; Try to resolve `kinsoku' restriction by making the current line longer.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
123 (defun kinsoku-longer ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
124 (let ((pos-and-column (save-excursion
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
125 (forward-char 1)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
126 (while (aref (char-category-set (following-char)) ?>)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
127 (forward-char 1))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
128 (cons (point) (current-column)))))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
129 (if (or (<= kinsoku-limit 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
130 (< (cdr pos-and-column) (+ (current-fill-column) kinsoku-limit)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
131 (goto-char (car pos-and-column)))))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
132
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
133 ;; Try to resolve `kinsoku' restriction by making the current line shorter.
17759
ef12c80a8a1e Set category of kinsoku-bol and kinsoku-eol for
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
134 ;; The line can't be broken before the buffer position LINEBEG.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
135 (defun kinsoku-shorter (linebeg)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
136 (let ((pos (save-excursion
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
137 (forward-char -1)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
138 (while (and (< linebeg (point))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
139 (or (aref (char-category-set (preceding-char)) ?<)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
140 (aref (char-category-set (following-char)) ?>)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
141 (forward-char -1))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
142 (point))))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
143 (if (< linebeg pos)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
144 (goto-char pos))))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
145
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
146 ;;;###autoload
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
147 (defun kinsoku (linebeg)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
148 "Go to a line breaking position near point by doing `kinsoku' processing.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
149 LINEBEG is a buffer position we can't break a line before.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
150
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
151 `Kinsoku' processing is to prohibit specific characters to be placed
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
152 at beginning of line or at end of line. Characters not to be placed
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
153 at beginning and end of line have character category `>' and `<'
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
154 respectively. This restriction is dissolved by making a line longer or
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
155 shorter.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
156
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
157 `Kinsoku' is a Japanese word which originally means ordering to stay
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
158 in one place, and is used for the text processing described above in
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
159 the context of text formatting."
23492
dc49b662b956 (kinsoku): Check the variable enable-kinsoku.
Kenichi Handa <handa@m17n.org>
parents: 23431
diff changeset
160 (if enable-kinsoku
dc49b662b956 (kinsoku): Check the variable enable-kinsoku.
Kenichi Handa <handa@m17n.org>
parents: 23431
diff changeset
161 (if (or (and
dc49b662b956 (kinsoku): Check the variable enable-kinsoku.
Kenichi Handa <handa@m17n.org>
parents: 23431
diff changeset
162 ;; The character after point can't be placed at beginning
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 38414
diff changeset
163 ;; of line.
23492
dc49b662b956 (kinsoku): Check the variable enable-kinsoku.
Kenichi Handa <handa@m17n.org>
parents: 23431
diff changeset
164 (aref (char-category-set (following-char)) ?>)
dc49b662b956 (kinsoku): Check the variable enable-kinsoku.
Kenichi Handa <handa@m17n.org>
parents: 23431
diff changeset
165 ;; We at first try to dissolve this situation by making a
dc49b662b956 (kinsoku): Check the variable enable-kinsoku.
Kenichi Handa <handa@m17n.org>
parents: 23431
diff changeset
166 ;; line longer. If it fails, then try making a line
dc49b662b956 (kinsoku): Check the variable enable-kinsoku.
Kenichi Handa <handa@m17n.org>
parents: 23431
diff changeset
167 ;; shorter.
dc49b662b956 (kinsoku): Check the variable enable-kinsoku.
Kenichi Handa <handa@m17n.org>
parents: 23431
diff changeset
168 (not (kinsoku-longer)))
dc49b662b956 (kinsoku): Check the variable enable-kinsoku.
Kenichi Handa <handa@m17n.org>
parents: 23431
diff changeset
169 ;; The character before point can't be placed at end of line.
dc49b662b956 (kinsoku): Check the variable enable-kinsoku.
Kenichi Handa <handa@m17n.org>
parents: 23431
diff changeset
170 (aref (char-category-set (preceding-char)) ?<))
dc49b662b956 (kinsoku): Check the variable enable-kinsoku.
Kenichi Handa <handa@m17n.org>
parents: 23431
diff changeset
171 (kinsoku-shorter linebeg))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
172
38414
67b464da13ec Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 23492
diff changeset
173 ;;; kinsoku.el ends here