From b69bbf23478df1675f4de0bc4e5b51470395c4c6 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 28 Apr 2003 10:35:21 +0000 Subject: [PATCH 1/1] * infohack.el: Load dgnushack.el and ptexinfmt.el first. --- ChangeLog | 4 ++++ texi/infohack.el | 12 +++++------- 2 files changed, 9 insertions(+), 7 deletions(-) diff --git a/ChangeLog b/ChangeLog index 791c9fe..0ed76bf 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,9 @@ 2003-04-28 Katsumi Yamaoka + * texi/infohack.el: Load dgnushack.el and ptexinfmt.el first. + +2003-04-28 Katsumi Yamaoka + * lisp/gnus-vers.el: T-gnus 6.15.19 revision 00. 2003-04-24 Katsumi Yamaoka diff --git a/texi/infohack.el b/texi/infohack.el index d355e54..3c173ba 100644 --- a/texi/infohack.el +++ b/texi/infohack.el @@ -25,7 +25,11 @@ ;;; Code: -(require 'texinfmt) +(let ((default-directory (expand-file-name "../lisp/")) + (features (cons 'w3-forms (copy-sequence features)))) + ;; Adjust `load-path' for APEL. + (load-file "dgnushack.el")) +(load-file (expand-file-name "ptexinfmt.el" "./")) (defun infohack-remove-unsupported () (goto-char (point-min)) @@ -86,12 +90,6 @@ Both characters must have the same length of multi-byte form." (setq command-line-args-left nil)) -(let ((default-directory (expand-file-name "../lisp/")) - (features (cons 'w3-forms (copy-sequence features)))) - ;; Adjust `load-path' for APEL. - (load-file "dgnushack.el")) -(load-file (expand-file-name "ptexinfmt.el" "./")) - (defun infohack-texi-format (file &optional addsuffix) (let ((auto-save-default nil) (find-file-run-dired nil) -- 1.7.10.4