;;; -*-Emacs-Lisp-*-

;; SKK-MK: installer for SKK.
;; Copyright (C) 1999 Mikio Nakajima <minakaji@osaka.email.ne.jp>

;; Author: Mikio Nakajima <minakaji@osaka.email.ne.jp>
;; Maintainer: Mikio Nakajima <minakaji@osaka.email.ne.jp>
;; Version: $Id: SKK-MK,v 1.31.2.1.2.14 1999/12/30 11:26:55 czkmt Exp $
;; Last Modified: $Date: 1999/12/30 11:26:55 $

;; Commentary
;;
;; Those values of variables below are default configurations.
;; If you would like to change some of those, you should edit SKK-CFG.
;;
;;              DO NOT EDIT THIS FILE DIRECTLY!
;;
;; Please note that all variables specified in the command line 
;; overwrite ones defined in SKK-MK and SKK-CFG.
;;
;; Variable sections are all three parts.  GENERIC VARIABLE section,
;; NON-PACKAGE INSTALL RELATED VARIABLE section, and PACKAGE INSTALL
;; RELATED VARIABLE section.
;;
;; You can confirm target directories without an actual installation
;; by M-x SKK-MK-what-where or M-x SKK-MK-what-where-package after
;; load this program.

;;; Code:
;; tinyinstall.el is independent of APEL.
(require 'tinyinstall (expand-file-name "./tinyinstall"))

;;;; User variables to control SKK-MK.
(defvar SKK-MK-cleanup-trouble-makers nil
  "*Non-nil means clean up already installed SKK package configration files.
If symbol `backup' makes backup files named `xxxx.BAK'.

Deleted files are `auto-autoloads.el', `custom-load.el', `skk-autoloads.el',
`skk-vars.el' which exist in `lisp/skk' under `package-locations', or
if `package-locations' does not exist `load-path' of which directories name
end with `skk'." )

(defvar SKK-MK-debugging nil "*Non-nil means making verbose output.")

;;;; Load configuration file.
;; load user custom file if exists.
(load (expand-file-name "./SKK-CFG") t nil t)

;;;; load-path related.
;; `install-prefix' is defined in tinyinstall.el.
;; Maybe it is `/usr/local', if you use UNIX.
(defvar EMU_PREFIX
  (or (getenv "EMU_PREFIX")
      (if (or (featurep 'xemacs)
	      (and (fboundp 'set-buffer-multibyte)
		   (subrp (symbol-function 'set-buffer-multibyte))))
	  "emu"
	"")))
(defvar PREFIX (or (getenv "PREFIX") install-prefix))
(defvar LISPDIR
  (let ((dir (expand-file-name
	      (or (getenv "LISPDIR")
		  (cond ((memq system-type '(ms-dos windows-nt))
			 (expand-file-name "site-lisp" PREFIX))
			(t
			 (install-detect-elisp-directory PREFIX)))))))
    (if (file-exists-p dir)
	(progn
	  ;; default-load-path takes effect for detecting directory.
	  (setq default-load-path (tinyinstall-add-load-path dir default-load-path))
	  dir ))))
(defvar VERSION_SPECIFIC_LISPDIR
  (let ((dir (expand-file-name
	      (or (getenv "VERSION_SPECIFIC_LISPDIR")
		  (cond ((eq system-type 'windows-nt)
			 (expand-file-name "site-lisp" PREFIX))
			((eq system-type 'ms-dos)
			 (expand-file-name "site-lis" PREFIX))
			(t
			 (install-detect-elisp-directory PREFIX nil 'version-specific)))))))
    (if (file-exists-p dir) dir)))
(defvar APEL_SPECIFIC_LISPDIR (let ((dir (getenv "APEL_SPECIFIC_LISPDIR")))
				(and dir (file-exists-p dir) (expand-file-name dir))))

;; in case of defining these variables in SKK-CFG.
(and APEL_SPECIFIC_LISPDIR
     (setq APEL_SPECIFIC_LISPDIR (expand-file-name APEL_SPECIFIC_LISPDIR)))
(and LISPDIR (setq LISPDIR (expand-file-name LISPDIR)))
(and VERSION_SPECIFIC_LISPDIR
     (setq VERSION_SPECIFIC_LISPDIR (expand-file-name VERSION_SPECIFIC_LISPDIR)))

;; searching APEL installed directory...
(if (and LISPDIR (file-exists-p LISPDIR))
    (setq load-path (tinyinstall-add-load-path LISPDIR load-path)))

(let* ((emutmp)
       (apeldir
	(cond ((and APEL_SPECIFIC_LISPDIR (file-exists-p APEL_SPECIFIC_LISPDIR)
		    APEL_SPECIFIC_LISPDIR ))
	      ((file-exists-p (expand-file-name "apel" LISPDIR))
	       (expand-file-name "apel" LISPDIR))
	      ;; Unix
	      ((file-exists-p (expand-file-name "../../site-lisp/apel" data-directory))
	       (expand-file-name "../../site-lisp/apel" data-directory))
	      ;; Mule for Windows.
	      ((and
		;; Following two lines identifies Mule for Windows, but are there 
		;; any other Emacsen that have the same directory structure?
		;;(featurep 'mule) (eq system-type 'windows-nt)
		;;(= emacs-major-version 19)
		(file-exists-p (expand-file-name "../site-lisp/apel" exec-directory)))
	       (expand-file-name "../site-lisp/apel" exec-directory))))
       (emudir
	(cond ((and
		VERSION_SPECIFIC_LISPDIR
		(setq emutmp (expand-file-name EMU_PREFIX VERSION_SPECIFIC_LISPDIR))
		(cond ((and (file-exists-p emutmp)
			    (not (string= emutmp VERSION_SPECIFIC_LISPDIR))
			    (file-exists-p (expand-file-name "emu.el" emutmp))))
		      ((and
			(string= EMU_PREFIX "")
			;; try again with not standard emu directory.
			(setq emutmp (expand-file-name "emu" VERSION_SPECIFIC_LISPDIR))
			(not (string= emutmp VERSION_SPECIFIC_LISPDIR))
			(file-exists-p emutmp)
			(file-exists-p (expand-file-name "emu.el" emutmp))))))
	       emutmp)
	      ((and
		apeldir 
		(setq emutmp (expand-file-name (concat "../" EMU_PREFIX) apeldir))
		(cond ((and (file-exists-p emutmp)
			    (not (string= emutmp VERSION_SPECIFIC_LISPDIR))
			    (file-exists-p (expand-file-name "emu.el" emutmp))))
		      ((and
			(string= EMU_PREFIX "")
			;; try again with not standard emu directory.
			(setq emutmp (expand-file-name "../emu" apeldir))
			(not (string= emutmp VERSION_SPECIFIC_LISPDIR))
			(file-exists-p emutmp)
			(file-exists-p (expand-file-name "emu.el" emutmp))))))
	       emutmp))))
  (and emudir 
       (setq load-path (tinyinstall-add-load-path emudir load-path)))
  (and apeldir
       (setq load-path (tinyinstall-add-load-path apeldir load-path))))
  
(setq load-path (cons (expand-file-name ".") load-path))

(and VERSION_SPECIFIC_LISPDIR
     (file-exists-p VERSION_SPECIFIC_LISPDIR)
     (setq load-path (tinyinstall-add-load-path
		      (expand-file-name VERSION_SPECIFIC_LISPDIR) load-path )))

(if SKK-MK-debugging
    (progn
      (princ (format "APEL_SPECIFIC_LISPDIR=%s\n" APEL_SPECIFIC_LISPDIR))
      (princ (format "load-path=%s\n" load-path))))

;; After seaching APEL installed dirctory, require full set install.el.
(require 'poe)
(require 'install)

;; constants.
(defconst SKK-MK-running-xemacs (string-match "XEmacs" emacs-version))

(defconst SKK-MK-texinfo-coding-system
  (if (or SKK-MK-running-xemacs 
	  (and (boundp 'mule-version)
	       (or (string< "4.0" mule-version) (string< "3.0" mule-version))))
      'junet
    *junet*))

;; GENERIC VARIABLE.
(defvar DOCDIR (or (getenv "DOCDIR") "./doc"))
(defvar ETCDIR (or (getenv "ETCDIR") "./etc"))
(defvar SKK_INFOS
  (or (getenv "SKK_INFOS")
      '("skk.info" "skk.info-1" "skk.info-2" "skk.info-3" "skk.info-4"
	"skk.info-5" "skk.info-6")))
(defvar SKK_MODULES
  ;; $B$3$s$J$b$s%3%^%s%I%i%$%s$G;XDj$9$k?M$$$J$$$h$M!)(B
  (or (getenv "SKK_MODULES")
      (let ((list '(queue-m skk-macs skk-vars
			    skk skk-auto skk-autoloads skk-comp 
			    skk-develop skk-gadget
			    skk-isearch skk-kakasi skk-kcode
			    skk-leim skk-look skk-num skk-obsolete
			    skk-cursor skk-server skk-tut
			    ;; EXPERIMENTAL
			    skk-abbrev skk-dcomp skk-hankaku-mode
			    skk-jisx0201 skk-rdbms skk-study
			    skk-tutcdef skk-tutcode
			    ;; VIP 3.7
			    ;; vip
			    )))
	;; $B%P%$%H%3%s%Q%$%k;~$K(B X window $B$,(B initialize $B$5$l$F$$$J$$$H$$$&%(%i!<(B
	;; $B$K$J$k(B (;_;)$B!#(B
	;; yatex $B$_$?$$$K(B Window $B$r3+$$$F%P%$%H%3%s%Q%$%k$9$k$h$&$K$b$G$-$k$1$I!"(B
	;; no-window $B$N(B make $B%3%^%s%I$rJL$K:n$i$J$-$c$J$i$J$$$7!"LLE]$@$J(B...$B!#(B
        ;;(if (if SKK-MK-running-xemacs
        ;;        (eq (device-class (selected-device)) 'color)
        ;;      (x-display-color-p))
        ;;    (setq list (nconc list (list 'skk-cursor))))
	(and SKK-MK-running-xemacs
	     (member "skk-leim" preloaded-file-list)
	     (setq list (nconc list (list 'skk-xm20_4))))
	(condition-case nil
	    ;; you might have to add lookup installed directory to `load-path'.
	    (and (let ((lookup-byte-compile t)) (require 'lookup))
                 (setq list (nconc list (list 'skk-lookup))))
	  (error))
	(condition-case nil
	    (and (require 'viper) (setq list (nconc list (list 'skk-viper))))
	  (error))
	(and (or (featurep 'gdbm) (featurep 'dbm) (featurep 'berkdb)
		 (featurep 'berkeley-db))
	     (setq list (nconc list (list 'skk-dbm))))
	list)))
(defvar SKK_PREFIX (or (getenv "SKK_PREFIX") "skk"))
(defvar SKK_TEXIS (or (getenv "SKK_TEXIS") '("skk.texi")))
(defvar SKK_TUTORIALS (or (getenv "SKK_TUTORIALS") '("SKK.tut" "SKK.tut.E")))

;; NON-PACKAGE INSTALL RELATED VARIABLE.
(defvar SKK_DATADIR
  (or (getenv "SKK_DATADIR")
      (expand-file-name SKK_PREFIX (expand-file-name "share" PREFIX))))
(defvar SKK_INFODIR
  (or (getenv "SKK_INFODIR")(expand-file-name "info" PREFIX)))
(defvar SKK_LISPDIR
  (or (getenv "SKK_LISPDIR") (expand-file-name SKK_PREFIX LISPDIR)))

;; PACKAGE INSTALL RELATED VARIABLE.
(defvar PACKAGEDIR
  (or (getenv "PACKAGEDIR")
      (if (boundp 'early-packages)
	  (let ((dirs
		 (append (if early-package-load-path early-packages)
			 (if late-package-load-path late-packages)
			 (if last-package-load-path last-packages)))
		dir)
	    (while (not (file-exists-p (setq dir (car dirs))))
	      (setq dirs (cdr dirs)))
	    dir))))

(defvar PACKAGE_INFODIR
  (or (getenv "PACKAGE_INFODIR") (expand-file-name "info" PACKAGEDIR)))

(defvar SKK_PACKAGE_DATADIR
  (or (getenv "SKK_PACKAGE_DATADIR")
      (expand-file-name SKK_PREFIX (expand-file-name "etc" PACKAGEDIR))))

(defvar SKK_PACKAGE_LISPDIR
  (or (getenv "SKK_PACKAGE_LISPDIR")
      (expand-file-name SKK_PREFIX (expand-file-name "lisp" PACKAGEDIR))))

(if SKK-MK-debugging (princ (format "SKK_MODULES=%s\n" SKK_MODULES)))

(defconst SKK_PACKAGE_NOT_USE '(skk-autoloads))
(defconst SKK_DAREDEVIL_NOT_USE '(skk-vip skk-foreword stack-m))

;; This code is for skk-jisx0201.el.
(if (fboundp 'make-translation-table)
    (setq standard-translation-table-for-decode (make-translation-table nil)))

;;; -name "etc" PACKAGEDIR))))

(defvar SKK_PACKAGE_LISPDIR
  (or (getenv "SKK_PACKAGE_LISPDIR")
      (expand-file-name SKK_PREFIX (expand-file-name "lisp" PACKAGEDIR))))

(if SKK-MK-debugging (princ (format "SKK_MODULES=%s\n" SKK_MODULES)))

(defconst SKK_PACKAGE_NOT_USE '(skk-autoloads))
(defconst SKK_DAREDEVIL_NOT_USE '(skk-vip skk-foreword stack-m))

;; This code is for skk-jisx0201.el.
(if (fboundp 'make-translation-table)
    (setq standard-translation-table-for-decode (make-translation-table nil)))

;;; -name "etc" PACKAGEDIR))))

(defvar SKK_PACKAGE_LISPDIR
  (or (getenv "SKK_PACKAGE_LISPDIR")
      (expand-file-name SKK_PREFIX (expand-file-name "lisp" PACKAGEDIR))))

(if SKK-MK-debugging (princ (format "SKK_MODULES=%s\n" SKK_MODULES)))

(defconst SKK_PACKAGE_NOT_USE '(skk-autoloads))
(defconst SKK_DAREDEVIL_NOT_USE '(skk-vip skk-foreword stack-m))

;; This code is for skk-jisx0201.el.
(if (fboundp 'make-translation-table)
    (setq standard-translation-table-for-decode (make-translation-table nil)))

;;; -name "etc" PACKAGEDIR))))

(defvar SKK_PACKAGE_LISPDIR
  (or (getenv "SKK_PACKAGE_LISPDIR")
      (expand-file-name SKK_PREFIX (expand-file-name "lisp" PACKAGEDIR))))

(if SKK-MK-debugging (princ (format "SKK_MODULES=%s\n" SKK_MODULES)))

(defconst SKK_PACKAGE_NOT_USE '(skk-autoloads))
(defconst SKK_DAREDEVIL_NOT_USE '(skk-vip skk-foreword stack-m))

;; This code is for skk-jisx0201.el.
(if (fboundp 'make-translation-table)
    (setq standard-translation-table-for-decode (make-translation-table nil)))

;;; -name "etc" PACKAGEDIR))))

(defvar SKK_PACKAGE_LISPDIR
  (or (getenv "SKK_PACKAGE_LISPDIR")
      (expand-file-name SKK_PREFIX (expand-file-name "lisp" PACKAGEDIR))))

(if SKK-MK-debugging (princ (format "SKK_MODULES=%s\n" SKK_MODULES)))

(defconst SKK_PACKAGE_NOT_USE '(skk-autoloads))
(defconst SKK_DAREDEVIL_NOT_USE '(skk-vip skk-foreword stack-m))

;; This code is for skk-jisx0201.el.
(if (fboundp 'make-translation-table)
    (setq standard-translation-table-for-decode (make-translation-table nil)))

;;; -name "etc" PACKAGEDIR))))

(defvar SKK_PACKAGE_LISPDIR
  (or (getenv "SKK_PACKAGE_LISPDIR")
      (expand-file-name SKK_PREFIX (expand-file-name "lisp" PACKAGEDIR))))

(if SKK-MK-debugging (princ (format "SKK_MODULES=%s\n" SKK_MODULES)))

(defconst SKK_PACKAGE_NOT_USE '(skk-autoloads))
(defconst SKK_DAREDEVIL_NOT_USE '(skk-vip skk-foreword stack-m))

;; This code is for skk-jisx0201.el.
(if (fboundp 'make-translation-table)
    (setq standard-translation-table-for-decode (make-translation-table nil)))

;;; -name "etc" PACKAGEDIR))))

(defvar SKK_PACKAGE_LISPDIR
  (or (getenv "SKK_PACKAGE_LISPDIR")
      (expand-file-name SKK_PREFIX (expand-file-name "lisp" PACKAGEDIR))))

(if SKK-MK-debugging (princ (format "SKK_MODULES=%s\n" SKK_MODULES)))

(defconst SKK_PACKAGE_NOT_USE '(skk-autoloads))
(defconst SKK_DAREDEVIL_NOT_USE '(skk-vip skk-foreword stack-m))

;; This code is for skk-jisx0201.el.
(if (fboundp 'make-translation-table)
    (setq standard-translation-table-for-decode (make-translation-table nil)))

;;; -name "etc" PACKAGEDIR))))

(defvar SKK_PACKAGE_LISPDIR
  (or (getenv "SKK_PACKAGE_LISPDIR")
      (expand-file-name SKK_PREFIX (expand-file-name "lisp" PACKAGEDIR))))

(if SKK-MK-debugging (princ (format "SKK_MODULES=%s\n" SKK_MODULES)))

(defconst SKK_PACKAGE_NOT_USE '(skk-autoloads))
(defconst SKK_DAREDEVIL_NOT_USE '(skk-vip skk-foreword stack-m))

;; This code is for skk-jisx0201.el.
(if (fboundp 'make-translation-table)
    (setq standard-translation-table-for-decode (make-translation-table nil)))

;;; -name "etc" PACKAGEDIR))))

(defvar SKK_PACKAGE_LISPDIR
  (or (getenv "SKK_PACKAGE_LISPDIR")
      (expand-file-name SKK_PREFIX (expand-file-name "lisp" PACKAGEDIR))))

(if SKK-MK-debugging (princ (format "SKK_MODULES=%s\n" SKK_MODULES)))

(defconst SKK_PACKAGE_NOT_USE '(skk-autoloads))
(defconst SKK_DAREDEVIL_NOT_USE '(skk-vip skk-foreword stack-m))

;; This code is for skk-jisx0201.el.
(if (fboundp 'make-translation-table)
    (setq standard-translation-table-for-decode (make-translation-table nil)))

;;; -name "etc" PACKAGEDIR))))

(defvar SKK_PACKAGE_LISPDIR
  (or (getenv "SKK_PACKAGE_LISPDIR")
      (expand-file-name SKK_PREFIX (expand-file-name "lisp" PACKAGEDIR))))

(if SKK-MK-debugging (princ (format "SKK_MODULES=%s\n" SKK_MODULES)))

(defconst SKK_PACKAGE_NOT_USE '(skk-autoloads))
(defconst SKK_DAREDEVIL_NOT_USE '(skk-vip skk-foreword stack-m))

;; This code is for skk-jisx0201.el.
(if (fboundp 'make-translation-table)
    (setq standard-translation-table-for-decode (make-translation-table nil)))

;;; -name "etc" PACKAGEDIR))))

(defvar SKK_PACKAGE_LISPDIR
  (or (getenv "SKK_PACKAGE_LISPDIR")
      (expand-file-name SKK_PREFIX (expand-file-name "lisp" PACKAGEDIR))))

(if SKK-MK-debugging (princ (format "SKK_MODULES=%s\n" SKK_MODULES)))

(defconst SKK_PACKAGE_NOT_USE '(skk-autoloads))
(defconst SKK_DAREDEVIL_NOT_USE '(skk-vip skk-foreword stack-m))

;; This code is for skk-jisx0201.el.
(if (fboundp 'make-translation-table)
    (setq standard-translation-table-for-decode (make-translation-table nil)))

;;; -name "etc" PACKAGEDIR))))

(defvar SKK_PACKAGE_LISPDIR
  (or (getenv "SKK_PACKAGE_LISPDIR")
      (expand-file-name SKK_PREFIX (expand-file-name "lisp" PACKAGEDIR))))

(if SKK-MK-debugging (princ (format "SKK_MODULES=%s\n" SKK_MODULES)))

(defconst SKK_PACKAGE_NOT_USE '(skk-autoloads))
(defconst SKK_DAREDEVIL_NOT_USE '(skk-vip skk-foreword stack-m))

;; This code is for skk-jisx0201.el.
(if (fboundp 'make-translation-table)
    (setq standard-translation-table-for-decode (make-translation-table nil)))

;;; -name "etc" PACKAGEDIR))))

(defvar SKK_PACKAGE_LISPDIR
  (or (getenv "SKK_PACKAGE_LISPDIR")
      (expand-file-name SKK_PREFIX (expand-file-name "lisp" PACKAGEDIR))))

(if SKK-MK-debugging (princ (format "SKK_MODULES=%s\n" SKK_MODULES)))

(defconst SKK_PACKAGE_NOT_USE '(skk-autoloads))
(defconst SKK_DAREDEVIL_NOT_USE '(skk-vip skk-foreword stack-m))

;; This code is for skk-jisx0201.el.
(if (fboundp 'make-translation-table)
    (setq standard-translation-table-for-decode (make-translation-table nil)))

;;; -name "etc" PACKAGEDIR))))

(defvar SKK_PACKAGE_LISPDIR
  (or (getenv "SKK_PACKAGE_LISPDIR")
      (expand-file-name SKK_PREFIX (expand-file-name "lisp" PACKAGEDIR))))

(if SKK-MK-debugging (princ (format "SKK_MODULES=%s\n" SKK_MODULES)))

(defconst SKK_PACKAGE_NOT_USE '(skk-autoloads))
(defconst SKK_DAREDEVIL_NOT_USE '(skk-vip skk-foreword stack-m))

;; This code is for skk-jisx0201.el.
(if (fboundp 'make-translation-table)
    (setq standard-translation-table-for-decode (make-translation-table nil)))

;;; -name "etc" PACKAGEDIR))))

(defvar SKK_PACKAGE_LISPDIR
  (or (getenv "SKK_PACKAGE_LISPDIR")
      (expand-file-name SKK_PREFIX (expand-file-name "lisp" PACKAGEDIR))))

(if SKK-MK-debugging (princ (format "SKK_MODULES=%s\n" SKK_MODULES)))

(defconst SKK_PACKAGE_NOT_USE '(skk-autoloads))
(defconst SKK_DAREDEVIL_NOT_USE '(skk-vip skk-foreword stack-m))

;; This code is for skk-jisx0201.el.
(if (fboundp 'make-translation-table)
    (setq standard-translation-table-for-decode (make-translation-table nil)))

;;; -name "etc" PACKAGEDIR))))

(defvar SKK_PACKAGE_LISPDIR
  (or (getenv "SKK_PACKAGE_LISPDIR")
      (expand-file-name SKK_PREFIX (expand-file-name "lisp" PACKAGEDIR))))

(if SKK-MK-debugging (princ (format "SKK_MODULES=%s\n" SKK_MODULES)))

(defconst SKK_PACKAGE_NOT_USE '(skk-autoloads))
(defconst SKK_DAREDEVIL_NOT_USE '(skk-vip skk-foreword stack-m))

;; This code is for skk-jisx0201.el.
(if (fboundp 'make-translation-table)
    (setq standard-translation-table-for-decode (make-translation-table nil)))

;;; -name "etc" PACKAGEDIR))))

(defvar SKK_PACKAGE_LISPDIR
  (or (getenv "SKK_PACKAGE_LISPDIR")
      (expand-file-name SKK_PREFIX (expand-file-name "lisp" PACKAGEDIR))))

(if SKK-MK-debugging (princ (format "SKK_MODULES=%s\n" SKK_MODULES)))

(defconst SKK_PACKAGE_NOT_USE '(skk-autoloads))
(defconst SKK_DAREDEVIL_NOT_USE '(skk-vip skk-foreword stack-m))

;; This code is for skk-jisx0201.el.
(if (fboundp 'make-translation-table)
    (setq standard-translation-table-for-decode (make-translation-table nil)))

;;; -name "etc" PACKAGEDIR))))

(defvar SKK_PACKAGE_LISPDIR
  (or (getenv "SKK_PACKAGE_LISPDIR")
      (expand-file-name SKK_PREFIX (expand-file-name "lisp" PACKAGEDIR))))

(if SKK-MK-debugging (princ (format "SKK_MODULES=%s\n" SKK_MODULES)))

(defconst SKK_PACKAGE_NOT_USE '(skk-autoloads))
(defconst SKK_DAREDEVIL_NOT_USE '(skk-vip skk-foreword stack-m))

;; This code is for skk-jisx0201.el.
(if (fboundp 'make-translation-table)
    (setq standard-translation-table-for-decode (make-translation-table nil)))

;;; -name "etc" PACKAGEDIR))))

(defvar SKK_PACKAGE_LISPDIR
  (or (getenv "SKK_PACKAGE_LISPDIR")
      (expand-file-name SKK_PREFIX (expand-file-name "lisp" PACKAGEDIR))))

(if SKK-MK-debugging (princ (format "SKK_MODULES=%s\n" SKK_MODULES)))

(defconst SKK_PACKAGE_NOT_USE '(skk-autoloads))
(defconst SKK_DAREDEVIL_NOT_USE '(skk-vip skk-foreword stack-m))

;; This code is for skk-jisx0201.el.
(if (fboundp 'make-translation-table)
    (setq standard-translation-table-for-decode (make-translation-table nil)))

;;; -name "etc" PACKAGEDIR))))

(defvar SKK_PACKAGE_LISPDIR
  (or (getenv "SKK_PACKAGE_LISPDIR")
      (expand-file-name SKK_PREFIX (expand-file-name "lisp" PACKAGEDIR))))

(if SKK-MK-debugging (princ (format "SKK_MODULES=%s\n" SKK_MODULES)))

(defconst SKK_PACKAGE_NOT_USE '(skk-autoloads))
(defconst SKK_DAREDEVIL_NOT_USE '(skk-vip skk-foreword stack-m))

;; This code is for skk-jisx0201.el.
(if (fboundp 'make-translation-table)
    (setq standard-translation-table-for-decode (make-translation-table nil)))

;;; -name "etc" PACKAGEDIR))))

(defvar SKK_PACKAGE_LISPDIR
  (or (getenv "SKK_PACKAGE_LISPDIR")
      (expand-file-name SKK_PREFIX (expand-file-name "lisp" PACKAGEDIR))))

(if SKK-MK-debugging (princ (format "SKK_MODULES=%s\n" SKK_MODULES)))

(defconst SKK_PACKAGE_NOT_USE '(skk-autoloads))
(defconst SKK_DAREDEVIL_NOT_USE '(skk-vip skk-foreword stack-m))

;; This code is for skk-jisx0201.el.
(if (fboundp 'make-translation-table)
    (setq standard-translation-table-for-decode (make-translation-table nil)))

;;; -name "etc" PACKAGEDIR))))

(defvar SKK_PACKAGE_LISPDIR
  (or (getenv "SKK_PACKAGE_LISPDIR")
      (expand-file-name SKK_PREFIX (expand-file-name "lisp" PACKAGEDIR))))

(if SKK-MK-debugging (princ (format "SKK_MODULES=%s\n" SKK_MODULES)))

(defconst SKK_PACKAGE_NOT_USE '(skk-autoloads))
(defconst SKK_DAREDEVIL_NOT_USE '(skk-vip skk-foreword stack-m))

;; This code is for skk-jisx0201.el.
(if (fboundp 'make-translation-table)
    (setq standard-translation-table-for-decode (make-translation-table nil)))

;;; -name "etc" PACKAGEDIR))))

(defvar SKK_PACKAGE_LISPDIR
  (or (getenv "SKK_PACKAGE_LISPDIR")
 