Emacsでタブ幅を設定する

最近Emacs設定経過メモ~ってやるとログをあさりにくくなることに気づいたのでできるだけ機能毎に記事を書くことにする。

タブ幅の設定は以下のように

(setq-default tab-width 2)
(setq default-tab-width 2)

;; 関数化して動的にtab-stop-listを設定している
(defun set-aurora-tab-width (num &optional local redraw)
  (interactive "nTab Width: ")
  (when local
    (make-local-variable 'tab-width)
    (make-local-variable 'tab-stop-list))
  (setq tab-width num)
  (setq tab-stop-list ())
  (while (<= num 256)
        (setq tab-stop-list `(,@tab-stop-list ,num))
    (setq num (+ num tab-width)))
  (when redraw (redraw-display)) tab-width)
(set-aurora-tab-width (setq default-tab-width (setq-default tab-width 2)))

参考

Emacs講座 -第８回- タブ幅