X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=poem-ltn1.el;h=d71329d5facfd17424df82450eeba97212c40437;hb=f4baae0103bf6579576d1a0eaea8dee8ef1118c8;hp=3735173f0893909fcadd1c1e3a854020220b0bf7;hpb=8ea0cf57c248b6a4ba2f73288cc1b7cad582e171;p=elisp%2Fapel.git

diff --git a/poem-ltn1.el b/poem-ltn1.el
index 3735173..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)