(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 (file)
--- 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