From: yamaoka <yamaoka>
Date: Tue, 14 May 2002 05:40:50 +0000 (+0000)
Subject: Partly synch with the latest XEmacs package.
X-Git-Tag: apel-10_3-1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0f88aab59bd9dc36135925c23823816992eafff8;p=elisp%2Fapel.git

Partly synch with the latest XEmacs package.

* pccl.el (ccl-usable): Make non-MULE XEmacs don't require `ccl'
 even if this file is mis-compiled for XEmacs with MULE.

* poem-ltn1.el (truncate-string): Act like the real `truncate-string':
 do not fail if the string is shorter than the max length.
---

diff --git a/ChangeLog b/ChangeLog
index 5b76d71..c1d867c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+2002-05-14  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* pccl.el (ccl-usable): Make non-MULE XEmacs don't require `ccl'
+	even if this file is mis-compiled for XEmacs with MULE.
+
+2002-03-23  Nix  <nix@esperi.demon.co.uk>
+
+	* poem-ltn1.el (truncate-string): Act like the real `truncate-string':
+	do not fail if the string is shorter than the max length.
+
 2002-04-30  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* poem-xm.el (string-to-char-list): Revive it again.
diff --git a/pccl.el b/pccl.el
index b8baba1..93892ae 100644
--- a/pccl.el
+++ b/pccl.el
@@ -34,19 +34,20 @@
          (>= emacs-major-version 19))))
 
 (unless-broken ccl-usable
-  (require 'ccl)
   (require 'advice)
 
   (if (featurep 'mule)
-      (if (featurep 'xemacs)
-          (if (>= emacs-major-version 21)
-              ;; for XEmacs 21 with mule
-              (require 'pccl-20))
-        (if (>= emacs-major-version 20)
-            ;; for Emacs 20
-            (require 'pccl-20)
-          ;; for Mule 2.*
-          (require 'pccl-om))))
+      (progn
+	(require 'ccl)
+	(if (featurep 'xemacs)
+            (if (>= emacs-major-version 21)
+                ;; for XEmacs 21 with mule
+                (require 'pccl-20))
+          (if (>= emacs-major-version 20)
+              ;; for Emacs 20
+              (require 'pccl-20)
+            ;; for Mule 2.*
+            (require 'pccl-om)))))
 
   (static-if (or (featurep 'xemacs) (< emacs-major-version 21))
     (defadvice define-ccl-program
diff --git a/poem-ltn1.el b/poem-ltn1.el
index 3735173..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)