From 0c678288a5683cd026ea55296ed6d8e726cb124c Mon Sep 17 00:00:00 2001 From: kaoru Date: Fri, 14 Jul 2000 09:06:37 +0000 Subject: [PATCH] * utils/ptexinfmt.el (documentlanguage, documentencoding): Fixed probrem. --- ChangeLog | 1 + WL-MK | 4 ++-- utils/ptexinfmt.el | 4 ++-- 3 files changed, 5 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 3151d07..1d1fa5a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -2,6 +2,7 @@ * WL-MK (wl-texinfo-format-file): require ptexinfmt. * utils/ptexinfmt.el: provide feature. + (documentlanguage, documentencoding): Fixed probrem. 2000-07-13 TAKAHASHI Kaoru diff --git a/WL-MK b/WL-MK index 69f899e..61b1db5 100644 --- a/WL-MK +++ b/WL-MK @@ -245,10 +245,10 @@ (or (file-newer-than-file-p (expand-file-name infofile DOCDIR) (expand-file-name texifile DOCDIR)) (let (obuf beg) - (find-file (expand-file-name texifile DOCDIR)) - (setq obuf (current-buffer)) ;; Support old texinfmt.el (require 'ptexinfmt (expand-file-name "ptexinfmt.el" UTILSDIR)) + (find-file (expand-file-name texifile DOCDIR)) + (setq obuf (current-buffer)) ;; We can't know file names if splitted. (texinfo-format-buffer t) ;; Emacs20.2's default is 'raw-text-unix. diff --git a/utils/ptexinfmt.el b/utils/ptexinfmt.el index 127c8b5..a465914 100644 --- a/utils/ptexinfmt.el +++ b/utils/ptexinfmt.el @@ -205,8 +205,8 @@ otherwise, insert URL-TITLE followed by URL in parentheses." (texinfo-discard-command)))) ;;; misc. -(put 'documentlanguage 'texinfo-format 'texinfo-discard-line) -(put 'documentencoding 'texinfo-format 'texinfo-discard-line) +(put 'documentlanguage 'texinfo-format 'texinfo-discard-line-with-args) +(put 'documentencoding 'texinfo-format 'texinfo-discard-line-with-args) (put 'smallbook 'texinfo-format 'texinfo-discard-line) (put 'overfullrule 'texinfo-format 'texinfo-discard-line) (put 'smallbreak 'texinfo-format 'texinfo-discard-line) -- 1.7.10.4