X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=poem-ltn1.el;h=0b04b7231f05bea4343ff6f2849691bda058d671;hb=6e972cf6c7ba473c4a83d9caaaa25e2aa31e9c7c;hp=19bb3e0bf5c8c5b10e306b1c690c1856b886bda1;hpb=6004c129ac48f430fd9f0573ea77da95828bd76b;p=elisp%2Fapel.git

diff --git a/poem-ltn1.el b/poem-ltn1.el
index 19bb3e0..0b04b72 100644
--- a/poem-ltn1.el
+++ b/poem-ltn1.el
@@ -131,7 +131,9 @@ Optional non-nil arg START-COLUMN specifies the starting column.
 \[emu-latin1.el; MULE 2.3 emulating function]"
   (or start-column
       (setq start-column 0))
-  (substring str start-column width))
+  (if (> (length str) width)
+      (substring str start-column width)
+    str))
 
 (defalias 'looking-at-as-unibyte 'looking-at)
 
@@ -146,6 +148,7 @@ Optional non-nil arg START-COLUMN specifies the starting column.
 ;;; @ end
 ;;;
 
-(provide 'poem-ltn1)
+(require 'product)
+(product-provide (provide 'poem-ltn1) (require 'apel-ver))
 
 ;;; poem-ltn1.el ends here