From: yamaoka <yamaoka>
Date: Fri, 27 Aug 1999 11:47:04 +0000 (+0000)
Subject: (char-before, char-after): Optimize byte code for them before lpath.el is
X-Git-Tag: t-gnus-6_13_0-15~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b436d4ee9bea6bf408b58df9223e27bf3aedf2f6;p=elisp%2Fgnus.git-

(char-before, char-after): Optimize byte code for them before lpath.el is
loaded.  Because lpath.el requires `poe' via `path-util'.  [cf. <tm-ja:5051>]
---

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index e4d9d85..66eb7d1 100644
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -58,7 +58,6 @@
   (error (message "Error in \"~/.lpath.el\" file: %s" err)))
 
 (push "." load-path)
-(load "./lpath.el" nil t)
 
 (condition-case nil
     (char-after)
@@ -80,6 +79,10 @@
 	 '(char-before (point))
        form))))
 
+;; `char-after' and `char-before' must be well-behaved before lpath.el
+;; is loaded.  Because it requires `poe' via `path-util'.
+(load "./lpath.el" nil t)
+
 (unless (fboundp 'byte-compile-file-form-custom-declare-variable)
   ;; Bind defcustom'ed variables.
   (put 'custom-declare-variable 'byte-hunk-handler