* liece-make.el (make-liece-sample-files): Abolish.

[elisp/liece.git] / lisp / liece-make.el

diff --git a/lisp/liece-make.el b/lisp/liece-make.el
index 3030daa..b96100c 100644 (file)
--- a/lisp/liece-make.el
+++ b/lisp/liece-make.el
@@ -197,35 +197,6 @@
             (file-name-sans-extension generated-autoload-file)))
     (save-buffer)))
 
-;; Generate documents and startup samples.
-(defun make-liece-info-files ()
-  (let ((file (car command-line-args-left)))
-    (when (and file (file-exists-p file))
-      (if (fboundp 'set-language-environment)
-         (set-language-environment "Japanese"))
-      (find-file file)
-      (texinfo-every-node-update)
-      (texinfo-format-buffer)
-      (save-buffer))))
-
-(defun make-liece-sample-files ()
-  (let* ((file (pop command-line-args-left))
-         (dcc-path (pop command-line-args-left))
-         (icon-directory (pop command-line-args-left))
-         (catalogue-directory (pop command-line-args-left))
-         (styles-directory (pop command-line-args-left)))
-    (when (and file (file-exists-p file))
-      (find-file file)
-      (goto-char (point-min))
-      (replace-string "@DCCPATH@" dcc-path)
-      (goto-char (point-min))
-      (replace-string "@ICONDIR@" icon-directory)
-      (goto-char (point-min))
-      (replace-string "@CATALOGDIR@" catalogue-directory))
-      (goto-char (point-min))
-      (replace-string "@STYLEDIR@" styles-directory)
-      (save-buffer)))
-
 (provide 'liece-make)
 
 ;;; liece-make.el ends here