From: morioka Date: Tue, 24 Aug 1999 07:22:38 +0000 (+0000) Subject: 1999-08-24 Taiji Can X-Git-Tag: apel-9_21~3 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5a6926e5e85e10bb6787e9722bfc44feefe76049;p=elisp%2Fapel.git 1999-08-24 Taiji Can * poem-nemacs.el: Use `char-width' instead of `char-columns'. --- diff --git a/poem-nemacs.el b/poem-nemacs.el index ae7cd56..5bd8915 100644 --- a/poem-nemacs.el +++ b/poem-nemacs.el @@ -188,14 +188,14 @@ Optional non-nil arg START-COLUMN specifies the starting column. "" (while (< column start-column) (setq ch (aref str from) - column (+ column (char-columns ch)) + column (+ column (char-width ch)) from (+ from (char-bytes ch)))) (if (< width max-width) (progn (setq to from) (while (<= column width) (setq ch (aref str to) - column (+ column (char-columns ch)) + column (+ column (char-width ch)) to-prev to to (+ to (char-bytes ch)))) (setq to to-prev)))