Emacs part 20

**名無しさん＠お腹いっぱい。** · 2006/12/10(日) 12:07:27

>>773
私はこうしてる。

(define-key global-map "\C-xt4"
(lambda () (interactive)
(setq tab-width 4)
(redraw-frame (car (frame-list)))))
(define-key global-map "\C-xt8"
(lambda () (interactive)
(setq tab-width 8)
(redraw-frame (car (frame-list)))))