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