(normal-top-level-add-subdirs-to-load-path)を使うときはdefault-directoryをletで束縛しておく必要がある

(normal-top-level-add-subdirs-to-load-path)を使うときはdefault-directoryをletで束縛しておく必要があります。

~/.emacs.d/init.el

(let (major name path)
  (setq major (number-to-string emacs-major-version))
  (setq name (concat "emacs" major))
  (setq path (concat "~/share/" name))
  (setq my-user-lisp-dir
    (expand-file-name (concat path "/user-lisp")))
  (if (file-directory-p my-user-lisp-dir)
    (progn
        (add-to-list 'load-path my-user-lisp-dir)
        (let ((default-directory my-user-lisp-dir))
          (normal-top-level-add-subdirs-to-load-path)))))

そうしないと何が起こるか、答えは「いまいるディレクトリ配下のすべてをload-pathに追加しようとする」です。

~/.emacs.d/init.elに書いてしまったらたぶん、Emacsが始まらなくなります。