 (defalias 'reason-parent-mode
   (if (fboundp 'prog-mode) 'prog-mode 'fundamental-mode))
 
+(defvar reason-mode-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map "\C-c\C-a" 'reason-mode-find-alternate-file)
+    map
+    )
+  "Keymap for Reason major mode."
+)
+
 ;;;###autoload
 (define-derived-mode reason-mode reason-parent-mode "Reason"
-  "Major mode for Reason code."
+  "Major mode for Reason code.
+
+\\{reason-mode-map}"
   :group 'reason-mode
   :syntax-table reason-mode-syntax-table
 

        'font-lock-comment-face
        ))))

(defun rust-fill-prefix-for-comment-start (line-start)
  "Determine what to use for `fill-prefix' based on what is at the beginning of a line."
  (let ((result

(add-to-list 'auto-mode-alist '("\\.re\\'" . reason-mode))
(add-to-list 'auto-mode-alist '("\\.rei\\'" . reason-mode))


(defun reason-mode-reload ()
  (interactive)
  (unload-feature 'reason-mode)
