                         (interactive)
                         (find-file ,full-filename))))
     (if keybinding
-        (let* ((full-keybinding (concat "M-RET " keybinding))
+        (let* ((full-keybinding (concat "M-RET e " keybinding))
                (set-key-form `(global-set-key (kbd ,full-keybinding)
                                               #',defun-name)))
           `(progn


If additionally KEYBINDING is \"e i\" then
`radian-register-dotfile' will use `global-set-key' to bind
`radian-find-init-el' to (kbd \"M-RET e i\")."
  (let* ((bare-filename (replace-regexp-in-string ".*/" "" filename))
         (defun-name (make-symbol
                      (replace-regexp-in-string

;;;; Finding files

;; The following code adds keybindings for jumping to the various
;; dotfiles set up by Radian. These all begin with <M-RET e> and are
;; designed to be mnemonic, as in <M-RET e e i> standing for "[e]dit
;; [e]macs [i]nit.el".

(defmacro radian-register-dotfile (filename &optional keybinding)
  "Tell Radian about a dotfile.
