* WL-MK: Byte-optimize the function `char-after' for old Emacsen.

diff --git a/ChangeLog b/ChangeLog
index e8c215d..2312a04 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2001-08-29  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+       * WL-MK: Byte-optimize the function `char-after' for old Emacsen.
+
 2001-08-28  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * Makefile (check): New rule

diff --git a/WL-MK b/WL-MK
index 86117f2..fb20044 100644 (file)
--- a/WL-MK
+++ b/WL-MK
@@ -60,6 +60,7 @@
       (` (defvar (, symbol) (, value) (, doc))))))
 
 (load "bytecomp" nil t)
+
 (unless (fboundp 'byte-compile-file-form-custom-declare-variable)
   ;; Bind defcustom'ed variables.
   (put 'custom-declare-variable 'byte-hunk-handler
@@ -70,6 +71,16 @@
              (cons (nth 1 (nth 1 form)) byte-compile-bound-variables)))
     form))
 
+(condition-case nil
+    (char-after)
+  (wrong-number-of-arguments
+   ;; Optimize byte code for `char-after'.
+   (put 'char-after 'byte-optimizer 'byte-optimize-char-after)
+   (defun byte-optimize-char-after (form)
+     (if (null (cdr form))
+        '(char-after (point))
+       form))))
+
 (setq byte-compile-warnings '(free-vars unresolved callargs redefine))
 
 ;; v18, v19