From 5a6926e5e85e10bb6787e9722bfc44feefe76049 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 24 Aug 1999 07:22:38 +0000 Subject: [PATCH] 1999-08-24 Taiji Can * poem-nemacs.el: Use `char-width' instead of `char-columns'. --- poem-nemacs.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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))) -- 1.7.10.4