1 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
2 | ;; XEmacs ÍÑ ¥æ¡¼¥¶ÀßÄê¥Õ¥¡¥¤¥ë¤Î¥µ¥ó¥×¥ë |
---|
3 | ;; MATSUBAYASHI 'Shaolin' Kohji (shaolin@vinelinux.org) |
---|
4 | ;; modified by Jun Nishii (jun@vinelinux.org) |
---|
5 | ;; Time-stamp: <2002/12/05 02:08:32 irokawa> |
---|
6 | |
---|
7 | |
---|
8 | ;;; ½é´üÀßÄê¥Õ¥¡¥¤¥ë¤Î»ØÄê |
---|
9 | ;;; ¤³¤³¤Ç»ØÄꤷ¤¿¥Õ¥¡¥¤¥ë¤Ë¥ª¥×¥·¥ç¥óÀßÄêÅù¤¬½ñ¤¹þ¤Þ¤ì¤Þ¤¹ |
---|
10 | |
---|
11 | (setq user-init-file "~/.xemacs.el") |
---|
12 | (setq custom-file "~/.xemacs.el") |
---|
13 | |
---|
14 | |
---|
15 | ;;; ´Á»ú¥³¡¼¥É¤Î»ØÄê |
---|
16 | |
---|
17 | (set-default-coding-systems 'euc-jp) |
---|
18 | (set-buffer-file-coding-system 'euc-jp-unix) |
---|
19 | |
---|
20 | (if (eq (console-type) 'tty) |
---|
21 | (set-terminal-coding-system 'euc-jp)) |
---|
22 | |
---|
23 | ;;;²èÌ̤ο§(¥«¡¼¥½¥ë¡§°Å¤¤ÀÖ¿§)¡¢¥µ¥¤¥º(²£¡§80·å¡¢½Ä¡§40¹Ô) |
---|
24 | |
---|
25 | (setq default-frame-alist (append (list '(cursor-color . "purple") |
---|
26 | '(width . 80) |
---|
27 | '(height . 40)) |
---|
28 | default-frame-alist)) |
---|
29 | |
---|
30 | ;;; °ì¹Ô¤¬ 80 »ú°Ê¾å¤Ë¤Ê¤Ã¤¿»þ¤Ë¤Ï¼«Æ°²þ¹Ô¤¹¤ë |
---|
31 | ;(setq fill-column 80) |
---|
32 | ;(setq text-mode-hook 'turn-on-auto-fill) |
---|
33 | (setq default-major-mode 'text-mode) |
---|
34 | |
---|
35 | ;;; ¹Ô¿ôɽ¼¨ |
---|
36 | |
---|
37 | (custom-set-variables '(line-number-mode t)) |
---|
38 | |
---|
39 | ;;; gnuclient ¥µ¡¼¥Ð¤òµ¯Æ° |
---|
40 | (load "gnuserv") |
---|
41 | (gnuserv-start) |
---|
42 | |
---|
43 | ;;; gz¥Õ¥¡¥¤¥ë¤âÊÔ½¸¤Ç¤¤ë¤è¤¦¤Ë |
---|
44 | (auto-compression-mode t) |
---|
45 | |
---|
46 | ;; ´Ä¶ÊÑ¿ô EMACS_IME ¤òÄ´¤Ù¤ë¡£- ¸½ºß¤Î¤È¤³¤í¡¢canna ¤Þ¤¿¤Ï Canna ¤Ê¤é¡¢ |
---|
47 | ;; ¡Ö¤«¤ó¤Ê¡×¤ò»ÈÍѤ¹¤ë¡£¤½¤ì°Ê³°¤Î¾ì¹ç¤Ï Wnn ¤ò»ÈÍѤ¹¤ë¡£ |
---|
48 | |
---|
49 | (setq emacs-ime (getenv "EMACS_IME")) |
---|
50 | (if (null emacs-ime) |
---|
51 | (setq emacs-ime "wnn")) |
---|
52 | |
---|
53 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
54 | ;; Egg (Wnn ¥Õ¥í¥ó¥È¥¨¥ó¥É) ¤ÎÀßÄê |
---|
55 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
56 | |
---|
57 | ;; Wnn6/FreeWnn |
---|
58 | (if (or (equal emacs-ime "wnn") |
---|
59 | (equal emacs-ime "Wnn") |
---|
60 | (equal emacs-ime "wnn6") |
---|
61 | (equal emacs-ime "Wnn6")) |
---|
62 | (progn |
---|
63 | (load "egg") |
---|
64 | (global-set-key "\C-\\" 'toggle-input-method) |
---|
65 | |
---|
66 | (select-input-method "japanese-egg-wnn") |
---|
67 | (set-language-info "Japanese" 'input-method "japanese-egg-wnn") |
---|
68 | |
---|
69 | (setq egg-default-startup-file "eggrc-wnn") ; 95.6.1 by S.Tomura |
---|
70 | (garbage-collect) |
---|
71 | |
---|
72 | ;; jserver ¤Î¥ê¥¹¥È¤ò¼¡¤ÎÍͤˤ·¤Æ»ØÄê¤Ç¤¤Þ¤¹ |
---|
73 | ;;(setq jserver-list '("vanilla" "espresso")) |
---|
74 | (setq jserver-list (list (getenv "JSERVER") "localhost")) |
---|
75 | |
---|
76 | ;; "nn" ¤Ç¡Ö¤ó¡×¤òÆþÎÏ |
---|
77 | (setq enable-double-n-syntax t) |
---|
78 | |
---|
79 | ;; "." ¤Ç¡Ö¡¥¡×¡¢"," ¤Ç¡Ö¡¤¡×¤òÆþÎÏ¡£ |
---|
80 | (setq use-kuten-for-period nil) |
---|
81 | (setq use-touten-for-comma nil) |
---|
82 | |
---|
83 | ;; 1234567890%#%"' ¤ò¡ÖȾ³Ñ¡×¤ÇÆþÎÏ" |
---|
84 | (let ((its:*defrule-verbose* nil)) |
---|
85 | (its-define-mode "roma-kana") |
---|
86 | (dolist (symbol '("1" "2" "3" "4" "5" |
---|
87 | "6" "7" "8" "9" "0" |
---|
88 | "#" "%" "\"" "'" )) |
---|
89 | (its-defrule symbol symbol))) |
---|
90 | |
---|
91 | ;; ¤ª¤Þ¤± :-) |
---|
92 | ;;(set-egg-fence-mode-format "¢ö" "¢ö" 'highlight) |
---|
93 | ) |
---|
94 | ) |
---|
95 | |
---|
96 | |
---|
97 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
98 | ;; Wnn7Egg (Wnn7 ¥Õ¥í¥ó¥È¥¨¥ó¥É) ¤ÎÀßÄê |
---|
99 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
100 | |
---|
101 | (if (or (equal emacs-ime "wnn7") |
---|
102 | (equal emacs-ime "Wnn7")) |
---|
103 | (progn |
---|
104 | (setq load-path (append '("/usr/share/wnn7/elisp/xemacs21") load-path)) |
---|
105 | (global-set-key "\C-\\" 'toggle-input-method) |
---|
106 | ;; (global-set-key "\C-o" 'toggle-input-method) |
---|
107 | (load "wnn7egg-leim") |
---|
108 | (select-input-method "japanese-egg-wnn7") |
---|
109 | (set-language-info "Japanese" 'input-method "japanese-egg-wnn7") |
---|
110 | |
---|
111 | ;; "nn" ¤Ç¡Ö¤ó¡×¤òÆþÎÏ |
---|
112 | (setq enable-double-n-syntax t) |
---|
113 | ;; ¸õÊäÁªÂò¥â¡¼¥É |
---|
114 | (egg-use-input-predict) |
---|
115 | (setq egg-predict-realtime nil) |
---|
116 | ;; ¥¤¥ó¥é¥¤¥ó¸õÊäÁªÂò¥â¡¼¥É |
---|
117 | (setq egg-predict-mode "inline") |
---|
118 | ;; ¥¦¥¤¥ó¥É¥¦¸õÊäÁªÂò¥â¡¼¥É |
---|
119 | ;(setq egg-predict-mode "window") |
---|
120 | |
---|
121 | ;; ¸õÊä¥ê¥¹¥Èɽ¼¨ |
---|
122 | (define-key wnn7-henkan-mode-map " " 'wnn7-henkan-select-kouho-dai) |
---|
123 | |
---|
124 | ;; 1234567890%#%"'/\| ¤ò¡ÖȾ³Ñ¡×¤ÇÆþÎÏ |
---|
125 | (let ((its:*defrule-verbose* nil)) |
---|
126 | (its-define-mode "roma-kana") |
---|
127 | (dolist (symbol '("1" "2" "3" "4" "5" |
---|
128 | "6" "7" "8" "9" "0" |
---|
129 | "#" "%" "\"" "'" "/" "\\" "|")) |
---|
130 | (its-defrule symbol symbol))) |
---|
131 | ) |
---|
132 | ) |
---|
133 | |
---|
134 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
135 | ;; ¤«¤ó¤Ê¤ÎÀßÄê |
---|
136 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
137 | |
---|
138 | (if (or (equal emacs-ime "canna") |
---|
139 | (equal emacs-ime "Canna") |
---|
140 | ) |
---|
141 | (progn |
---|
142 | (load-library "canna") |
---|
143 | |
---|
144 | ;; color-mate ¤ò»È¤ï¤Ê¤¤¤Ç¡¢´Á»úÊÑ´¹¤Ë¿§¤òÉÕ¤±¤¿¤¤»þ¤Ë |
---|
145 | (setq canna-use-color t) |
---|
146 | |
---|
147 | ;; ¥Õ¥§¥ó¥¹¥â¡¼¥É¤Ç¤Ê¤¯¥¢¥ó¥À¡¼¥é¥¤¥ó¤ò»È¤¦ |
---|
148 | ;;(setq canna-with-fences nil) |
---|
149 | ;;(setq canna-underline t) |
---|
150 | |
---|
151 | ;; Canna ¥µ¡¼¥Ð¤Î»ØÄê |
---|
152 | (if (null (getenv "CANNASERVER")) |
---|
153 | (setq canna-server "localhost") |
---|
154 | (setq canna-server (getenv "CANNASERVER"))) |
---|
155 | (canna) |
---|
156 | |
---|
157 | (global-set-key "\C-_" 'canna-undo) ;¥¢¥ó¥É¥¥¤ÎÀßÄê¡£ |
---|
158 | (setq canna-save-undo-text-predicate ;¥¢¥ó¥É¥¥¥Ð¥Ã¥Õ¥¡¤ØÆþ¤ì¤ë¾ò·ï |
---|
159 | '(lambda (s) (> (length (car s)) 2)) ) |
---|
160 | (setq canna-undo-hook ;¥¢¥ó¥É¥¥¡Ü¦Á¡£ |
---|
161 | '(lambda () (message "ºÆÊÑ´¹¤·¤Þ¤¹....") |
---|
162 | (canna-do-function canna-func-henkan)) ) |
---|
163 | |
---|
164 | ;;¤«¤ó¤Ê¤ÎÊÑ´¹Ãæ¤Ë BS & DEL ¤ò»È¤¦ |
---|
165 | ;;(define-key canna-mode-map [backspace] [?\C-h]) |
---|
166 | ;;(define-key canna-mode-map [delete] [?\C-h]) |
---|
167 | |
---|
168 | ;;¤«¤ó¤Ê¤ÎÊÑ´¹Ãæ¤Ë C-h ¤ò»È¤¦ (with term/keyswap) |
---|
169 | (define-key canna-mode-map [?\177] [?\C-h]) |
---|
170 | |
---|
171 | (select-input-method 'japanese-canna) |
---|
172 | ) |
---|
173 | ) |
---|
174 | |
---|
175 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
176 | ;; XEmacs ¤Î¥Õ¥©¥ó¥È/¥«¥é¡¼ÀßÄê |
---|
177 | ;; (color-mate ¤ò»È¤ï¤Ê¤¤»þ¤Ë¿§¤ò¤Ä¤±¤ëÀßÄê¡¥) |
---|
178 | ;; XEmacs ¤Ë¤Ï hilit19 ¤¬¤Ê¤¤¤Î¤Ç¡¤¿§¤Ï¤Ä¤¤Þ¤»¤ó¤¬¡¤ |
---|
179 | ;; Âå¤ê¤Ë font-lock ¤ò»È¤Ã¤Æ´Ê°×¤Ç¤¹¤¬¿§¤ò¤Ä¤±¤é¤ì¤Þ¤¹¡¥ |
---|
180 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
181 | |
---|
182 | (set-face-foreground 'default "black" nil '(x color)) |
---|
183 | (set-face-background 'default "#eeeeff" nil '(x color)) |
---|
184 | |
---|
185 | (require 'font-lock) |
---|
186 | (setq font-lock-verbose nil) |
---|
187 | (put 'yatex-mode 'font-lock-defaults 'tex-mode) |
---|
188 | (put 'yahtml-mode 'font-lock-defaults 'html-mode) |
---|
189 | |
---|
190 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
191 | ;; XEmacs ¤Ç¿§¤òÉÕ¤±¤ë (color-mate ¤ÎÀßÄêÆɤ߹þ¤ß) |
---|
192 | ;; Vine Linux 2.1 ¤Þ¤Ç¤Îµì¼°¤ÎÀßÄê |
---|
193 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
194 | ;; |
---|
195 | ;;(load "~/.emacs-color.el") |
---|
196 | |
---|
197 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
198 | ;; WEMI (widget ɽ¼¨¤¹¤ë SEMI) |
---|
199 | ;; Vine 1.9 ¤«¤é¤Ï tm (Tiny Mime) ¤ÎÂå¤ï¤ê¤Ë semi ¤ò»È¤¤¤Þ¤¹ |
---|
200 | ;; (Mew ¤Ï tm ¤ä semi ¤Ê¤·¤Ç¤â MIME ¤ËÂбþ¤·¤Æ¤¤¤Þ¤¹) |
---|
201 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
202 | |
---|
203 | (require 'mime-setup) |
---|
204 | (load "path-util") |
---|
205 | (setq rmail-enable-mime t) |
---|
206 | |
---|
207 | ;; rail-1.0.2 ¤ò»È¤Ã¤Æ User-Agent: ¥Õ¥£¡¼¥ë¥É¤Î¥³¡¼¥É¥Í¡¼¥à¤òÆüËܸ첽¤¹¤ë |
---|
208 | (setq rail-emulate-genjis t) |
---|
209 | (if (module-installed-p 'rail) (load "rail")) |
---|
210 | |
---|
211 | |
---|
212 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
213 | ;; T-Gnus 6.13.3 (»²¹Í) |
---|
214 | ;; NetNews ¥ê¡¼¥À¡¼ GNUS (SEMI ÂбþÈÇ) |
---|
215 | ;; M-x gnus ¤Çµ¯Æ°¤·¤Þ¤¹ |
---|
216 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
217 | |
---|
218 | ;; News Server ̾¤ä¥É¥á¥¤¥ó̾¤òŬÀڤ˻ØÄꤷ¤Æ¤¯¤À¤µ¤¤ |
---|
219 | ;(setq gnus-nntp-server "news.hoge.hoge.or.jp") |
---|
220 | ;(setq gnus-local-domain "hoge.hoge.or.jp") |
---|
221 | ;(setq gnus-local-organization "HogeHoGe Org.") |
---|
222 | ;(setq gnus-use-generic-from t) |
---|
223 | |
---|
224 | |
---|
225 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
226 | ;; w3 |
---|
227 | ;; XEmacs ¾å¤ÇÆ°¤¯¥Ö¥é¥¦¥¶¤Ç¤¹ |
---|
228 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
229 | |
---|
230 | ;; w3 ¤Ç¥×¥í¥¥·¤ÎÀßÄ꤬ɬÍפʾì¹ç¡¢ |
---|
231 | ;; ~/.w3/profile Æâ¤ÎÀßÄê¤òÊÔ½¸¤·¤Æ²¼¤µ¤¤. |
---|
232 | ;; ½ñ¼°¤Ï°Ê²¼¤ÎÄ̤ê¤Ç¤¹. |
---|
233 | ;(setq url-proxy-services '( |
---|
234 | ; ("http" . "http://proxy.nowhere.ne.jp:8080/") |
---|
235 | ; ("ftp" . "http://proxy.nowhere.ne.jp:8080/") |
---|
236 | ; ("gopher" . "http://proxy.nowhere.ne.jp:8080/") |
---|
237 | ; ("no_proxy" . "://[^/]*nowhere.ne.jp/\\|://192.168")) |
---|
238 | ; url-using-proxy t) |
---|
239 | |
---|
240 | |
---|
241 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
242 | ;; Mew - Messaging in the Emacs World |
---|
243 | ;; ¥á¡¼¥ë¥ê¡¼¥À¡¼ Mew |
---|
244 | ;; M-x mew ¤Çµ¯Æ°¤·¤Þ¤¹ |
---|
245 | ;; ¤³¤ì°Ê³°¤ÎÀßÄê¤Ï ~/.mew.el ¤Ç¹Ô¤¤¤Þ¤¹ |
---|
246 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
247 | |
---|
248 | (autoload 'mew "mew" nil t) |
---|
249 | (autoload 'mew-send "mew" nil t) |
---|
250 | |
---|
251 | ;; Toolbar¤ËÄɲà |
---|
252 | ;(setq toolbar-mail-commands-alist (quote ((mew . mew) ))) |
---|
253 | ;(setq toolbar-mail-reader (quote mew)) |
---|
254 | |
---|
255 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
256 | ;; Wanderlust |
---|
257 | ;; IMAP ¤Ë¤âÂбþ¤·¤¿¥á¡¼¥ë/¥Ë¥å¡¼¥¹¥ê¡¼¥À |
---|
258 | ;; ¤³¤ì°Ê³°¤ÎÀßÄê¤Ï ~/.wl ¤Ç¹Ô¤¤¤Þ¤¹ |
---|
259 | ;; ~/.wl ¤Î¥µ¥ó¥×¥ë¤Ï /usr/doc/Wanderlust-2.2.12 °Ê²¼¤Ë¤¢¤ê¤Þ¤¹ |
---|
260 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
261 | |
---|
262 | (autoload 'wl "wl" "Wanderlust" t) |
---|
263 | (autoload 'wl-draft "wl" "Write draft with Wanderlust." t) |
---|
264 | |
---|
265 | ;; Toolbar¤ËÄɲà |
---|
266 | ;(setq toolbar-mail-commands-alist (quote ((wl . wl) ))) |
---|
267 | ;(setq toolbar-mail-reader (quote wl)) |
---|
268 | |
---|
269 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
270 | ;; X-Face |
---|
271 | ;; Mew ¤ä Wanderlust ¤Ê¤É¤Ç¡¢X-Face ²èÁü¤Ä¤¤Î¥á¥Ã¥»¡¼¥¸¤òɽ¼¨¤·¤Þ¤¹ |
---|
272 | ;;; /usr/doc/x-face-xemacs-1.3.6.20.README.ja |
---|
273 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
274 | |
---|
275 | (when (and window-system (module-installed-p 'x-face)) |
---|
276 | (autoload 'x-face-xmas-mew-display-x-face "x-face" nil t) |
---|
277 | (setq wl-highlight-x-face-function |
---|
278 | 'x-face-xmas-mew-display-x-face) |
---|
279 | (setq x-face-add-x-face-version-header t)) |
---|
280 | |
---|
281 | ;; µ¯Æ°²èÌ̤òɽ¼¨¤·¤Ê¤¤ |
---|
282 | ;(setq x-face-inhibit-loadup-splash t) |
---|
283 | |
---|
284 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
285 | ;; irchat-pj-2.4.24.07 |
---|
286 | ;; IRC (¥Á¥ã¥Ã¥È) ¥¯¥é¥¤¥¢¥ó¥È¤ÎÀßÄê |
---|
287 | ;; M-x irchat ¤Çµ¯Æ°¤·¤Þ¤¹ |
---|
288 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
289 | |
---|
290 | (autoload 'irchat "irchat" nil t) |
---|
291 | |
---|
292 | ;;; IRC server ¤Î»ØÄê |
---|
293 | ;;; (¤¤¤º¤ì¤«°ì¤Ä¤ò¥³¥á¥ó¥È¥¢¥¦¥È¤·¤Þ¤¹) |
---|
294 | ;;(setq irchat-server "irc.tohoku.ac.jp") |
---|
295 | ;;(setq irchat-server "irc.kyutech.ac.jp") |
---|
296 | ;;(setq irchat-server "irc.tokyo.wide.ad.jp") |
---|
297 | ;;(setq irchat-server "irc.kyoto.wide.ad.jp") |
---|
298 | ;;(setq irchat-server "irc.huie.hokudai.ac.jp") |
---|
299 | ;;(setq irchat-server "irc.cc.yamaguchi-u.ac.jp") |
---|
300 | ;;(setq irchat-server "irc.karrn.ad.jp") |
---|
301 | ;;(setq irchat-server "irc.kyoto.wide.ad.jp") |
---|
302 | |
---|
303 | ;;; ¥æ¡¼¥¶¡¼Ì¾¤È¥Ë¥Ã¥¯¥Í¡¼¥à |
---|
304 | ;;; (nick ¤ÏȾ³Ñ±Ñ¿ô¤ª¤è¤Ó []{}_\^ ¤«¤é¤Ê¤ëºÇÂç 9 ʸ»ú¤Îʸ»úÎó¤Ç¤¹) |
---|
305 | (setq irchat-name "IRC sample user") |
---|
306 | (setq irchat-nickname "PJEtest") |
---|
307 | |
---|
308 | ;;; ¥Ç¥Õ¥©¥ë¥È¤Ç»²²Ã¤¹¤ë¥Á¥ã¥ó¥Í¥ë¤Î¥ê¥¹¥È |
---|
309 | ;;; ¡Ê¤³¤³¤Ë½ñ¤¤¤¿¥Á¥ã¥ó¥Í¥ë¤Ë¤Ï irchat ¤Îµ¯Æ°¤ÈƱ»þ¤Ë»²²Ã¤Ç¤¤Þ¤¹¡Ë |
---|
310 | ;;(setq irchat-startup-channel-list '("#linuxjp,#pjetest")) |
---|
311 | (setq irchat-startup-channel-list '("#VineUsers")) |
---|
312 | |
---|
313 | ;;; ¥ª¥×¥·¥ç¥ó |
---|
314 | ;;; ¾ÜºÙ¤Ï /usr/doc/irchat-pj-xemacs-2.4.24.07/doc °Ê²¼¤Î¥Õ¥¡¥¤¥ë¤ò»²¾È |
---|
315 | (setq irchat-reconnect-automagic t) ; Àڤ줿¾ì¹ç¤ËºÆÀܳ¤ò»î¤ß¤ë |
---|
316 | ;;(setq irchat-channel-buffer-mode t) ; ¥Á¥ã¥Í¥ëʬ³äɽ¼¨¥â¡¼¥É |
---|
317 | ;;(setq irchat-display-channel-always t) |
---|
318 | ;;(setq irchat-default-freeze-local nil) |
---|
319 | |
---|
320 | |
---|
321 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
322 | ;; YaTeX 1.67 |
---|
323 | ;; [La]TeX ÆþÎϥ⡼¥É |
---|
324 | ;; M-x yatex ¤È¤¹¤ë¤«¡¢.tex ¤Ç½ª¤ï¤ë¥Õ¥¡¥¤¥ë¤òÆɤ߹þ¤à¤Èµ¯Æ°¤·¤Þ¤¹ |
---|
325 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
326 | |
---|
327 | (autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t) |
---|
328 | |
---|
329 | ;; YaTeX-mode |
---|
330 | (setq auto-mode-alist |
---|
331 | (cons (cons "\\.tex$" 'yatex-mode) auto-mode-alist)) |
---|
332 | (setq dvi2-command "xdvi" |
---|
333 | tex-command "platex -src-specials" |
---|
334 | dviprint-command-format "dvips %s | lpr" |
---|
335 | YaTeX-kanji-code 3) |
---|
336 | |
---|
337 | ;; YaHtml-mode |
---|
338 | (setq auto-mode-alist |
---|
339 | (cons (cons "\\.html$" 'yahtml-mode) auto-mode-alist)) |
---|
340 | (autoload 'yahtml-mode "yahtml" "Yet Another HTML mode" t) |
---|
341 | (setq yahtml-www-browser "firefox") |
---|
342 | |
---|
343 | |
---|
344 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
345 | ;; ¥Û¥¤¡¼¥ë¥Þ¥¦¥¹Âбþ |
---|
346 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
347 | |
---|
348 | ;(autoload 'mwheel-install "mwheel" "Enable mouse wheel support.") |
---|
349 | ;(mwheel-install) |
---|
350 | ;; ¥¹¥¯¥í¡¼¥ëÎ̤ÎÀßÄê (¥Î¡¼¥Þ¥ë . Shift-¥¹¥¯¥í¡¼¥ë) |
---|
351 | ;;(setq mwheel-scroll-amount '(5 . 1)) |
---|
352 | |
---|
353 | ;;============================================================================= |
---|
354 | ;; scroll on mouse wheel |
---|
355 | ;;============================================================================= |
---|
356 | ;; scroll on wheel of mouses |
---|
357 | (define-key global-map 'button4 |
---|
358 | '(lambda (&rest args) |
---|
359 | (interactive) |
---|
360 | (let ((curwin (selected-window))) |
---|
361 | (select-window (car (mouse-pixel-position))) |
---|
362 | (scroll-down 5) |
---|
363 | (select-window curwin) |
---|
364 | ))) |
---|
365 | (define-key global-map [(shift button4)] |
---|
366 | '(lambda (&rest args) |
---|
367 | (interactive) |
---|
368 | (let ((curwin (selected-window))) |
---|
369 | (select-window (car (mouse-pixel-position))) |
---|
370 | (scroll-down 1) |
---|
371 | (select-window curwin) |
---|
372 | ))) |
---|
373 | (define-key global-map [(control button4)] |
---|
374 | '(lambda (&rest args) |
---|
375 | (interactive) |
---|
376 | (let ((curwin (selected-window))) |
---|
377 | (select-window (car (mouse-pixel-position))) |
---|
378 | (scroll-down) |
---|
379 | (select-window curwin) |
---|
380 | ))) |
---|
381 | (define-key global-map 'button5 |
---|
382 | '(lambda (&rest args) |
---|
383 | (interactive) |
---|
384 | (let ((curwin (selected-window))) |
---|
385 | (select-window (car (mouse-pixel-position))) |
---|
386 | (scroll-up 5) |
---|
387 | (select-window curwin) |
---|
388 | ))) |
---|
389 | (define-key global-map [(shift button5)] |
---|
390 | '(lambda (&rest args) |
---|
391 | (interactive) |
---|
392 | (let ((curwin (selected-window))) |
---|
393 | (select-window (car (mouse-pixel-position))) |
---|
394 | (scroll-up 1) |
---|
395 | (select-window curwin) |
---|
396 | ))) |
---|
397 | (define-key global-map [(control button5)] |
---|
398 | '(lambda (&rest args) |
---|
399 | (interactive) |
---|
400 | (let ((curwin (selected-window))) |
---|
401 | (select-window (car (mouse-pixel-position))) |
---|
402 | (scroll-up) |
---|
403 | (select-window curwin) |
---|
404 | ))) |
---|
405 | |
---|
406 | |
---|
407 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
408 | ;; ¤½¤Î¾¤ÎÀßÄê |
---|
409 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
410 | |
---|
411 | ;;; ¥Þ¥¯¥í¥µ¡¼¥Á¥Ñ¥¹¤ÎÄɲà |
---|
412 | ;;; ~/lib/emacs °Ê²¼¤Ë¥æ¡¼¥¶ÍѤΠ*.el, *.elc ¤òÃÖ¤¯¤³¤È¤¬¤Ç¤¤Þ¤¹ |
---|
413 | ;;(setq load-path (append '("~/lib/emacs") load-path)) |
---|
414 | |
---|
415 | |
---|
416 | ;;; ¥¹¥Æ¡¼¥¿¥¹¥é¥¤¥ó¤Ë»þ´Ö¤òɽ¼¨¤¹¤ë |
---|
417 | (display-time) |
---|
418 | |
---|
419 | |
---|
420 | ;;; rpm-mode ¤ÎÆɤ߹þ¤ß |
---|
421 | ;;; rpm-mode.el ¤Ï spec ¥Õ¥¡¥¤¥ë¤ÎºîÀ®¤ËÊØÍø¤Ç¤¹¡£ |
---|
422 | ;;; ~/lib/emacs ¤Ë /usr/doc/rpm/rpm-mode.el ¤ò¥³¥Ô¡¼¤·¤Æ°Ê²¼¤ÎÀßÄê¤ò |
---|
423 | ;;; ¹Ô¤Ã¤Æ¤¯¤À¤µ¤¤¡£ |
---|
424 | |
---|
425 | ;(setq auto-mode-alist (nconc '(("\\.spec" . rpm-mode)) auto-mode-alist)) |
---|
426 | ;(autoload 'rpm-mode "rpm-mode" "Major mode for editing SPEC file of RPM." t) |
---|
427 | ;(setq packager "Vine User <vine@hoge.fuga>");¼«Ê¬¤Î̾Á° |
---|
428 | ; (setq buildrootroot "/tmp");BuildRoot¤Î¾ì½ê |
---|
429 | ; (setq projectoname "Project Vine");¥×¥í¥¸¥§¥¯¥È̾ |
---|
430 | |
---|
431 | |
---|
432 | ;;; ºÇ½ª¹¹¿·Æü¤Î¼«Æ°ÁÞÆþ |
---|
433 | ;;; ¥Õ¥¡¥¤¥ë¤ÎÀèƬ¤«¤é 8 ¹Ô°ÊÆâ¤Ë Time-stamp: <> ¤Þ¤¿¤Ï |
---|
434 | ;;; Time-stamp: " " ¤È½ñ¤¤¤Æ¤¢¤ì¤Ð¡¢¥»¡¼¥Ö»þ¤Ë¼«Æ°Åª¤ËÆüÉÕ¤¬ÁÞÆþ¤µ¤ì¤Þ¤¹ |
---|
435 | (if (not (memq 'time-stamp write-file-hooks)) |
---|
436 | (setq write-file-hooks |
---|
437 | (cons 'time-stamp write-file-hooks))) |
---|
438 | |
---|
439 | |
---|
440 | ;;;¥Ð¥Ã¥Õ¥¡¤ÎºÇ¸å¤Çnewline¤Ç¿·µ¬¹Ô¤òÄɲ乤ë¤Î¤ò¶Ø»ß¤¹¤ë |
---|
441 | (setq next-line-add-newlines nil) |
---|
442 | |
---|
443 | ;;;°õºþÀßÄê |
---|
444 | (setq-default lpr-switches '("-2P")) |
---|
445 | (setq-default lpr-command "mpage") |
---|
446 | |
---|
447 | ;;; ¥¡¼¥Ð¥¤¥ó¥ÉÄêµÁ |
---|
448 | (global-set-key [backspace] 'delete-backward-char) ; BS |
---|
449 | (global-set-key [delete] 'delete-char) ; DEL |
---|
450 | (global-set-key "\C-h" 'delete-backward-char) ; C-h(=DEL) |
---|
451 | (global-set-key "\M-?" 'help-for-help) ; M-?(=help) |
---|
452 | (global-set-key [home] 'beginning-of-buffer) ; HOME(¥Ð¥Ã¥Õ¥¡¤ÎÀèƬ¤ËÈô¤Ö) |
---|
453 | (global-set-key [end] 'end-of-buffer) ; END(¥Ð¥Ã¥Õ¥¡¤ÎºÇ¸å¤ËÈô¤Ö) |
---|
454 | |
---|
455 | ;;; ¥¹¥¯¥í¡¼¥ë¤ò1¹Ôñ°Ì¤Ë¤¹¤ë |
---|
456 | (setq scroll-step 1) |
---|
457 | |
---|
458 | ;;; *.~ ¤È¤«¤Î¥Ð¥Ã¥¯¥¢¥Ã¥×¥Õ¥¡¥¤¥ë¤òºî¤é¤Ê¤¤ |
---|
459 | ;(setq make-backup-files nil) |
---|
460 | |
---|
461 | ;;; .#* ¤È¤«¤Î¥Ð¥Ã¥¯¥¢¥Ã¥×¥Õ¥¡¥¤¥ë¤òºî¤é¤Ê¤¤ |
---|
462 | ;(setq auto-save-default nil) |
---|
463 | |
---|
464 | ;;; °ÊÁ°ÊÔ½¸¤·¤¿¥Õ¥¡¥¤¥ë¤Î¥«¡¼¥½¥ë°ÌÃÖ¤ò³Ð¤¨¤ëÀßÄê |
---|
465 | (require 'saveplace) |
---|
466 | (setq-default save-place t) |
---|
467 | |
---|
468 | ;; scratch ¥â¡¼¥É¤ÎºÇ½é¤Î¥á¥Ã¥»¡¼¥¸¤Ï¾Ã¤¹ |
---|
469 | (setq initial-scratch-message nil) |
---|
470 | |
---|
471 | ;;; C-t¡¢M-C-t¤Ç¥Ð¥Ã¥Õ¥¡¤Î¹â®ÀÚ¤êÂؤ¨ |
---|
472 | (defun previous-buffer () |
---|
473 | "Select previous window." |
---|
474 | (interactive) |
---|
475 | (bury-buffer)) |
---|
476 | (defun backward-buffer () |
---|
477 | "Select backward window." |
---|
478 | (interactive) |
---|
479 | (switch-to-buffer |
---|
480 | (car (reverse (buffer-list))))) |
---|
481 | (global-set-key "\C-t" 'previous-buffer) |
---|
482 | (global-set-key "\M-\C-t" 'backward-buffer) |
---|
483 | |
---|
484 | |
---|
485 | ;; Info ¤Ç¤Ï frame-title ¤Ë¾Ü¤·¤¤¾ðÊó¤ò |
---|
486 | (add-hook 'Info-startup-hook |
---|
487 | #'(lambda () |
---|
488 | (make-local-variable 'frame-title-format) |
---|
489 | (setq frame-title-format |
---|
490 | (concat "*info* (" |
---|
491 | (file-name-nondirectory |
---|
492 | (if (stringp Info-current-file) |
---|
493 | Info-current-file |
---|
494 | (or buffer-file-name ""))) |
---|
495 | ") " |
---|
496 | Info-current-node)))) |
---|
497 | (add-hook 'Info-select-hook |
---|
498 | #'(lambda () |
---|
499 | (setq frame-title-format |
---|
500 | (concat "*info* (" |
---|
501 | (file-name-nondirectory |
---|
502 | (if (stringp Info-current-file) |
---|
503 | Info-current-file |
---|
504 | (or buffer-file-name ""))) |
---|
505 | ") " |
---|
506 | Info-current-node)))) |
---|
507 | |
---|
508 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
509 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
510 | ;; ¤³¤Î¥Õ¥¡¥¤¥ë¤Ë´Ö°ã¤¤¤¬¤¢¤Ã¤¿¾ì¹ç¤ËÁ´¤Æ¤ò̵¸ú¤Ë¤·¤Þ¤¹ |
---|
511 | (put 'eval-expression 'disabled nil) |
---|