[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/kinsoku.el
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/kinsoku.el |
Date: |
Fri, 29 Aug 2003 08:06:28 -0400 |
Index: emacs/lisp/international/kinsoku.el
diff -c emacs/lisp/international/kinsoku.el:1.10
emacs/lisp/international/kinsoku.el:1.11
*** emacs/lisp/international/kinsoku.el:1.10 Tue Feb 4 08:09:38 2003
--- emacs/lisp/international/kinsoku.el Fri Aug 29 08:06:24 2003
***************
*** 121,131 ****
;; 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)))))
(if (or (<= kinsoku-limit 0)
(< (cdr pos-and-column) (+ (current-fill-column) kinsoku-limit)))
(goto-char (car pos-and-column)))))
--- 121,137 ----
;; Try to resolve `kinsoku' restriction by making the current line longer.
(defun kinsoku-longer ()
! (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,143 ****
(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)) ?>)))
(forward-char -1))
(point))))
(if (< linebeg pos)
--- 141,154 ----
(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)) ?>)
! ;; protect non-kinsoku words
! (not (or (eq (preceding-char) ? )
! (aref (char-category-set (preceding-char))
! ?|)))))
(forward-char -1))
(point))))
(if (< linebeg pos)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/international/kinsoku.el,
Kenichi Handa <=