>>398
dired-guess-shell-alist-user の方が
dired-guess-shell-alist-default よりも優先されるので
(setq dired-guess-shell-alist-user '(("\\.lzh$" "lha x")))
と書いとけばよい。