freebsd-ports/textproc/coco/files/patch-md

diff -arcN ../mule-2.3.org/etc/FAQ-Mule.jp ./etc/FAQ-Mule.jp
*** ../mule-2.3.org/etc/FAQ-Mule.jp Fri Jul 21 20:40:06 1995
--- ./etc/FAQ-Mule.jp Wed Aug 21 11:33:22 1996
***************
*** 1867,1872 ****
--- 1867,1874 ----
 
$B$H=q$/J}K!$b$"$j$^$9!#
 
+ ($BCm5- : FreeBSD$B$G$O!"B>$H6%9g$9$k$?$a%]!<%HHV9f$O3086$B$K$7$F$"$j$^$9!#)
+
Emacs lisp $B%W%m%0%i%_%s%0
=========================
 
diff -arcN ../mule-2.3.org/lisp/eggrc-sj3 ./lisp/eggrc-sj3
*** ../mule-2.3.org/lisp/eggrc-sj3 Fri Oct 21 13:18:21 1994
--- ./lisp/eggrc-sj3 Wed Aug 21 13:05:24 1996
***************
*** 3,11 ****
;;; Version 1.0
;;; Copyright 1990 Kiyoji Ishii
;;;
 
! (set-default-sys-dic-directory "/usr/sony/dict/sj3")
! (set-default-usr-dic-directory "/usr/sony/dict/sj3/user/$USER")
 
;;;
;;; System Dictionary
--- 3,17 ----
;;; Version 1.0
;;; Copyright 1990 Kiyoji Ishii
;;;
+ ;;;
+ ;;; Change dictionary paths.
+ ;;; Patched by Hidekazu Kuroki(hidekazu@cs.titech.ac.jp) 1996/8/10
+ ;;; Remove $USER variable. Use (user-login-name).
+ ;;; Patched by Hidekazu Kuroki(hidekazu@cs.titech.ac.jp) 1996/8/20
+ ;;;
 
! (set-default-sys-dic-directory "/usr/local/lib/sj3/dict")
! (set-default-usr-dic-directory (concat "/usr/local/lib/sj3/dict/user/" (user-login-name)))
 
;;;
;;; System Dictionary
diff -arcN ../mule-2.3.org/lisp/sj3-egg.el ./lisp/sj3-egg.el
*** ../mule-2.3.org/lisp/sj3-egg.el Fri Feb 17 17:23:31 1995
--- ./lisp/sj3-egg.el Wed Aug 21 13:32:36 1996
***************
*** 294,301 ****
;;;
;;; Entry functions for egg-startup-file
;;;
 
! (defvar *default-sys-dic-directory* "/usr/sony/dict/sj3")
 
(defun set-default-sys-dic-directory (pathname)
"$B%7%9%F%`<-=q$NI8=`directory PATHNAME$B$r;XDj$9$k!#
--- 294,307 ----
;;;
;;; Entry functions for egg-startup-file
;;;
+ ;;;
+ ;;; Change dictionary paths.
+ ;;; Patched by Hidekazu Kuroki(hidekazu@cs.titech.ac.jp) 1996/8/10
+ ;;; Remove $USER variable. Use (user-login-name).
+ ;;; Patched by Hidekazu Kuroki(hidekazu@cs.titech.ac.jp) 1996/8/20
+ ;;;
 
! (defvar *default-sys-dic-directory* "/usr/local/lib/sj3/dict")
 
(defun set-default-sys-dic-directory (pathname)
"$B%7%9%F%`<-=q$NI8=`directory PATHNAME$B$r;XDj$9$k!#
***************
*** 310,316 ****
(format "System Default directory(%s) $B$,$"$j$^$;$s!#" pathname))
(setq *default-sys-dic-directory* (file-name-as-directory pathname)))))
 
! (defvar *default-usr-dic-directory* "/usr/sony/dict/sj3/user/$USER")
 
(defun set-default-usr-dic-directory (pathname)
"$BMxMQ<T<-=q$NI8=`directory PATHNAME$B$r;XDj$9$k!#
--- 316,322 ----
(format "System Default directory(%s) $B$,$"$j$^$;$s!#" pathname))
(setq *default-sys-dic-directory* (file-name-as-directory pathname)))))
 
! (defvar *default-usr-dic-directory* (concat "/usr/local/lib/sj3/dict/user/" (user-login-name)))
 
(defun set-default-usr-dic-directory (pathname)
"$BMxMQ<T<-=q$NI8=`directory PATHNAME$B$r;XDj$9$k!#