Deprecated: The each() function is deprecated. This message will be suppressed on further calls in /home/zhenxiangba/zhenxiangba.com/public_html/phproxy-improved-master/index.php on line 456
;;; -*- Emacs-Lisp -*- ;;; 英和辞書閲覧 sdic-mode の設定 ;; Debian 用パッケージを使ってインストールした場合、(autoload 〜) は ;; /etc/emacs/site-start.d/50sdic で行っていますので、キーバインドの設 ;; 定 (global-set-key 〜) のみで十分です。 (autoload 'sdic-describe-word "sdic" "英単語の意味を調べる" t nil) (global-set-key "\C-cw" 'sdic-describe-word) (autoload 'sdic-describe-word-at-point "sdic" "カーソル位置の英単語の意味を調べる" t nil) ; (global-set-key "\C-cW" 'sdic-describe-word-at-point) ;; これは、動作と見掛けを調節するための設定です。 (setq sdic-window-height 10 sdic-disable-select-window t) ;; Debian 用パッケージを利用するか、Makefile を利用して辞書を同時にイ ;; ンストールした場合は、辞書に関する設定も完了済ですから、特別な設定 ;; は要りません。以下の設定では、個人的に検索する辞書を付け加えていま ;; す。研究室と自宅とで検索する辞書を変更しています。 (if (string-match "^\\(toba\\.\\|toba$\\)" (system-name)) (setq sdic-eiwa-dictionary-list '((sdicf-client "~/usr/dict/gene.sdic")) sdic-waei-dictionary-list '((sdicf-client "~/usr/dict/edict.sdic" (add-keys-to-headword t)))) (setq sdic-eiwa-dictionary-list '((sdicf-client "~/usr/dict/gene.sdic")) sdic-waei-dictionary-list '((sdicf-client "~/usr/dict/edict.sdic" (add-keys-to-headword t)) (sdicf-client "~/usr/dict/compdic.sdic" (add-keys-to-headword t)) (sdicf-client "~/usr/dict/geodic.sdic" (add-keys-to-headword t)) (sdicf-client "~/usr/dict/lifscdic.sdic" (add-keys-to-headword t)))))