modified.

[elisp/apel.git] / poem-nemacs.el

diff --git a/poem-nemacs.el b/poem-nemacs.el
index ae7cd56..8af6364 100644 (file)
--- a/poem-nemacs.el
+++ b/poem-nemacs.el
@@ -19,8 +19,8 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 ;;; Code:
 
@@ -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