patch for: semi-1.13.7 & flim-1.13.2

[SAKA Toshihide (=?ISO-2022-JP?B?GyRCOmQbKEIgGyRCSVI9KBsoQg==?=)]

坂といいます。はじめまして。

SEMI (FLIM) 付属の Makefile に mime-ui-{en,ja}.info
(mime-{en,ja}.info) を作るエントリが無かったので、Wanderlust の WL-MK 
および Makefile を参考に SEMI (FLIM) 用のエントリを作ってみました。

P.S.
.texi と .info の関連付けは alist を使うべきなのでしょうが、Emacs Lisp 
に疎いので、そこまでできませんでした(汗)。

WL-MK で wl-cs-local としてあった個所は 'iso-2022-jp などとしてしまい
ました(汗)。もしお気に召されないようでしたら、適当に書き換えてくださっ
てかまいません。

-------------- next part --------------
diff -uaNr semi-1.13.7.orig/Makefile semi-1.13.7/Makefile
--- semi-1.13.7.orig/Makefile	Sat Oct 16 17:18:06 1999
+++ semi-1.13.7/Makefile	Tue Jan 11 20:56:09 2000
@@ -67,3 +67,6 @@
 release:
 	-$(RM) $(ARC_DIR)/$(PACKAGE)-$(VERSION).tar.gz
 	mv /tmp/$(PACKAGE)-$(VERSION).tar.gz $(ARC_DIR)
+
+info:
+	$(EMACS) $(FLAGS) -f semi-texinfo-format $(INFODIR)
diff -uaNr semi-1.13.7.orig/SEMI-MK semi-1.13.7/SEMI-MK
--- semi-1.13.7.orig/SEMI-MK	Mon Jul 26 16:17:32 1999
+++ semi-1.13.7/SEMI-MK	Tue Jan 11 20:57:21 2000
@@ -4,6 +4,10 @@
 
 ;;; Code:
 
+(defvar DOCDIR "./")
+(defconst SEMI-INFO-LIST '("mime-ui-en.info" "mime-ui-ja.info"))
+(defconst SEMI-TEXI-LIST '("mime-ui-en.texi" "mime-ui-ja.texi"))
+
 (defun config-semi ()
   (let (prefix exec-prefix lisp-dir version-specific-lisp-dir)
     (and (setq prefix (car command-line-args-left))
@@ -91,5 +95,43 @@
 					   (expand-file-name "lisp"
 							     PACKAGEDIR)))
   )
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; Texinfo stuff
+
+(defun semi-texinfo-format ()
+;  (unless INFODIR
+;    (setq INFODIR (wl-detect-info-directory)))
+;  (require 'wl-vars) ;; for 'wl-cs-local
+  (let (SEMI-INFO SEMI-TEXI)
+    (while (and SEMI-INFO-LIST SEMI-TEXI-LIST)
+      (setq SEMI-INFO (car SEMI-INFO-LIST))
+      (setq SEMI-TEXI (car SEMI-TEXI-LIST))
+      (setq SEMI-INFO-LIST (cdr SEMI-INFO-LIST))
+      (setq SEMI-TEXI-LIST (cdr SEMI-TEXI-LIST))
+      (or (file-newer-than-file-p (expand-file-name SEMI-INFO DOCDIR)
+				  (expand-file-name SEMI-TEXI DOCDIR))
+	  (let (obuf beg)
+	    (find-file (expand-file-name SEMI-TEXI DOCDIR))
+	    (setq obuf (current-buffer))
+	    ;; texinfmt.el 2.37 or earlier can't format @direntry
+	    (require 'texinfmt)
+	    (unless (fboundp 'texinfo-format-direntry)
+	      (goto-char (point-min))
+	      (when (re-search-forward "^@direntry" nil t)
+		(replace-match "@ifinfo\nSTART-INFO-DIR-ENTRY"))
+	      (when (re-search-forward "^@end direntry" nil t)
+		(replace-match "END-INFO-DIR-ENTRY\n ＠ end ifinfo"))
+	      (set-buffer-modified-p nil))
+	    ;; We can't know file names if splitted.
+	    (texinfo-format-buffer t)
+	    ;; Emacs20.2's default is 'raw-text-unix.
+	    (and (fboundp 'set-buffer-file-coding-system)
+		 ;;	     (set-buffer-file-coding-system wl-cs-local))
+		 (set-buffer-file-coding-system 'iso-2022-jp))
+	    (save-buffer)
+	    (kill-buffer (current-buffer)) ;; info
+	    (kill-buffer obuf)) ;; texi
+	  ))))
 
 ;;; SEMI-MK ends here
-------------- next part --------------
diff -uaNr flim-1.13.2.orig/FLIM-MK flim-1.13.2/FLIM-MK
--- flim-1.13.2.orig/FLIM-MK	Sun Oct 18 17:03:26 1998
+++ flim-1.13.2/FLIM-MK	Tue Jan 11 20:44:45 2000
@@ -4,6 +4,12 @@
 
 ;;; Code:
 
+;;; Code
+
+(defvar DOCDIR "./")
+(defconst FLIM-INFO-LIST '("mime-en.info" "mime-ja.info"))
+(defconst FLIM-TEXI-LIST '("mime-en.texi" "mime-ja.texi"))
+
 (defun config-flim ()
   (let (prefix lisp-dir version-specific-lisp-dir)
     (and (setq prefix (car command-line-args-left))
@@ -75,5 +81,43 @@
 					   (expand-file-name "lisp"
 							     PACKAGEDIR)))
   )
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; Texinfo stuff
+
+(defun flim-texinfo-format ()
+;  (unless INFODIR
+;    (setq INFODIR (wl-detect-info-directory)))
+;  (require 'wl-vars) ;; for 'wl-cs-local
+  (let (FLIM-INFO FLIM-TEXI)
+    (while (and FLIM-INFO-LIST FLIM-TEXI-LIST)
+      (setq FLIM-INFO (car FLIM-INFO-LIST))
+      (setq FLIM-TEXI (car FLIM-TEXI-LIST))
+      (setq FLIM-INFO-LIST (cdr FLIM-INFO-LIST))
+      (setq FLIM-TEXI-LIST (cdr FLIM-TEXI-LIST))
+      (or (file-newer-than-file-p (expand-file-name FLIM-INFO DOCDIR)
+				  (expand-file-name FLIM-TEXI DOCDIR))
+	  (let (obuf beg)
+	    (find-file (expand-file-name FLIM-TEXI DOCDIR))
+	    (setq obuf (current-buffer))
+	    ;; texinfmt.el 2.37 or earlier can't format @direntry
+	    (require 'texinfmt)
+	    (unless (fboundp 'texinfo-format-direntry)
+	      (goto-char (point-min))
+	      (when (re-search-forward "^@direntry" nil t)
+		(replace-match "@ifinfo\nSTART-INFO-DIR-ENTRY"))
+	      (when (re-search-forward "^@end direntry" nil t)
+		(replace-match "END-INFO-DIR-ENTRY\n ＠ end ifinfo"))
+	      (set-buffer-modified-p nil))
+	    ;; We can't know file names if splitted.
+	    (texinfo-format-buffer t)
+	    ;; Emacs20.2's default is 'raw-text-unix.
+	    (and (fboundp 'set-buffer-file-coding-system)
+		 ;;	     (set-buffer-file-coding-system wl-cs-local))
+		 (set-buffer-file-coding-system 'iso-2022-jp))
+	    (save-buffer)
+	    (kill-buffer (current-buffer)) ;; info
+	    (kill-buffer obuf)) ;; texi
+	  ))))
 
 ;;; FLIM-MK ends here
diff -uaNr flim-1.13.2.orig/Makefile flim-1.13.2/Makefile
--- flim-1.13.2.orig/Makefile	Tue Aug 17 11:09:50 1999
+++ flim-1.13.2/Makefile	Tue Jan 11 20:41:57 2000
@@ -66,3 +66,6 @@
 	mv /tmp/$(PACKAGE)-$(VERSION).tar.gz $(ARC_DIR)
 	cd $(SEMI_ARC_DIR) ; \
 		ln -s ../../flim/flim-$(API)/$(PACKAGE)-$(VERSION).tar.gz .
+
+info:
+	$(EMACS) $(FLAGS) -f flim-texinfo-format $(INFODIR)
-------------- next part --------------
-- 
SAKA Toshihide mailto:saka ＠ yugen.org
Department of Architecture, the University of Tokyo