From acafeff7025fa08c660ec6d2493a1a0d1a9804f7 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 29 Aug 2003 12:10:48 +0000 Subject: [PATCH] (kinsoku-longer, kinsoku-shorter): Do not choose a line break position in the middle of a non-kinsoku (e.g. latin) word, making it skip until either a space or a character with category "|". (kinsoku-longer): Test for end of buffer. --- lisp/ChangeLog | 8 ++++++++ lisp/international/kinsoku.el | 27 +++++++++++++++++++-------- 2 files changed, 27 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0ed8576d537..72d91ce023b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2003-08-29 Thierry Emery (tiny change) + + * kinsoku.el (kinsoku-longer, kinsoku-shorter): Do not choose a + line break position in the middle of a non-kinsoku (e.g. latin) + word, making it skip until either a space or a character with + category "|". + (kinsoku-longer): Test for end of buffer. + 2003-08-28 Eli Zaretskii * mail/rmail.el (rmail-convert-to-babyl-format): Detect diff --git a/lisp/international/kinsoku.el b/lisp/international/kinsoku.el index b551161a6f3..f90c6442c0e 100644 --- a/lisp/international/kinsoku.el +++ b/lisp/international/kinsoku.el @@ -121,11 +121,17 @@ The value 0 means there's no limitation.") ;; Try to resolve `kinsoku' restriction by making the current line longer. (defun kinsoku-longer () - (let ((pos-and-column (save-excursion - (forward-char 1) - (while (aref (char-category-set (following-char)) ?>) - (forward-char 1)) - (cons (point) (current-column))))) + (let ((pos-and-column + (save-excursion + (forward-char 1) + (while (and (not (eobp)) + (or (aref (char-category-set (following-char)) ?>) + ;; protect non-kinsoku words + (not (or (eq (preceding-char) ? ) + (aref (char-category-set (preceding-char)) + ?|))))) + (forward-char 1)) + (cons (point) (current-column))))) (if (or (<= kinsoku-limit 0) (< (cdr pos-and-column) (+ (current-fill-column) kinsoku-limit))) (goto-char (car pos-and-column))))) @@ -135,9 +141,14 @@ The value 0 means there's no limitation.") (defun kinsoku-shorter (linebeg) (let ((pos (save-excursion (forward-char -1) - (while (and (< linebeg (point)) - (or (aref (char-category-set (preceding-char)) ?<) - (aref (char-category-set (following-char)) ?>))) + (while (and + (< linebeg (point)) + (or (aref (char-category-set (preceding-char)) ?<) + (aref (char-category-set (following-char)) ?>) + ;; protect non-kinsoku words + (not (or (eq (preceding-char) ? ) + (aref (char-category-set (preceding-char)) + ?|))))) (forward-char -1)) (point)))) (if (< linebeg pos) -- 2.39.2