X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=poem-nemacs.el;h=7016426bd3bfbf2fef9f28fcfa873922d8c0a7bd;hb=51de0324ae3a94823362155352e43f8ad56dfda4;hp=ae7cd567e0149d0017095861ad5d59383045e66a;hpb=780da8821f01835d9fde28ef4b34af60e4239df3;p=elisp%2Fapel.git

diff --git a/poem-nemacs.el b/poem-nemacs.el
index ae7cd56..7016426 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)))
@@ -213,6 +213,7 @@ Optional non-nil arg START-COLUMN specifies the starting column.
 ;;; @ end
 ;;;
 
-(provide 'poem-nemacs)
+(require 'product)
+(product-provide (provide 'poem-nemacs) (require 'apel-ver))
 
 ;;; poem-nemacs.el ends here