 
 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\")."
+`radian-find-init-el' to (kbd \"M-RET e 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 and are
;; designed to be mnemonic, as in <M-RET e p r> standing for "go to
;; [e]macs init.[pr]e.local.el".

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

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