ecd

For Example:

  (require 'ecd)
  (global-unset-key "\M-c")
  (global-set-key (kbd "M-c") 'ecd)

  (setq ecd-list
        '((?/ . "/")
          (?~ . "~/")
          (?d . "~/Downloads")
          (?e . "~/.emacs.d")))

  On eshell mode, type M-c e

    $ pushd ~/.emacs.d

  On other mode, type M-c e

    M-x eshell
    $ pushd ~/.emacs.d
    M-x dired-jump