From 678bd6ae1f2c0e551ee3eff7a4c783eacb99c702 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 19 Feb 2001 11:21:05 +0000 Subject: [PATCH] Synch with Wanderlust. --- texi/ptexinfmt.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/texi/ptexinfmt.el b/texi/ptexinfmt.el index a577d38..e98956e 100644 --- a/texi/ptexinfmt.el +++ b/texi/ptexinfmt.el @@ -3,7 +3,7 @@ ;; Copyright (C) 1985, 1986, 1988, 1990, 1991, 1992, 1993, ;; 1994, 1995, 1996, 1997 Free Software Foundation, Inc. ;; Copyright (C) 1999 Yoshiki Hayashi -;; Copyright (C) 2000 TAKAHASHI Kaoru +;; Copyright (C) 2000, 2001 TAKAHASHI Kaoru ;; Author: TAKAHASHI Kaoru ;; Yoshiki Hayashi @@ -38,8 +38,6 @@ (require 'poe) (require 'broken) -(provide 'ptexinfmt) - ;;; Broken (defvar ptexinfmt-disable-broken-notice-flag t "If non-nil disable notice, when call `broken-facility'. @@ -487,7 +485,8 @@ otherwise, insert URL-TITLE followed by URL in parentheses." ;; @image{FILENAME, [WIDTH], [HEIGHT]} (put 'image 'texinfo-format 'texinfo-format-image) (defun-maybe texinfo-format-image () - (let ((args (texinfo-format-parse-args)) ; parse FILENAME? + ;; I don't know makeinfo parse FILENAME. + (let ((args (texinfo-format-parse-args)) filename) (when (null (nth 0 args)) (error "Invalid image command")) @@ -758,4 +757,6 @@ This command is executed when texinfmt sees @item inside @multitable." (texinfo-sort-region opoint (point)) (shell-command-on-region opoint (point) "sort -fd" 1)))) +(provide 'ptexinfmt) + ;;; ptexinfmt.el ends here -- 1.7.10.4