🚀 go-pugleaf

--Multipart_Mon_Aug_04_20:25:45_1997-1
Content-Type: text/plain; charset=ISO-2022-JP

In article <28yb6ztnw2.fsf@ganews.ga.sony.co.jp>
    yamaoka@ga.sony.co.jp (Katsumi Yamaoka) writes:
> 
> Get it from <URL:ftp://ftp.jqu.com/pub/yamaoka/x-face-1.2.6.tar.gz>
>  or <URL:http://www.jqu.com/fsl.htm>.
> 
> X-Face $B$O%a!<%k$d%K%e!<%95-;v$N%X%C%@$K>.$5$J%S%C%H%^%C%W%$%a!<%8$r(B
> $B%(%s%3!<%I$7$?%U%#!<%k%I$rIU2C$9$k$b$N$G$9!#(B

Mule for Win32$B$GF0$+$9$?$a$N%Q%C%A$G$9!#(B

~/.emacs $B$K$O$H$j$"$($:0J2<$r=q$$$F$/$@$5$$!#(B
(setq x-face-viewer-program "start")

DOS$BAk$+$i!"(Bstart foo.xbm $B$G(B(default$B$N%"%W%j%1!<%7%g%s$O(BWeb$B%V(B
$B%i%&%6(B)$BI=<($G$-$k;v$rMxMQ$7$F$$$^$9!#(B

Mule$B$+$i8F$S=P$7$?(BWeb$B%V%i%&%6$r=*N;$7$J$$$H(BMule$B$,=*N;$G$-$J(B
$B$$$H$$$&;v$O$"$j$^$9$,!"$=$l$O$7$g$&$,$J$$$N$G$7$g$&!#(B

$B$G$O$*3Z$7$_$/$@$5$$!#(B
--
\def\KOSE{{{\rm K}\kern-.1em\raise-.4ex\hbox{$\heartsuit $}\kern-.05em
    {\rm S}\kern-.05em\lower.4ex\hbox{\rm E}}}
\KOSE @yk.netlaputa.or.jp

--Multipart_Mon_Aug_04_20:25:45_1997-1
Content-Type: text/plain; charset=US-ASCII

diff -c "x-face-1.2.6/x-face.el.orig" "x-face-1.2.6/x-face.el"
*** x-face-1.2.6/x-face.el.orig	Tue Jul 22 17:45:09 1997
--- x-face-1.2.6/x-face.el	Thu Jul 31 22:50:33 1997
***************
*** 86,99 ****
  (defvar x-face-view-quadruple t
    "*If non-nil, view quadruple size normally. [x-face.el]")
  
! (defvar x-face-view-asynchronous (eq system-type 'OS/2)
    "*Non-nil enables viewer asynchronous. [x-face.el]")
  
  (defvar x-face-view-asynchronous-function
    (cond ((eq system-type 'OS/2)
  	 'x-face-view-asynchronous-function-for-OS/2)
! ;	((eq system-type 'windoze-97)
! ;	 'x-face-view-asynchronous-function-for-win97)
  	(t
  	 'x-face-view-asynchronous-function-for-some))
    "*Definitions of asynchronous view function. [x-face.el]")
--- 86,100 ----
  (defvar x-face-view-quadruple t
    "*If non-nil, view quadruple size normally. [x-face.el]")
  
! (defvar x-face-view-asynchronous 
!   (or (eq system-type 'OS/2) (eq system-type 'windows-nt))
    "*Non-nil enables viewer asynchronous. [x-face.el]")
  
  (defvar x-face-view-asynchronous-function
    (cond ((eq system-type 'OS/2)
  	 'x-face-view-asynchronous-function-for-OS/2)
! 	((eq system-type 'windows-nt)
! 	 'x-face-view-asynchronous-function-for-win95)
  	(t
  	 'x-face-view-asynchronous-function-for-some))
    "*Definitions of asynchronous view function. [x-face.el]")
***************
*** 1086,1091 ****
--- 1087,1107 ----
  		 " "))
    (sleep-for 2)
    (delete-file file))
+ 
+ ;;; Asynchronous view functions. (add by kose)
+ (defun x-face-view-asynchronous-function-for-win95 (file)
+   "Asynchronous view function for Windoze. [x-face.el]"
+   (let ((buffer (get-buffer-create "*X-Face-process*")))
+     (save-excursion
+       (set-buffer buffer)
+       (message "Executing..: %s %s" x-face-viewer-program file)
+       (set-process-sentinel
+        (apply 'start-process x-face-viewer-program buffer 
+               x-face-viewer-program (list file))
+        nil))
+     (sleep-for 7) ;; wait for x-face-viewer-program
+     (delete-file file)
+     ))
  
  (defun x-face-view-asynchronous-function-for-some (file)
    "Asynchronous view function for some UN|X. [x-face.el]"

--Multipart_Mon_Aug_04_20:25:45_1997-1--