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

diff --git a/poem-ltn1.el b/poem-ltn1.el
index 19bb3e0..d71329d 100644
--- a/poem-ltn1.el
+++ b/poem-ltn1.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:
 
@@ -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