Shell-modeの変数設定

Cocoa Emacsのshell-modeなんだけれども、PATH環境変数が設定できなくて苦労した。
Emacsテクニックバイブルにも載っていない。
この設定は常識なんだろうか？うーん

;; より下に記述した物が PATH の先頭に追加されます
(dolist (dir (list
              "/sbin"
              "/usr/sbin"
              "/bin"
              "/usr/bin"
              "/opt/local/bin"
              "/sw/bin"
              "/usr/local/bin"
              (expand-file-name "~/bin")
              (expand-file-name "~/.emacs.d/bin")
              ))
 ;; PATH と exec-path に同じ物を追加します
 (when (and (file-exists-p dir) (not (member dir exec-path)))
   (setenv "PATH" (concat dir ":" (getenv "PATH")))
   (setq exec-path (append (list dir) exec-path))))

上記の設定は、こちらにのっておりました。