Revision 1697,
1.5 KB
checked in by iwaim, 14 years ago
(diff) |
skk 11.6.0-2: add files
|
-
old
|
new
|
|
794 | 794 | (make-directory PACKAGE_LISPDIR t)) |
795 | 795 | (unless (file-exists-p PACKAGE_DATADIR) |
796 | 796 | (make-directory PACKAGE_DATADIR t)) |
797 | | (unless (file-exists-p PACKAGE_INFODIR) |
798 | | (make-directory PACKAGE_INFODIR t)) |
| 797 | ;; (unless (file-exists-p PACKAGE_INFODIR) |
| 798 | ;; (make-directory PACKAGE_INFODIR t)) |
799 | 799 | ;; delete already installed unnecessary files. |
800 | 800 | (setq SKK_MODULES (delq 'skk-autoloads |
801 | 801 | (append |
… |
… |
|
895 | 895 | ;; install skk-setup.el |
896 | 896 | (install-elisp-modules (list 'skk-setup) "." PACKAGE_LISPDIR) |
897 | 897 | ;; install infos. |
898 | | (SKK-MK-compile-info) |
899 | | (when SKK_INFO |
900 | | (let ((files (list SKK_INFO)) |
901 | | (i 1) |
902 | | file) |
903 | | (while (file-exists-p |
904 | | (expand-file-name |
905 | | (setq file (format "%s-%d" SKK_INFO i)) |
906 | | DOCDIR)) |
907 | | (setq files (cons file files)) |
908 | | (setq i (1+ i))) |
909 | | (install-files (nreverse files) DOCDIR |
910 | | PACKAGE_INFODIR nil t nil))) |
| 898 | ;; (SKK-MK-compile-info) |
| 899 | ;; (when SKK_INFO |
| 900 | ;; (let ((files (list SKK_INFO)) |
| 901 | ;; (i 1) |
| 902 | ;; file) |
| 903 | ;; (while (file-exists-p |
| 904 | ;; (expand-file-name |
| 905 | ;; (setq file (format "%s-%d" SKK_INFO i)) |
| 906 | ;; DOCDIR)) |
| 907 | ;; (setq files (cons file files)) |
| 908 | ;; (setq i (1+ i))) |
| 909 | ;; (install-files (nreverse files) DOCDIR |
| 910 | ;; PACKAGE_INFODIR nil t nil))) |
911 | 911 | ;; install tutorials. |
912 | 912 | (install-files SKK_TUTORIALS ETCDIR |
913 | 913 | PACKAGE_DATADIR nil t nil) |
Note: See
TracBrowser
for help on using the repository browser.