diff options
author | cvs2svn <cvs2svn@FreeBSD.org> | 2000-06-18 10:00:08 +0000 |
---|---|---|
committer | cvs2svn <cvs2svn@FreeBSD.org> | 2000-06-18 10:00:08 +0000 |
commit | e497906508084a5501f27a53a8ec0f23aa446e5b (patch) | |
tree | 152d32d807e92b14ac8ade604a4d650b637b1e93 /japanese/diclookup-emacs20/files/setup-diclookup.sh | |
parent | A new index, with 3,403 ports, which is a nice number, being 41 times (diff) |
This commit was manufactured by cvs2svn to create tag 'RELEASE_3_5_0'.release/3.5.0
Diffstat (limited to 'japanese/diclookup-emacs20/files/setup-diclookup.sh')
-rw-r--r-- | japanese/diclookup-emacs20/files/setup-diclookup.sh | 61 |
1 files changed, 0 insertions, 61 deletions
diff --git a/japanese/diclookup-emacs20/files/setup-diclookup.sh b/japanese/diclookup-emacs20/files/setup-diclookup.sh deleted file mode 100644 index ecde9f684544..000000000000 --- a/japanese/diclookup-emacs20/files/setup-diclookup.sh +++ /dev/null @@ -1,61 +0,0 @@ -#!/bin/sh -/usr/bin/dialog --title "ja-diclookup setup" --clear \ - --yesno "\n\ -You have to install appropreate startup code for diclookup-mule. \n\ -This setup script automatically it to: \n\ -PREFIX_DIR/share/mule/19.34/site-lisp/site-start.el. \n\n\ -Are you sure?" -1 -1 -RETVAL=$? -# RETVAL=0 for yes, 1 for no, 255 for ESC. - -if [ "X${RETVAL}" = "X0" ] ; then # answer is `Yes'. hack diclookup-mule. - -# Hack PREFIX_DIR/share/mule/19.34/site-lisp/site-start.el -rm -f /tmp/hack-site-start.el -echo "(defun hack-site-start ()" >> /tmp/hack-site-start.el -echo " (interactive)" >> /tmp/hack-site-start.el -echo " (message \"Updating site-start.el. \")" >> /tmp/hack-site-start.el -echo " (let* ((args command-line-args-left)" >> /tmp/hack-site-start.el -echo " (fname (expand-file-name (nth 0 args)))" >> /tmp/hack-site-start.el -echo " (dir (nth 1 args)))" >> /tmp/hack-site-start.el -echo " (setq command-line-args-left (cdr (cdr command-line-args-left)))" >> /tmp/hack-site-start.el -echo " (set-buffer (get-buffer-create \" *x*\"))" >> /tmp/hack-site-start.el -echo " (erase-buffer)" >> /tmp/hack-site-start.el -echo " (if (file-exists-p fname)" >> /tmp/hack-site-start.el -echo " (insert-file-contents fname))" >> /tmp/hack-site-start.el -echo " (goto-char (point-min))" >> /tmp/hack-site-start.el -echo " (if (search-forward \";;; diclookup-mule: Online dictionary\" nil t)" >> /tmp/hack-site-start.el -echo " (message \"No changes made.\")" >> /tmp/hack-site-start.el -echo " (goto-char (point-max))" >> /tmp/hack-site-start.el -echo " (insert \"\n;;; diclookup-mule: Online dictionary\n\")" >> /tmp/hack-site-start.el -echo " (insert \"(autoload 'online-dictionary \\\"diclookup-mule\\\" \")" >> /tmp/hack-site-start.el -echo " (insert \"\\\"Online dictionary.\\\" t nil)\n\")" >> /tmp/hack-site-start.el -echo " (insert \"(autoload 'od:lookup-pattern-edit \\\"diclookup-mule\\\" \")" >> /tmp/hack-site-start.el -echo " (insert \"\\\"Look up a word.\\\" t nil)\n\")" >> /tmp/hack-site-start.el -echo " (insert \"(setq od-chujiten-flag t) ; diclookup-mule\n\")" >> /tmp/hack-site-start.el -echo " (insert \"(setq od-dictfile-list '(\\\"od-chujiten\\\" \\\"od-kojien\\\" \\\"od-readers\\\" \\\"od-crown\\\")) \")" >> /tmp/hack-site-start.el -echo " (insert \"; diclookup-mule\n\")" >> /tmp/hack-site-start.el -echo " (insert \"(setq dserver-server-list '(\\\"localhost\\\")) ; diclookup-mule\n\")" >> /tmp/hack-site-start.el -echo " (insert \"(setq od-frame-geometry \\\"+0-0\\\" od-hide-frame \")" >> /tmp/hack-site-start.el -echo " (insert \"'make-invisible) ; diclookup-mule\n\")" >> /tmp/hack-site-start.el -echo " (insert \"(add-hook 'od-really-quit-hook 'od-delete-frame) \")" >> /tmp/hack-site-start.el -echo " (insert \"; diclookup-mule\n\")" >> /tmp/hack-site-start.el -echo " (insert \"(define-key-after menu-bar-file-menu [dictionary] \")" >> /tmp/hack-site-start.el -echo " (insert \"; diclookup-mule\n\")" >> /tmp/hack-site-start.el -echo " (insert \" '(\\\"Online Dictionary\\\" . online-dictionary) 'calendar) \")" >> /tmp/hack-site-start.el -echo " (insert \"; diclookup-mule\n\")" >> /tmp/hack-site-start.el -echo " (write-file fname))))" >> /tmp/hack-site-start.el - -mule -batch -q -l /tmp/hack-site-start.el -f hack-site-start \ - PREFIX_DIR/share/mule/19.34/site-lisp/site-start.el ; -rm -f /tmp/hack-site-start.el - -/usr/bin/dialog --title "ja-diclookup setup" --clear \ - --msgbox "\n\ -original file is saved in PREFIX_DIR/share/mule/19.34/site-lisp/site-start.el.bak" -1 -1 - -else -/usr/bin/dialog --title "ja-diclookup setup" --clear \ - --msgbox "\n\ -For setup, documents under PREFIX_DIR/lib/dserver will be helpful." -1 -1 -fi |