From c5978a4cde4e6130f6f3838f50afa7cff5d8439e Mon Sep 17 00:00:00 2001
From: Phil Jackson <phil@shellarchive.co.uk>
Date: Mon, 31 May 2010 16:46:25 +0100
Subject: [PATCH] Docs for variables.

---
 rebase-mode.el | 43 +++++++++++++++++++++++--------------------
 1 file changed, 23 insertions(+), 20 deletions(-)

diff --git a/rebase-mode.el b/rebase-mode.el
index a3ea7504..927aa75a 100644
--- a/rebase-mode.el
+++ b/rebase-mode.el
@@ -14,13 +14,34 @@
     (** 7 40 (char "0-9" "a-f" "A-F"))) ;sha1
    (char space)
    (* anything)                         ; msg
-   line-end))
+   line-end)
+  "Regexp that matches an action line in a rebase buffer.")
 
 (defvar rebase-font-lock-keywords
   (list
    (list rebase-mode-action-line-re
          '(1 font-lock-keyword-face)
-         '(2 font-lock-builtin-face))))
+         '(2 font-lock-builtin-face)))
+  "Font lock keywords for rebase-mode.")
+
+(defvar rebase-mode-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map (kbd "q") 'server-edit)
+    (define-key map (kbd "M-p") 'rebase-mode-move-line-up)
+    (define-key map (kbd "M-n") 'rebase-mode-move-line-down)
+    (define-key map (kbd "k") 'rebase-mode-kill-line)
+    (define-key map (kbd "a") 'rebase-mode-abort)
+    (dolist (key-fun '(("p" . "pick")
+                       ("r" . "reword")
+                       ("e" . "edit")
+                       ("s" . "squash")
+                       ("f" . "fixup")))
+      (define-key map (car key-fun)
+         `(lambda ()
+           (interactive)
+           (rebase-mode-edit-line ,(cdr key-fun)))))
+    map)
+  "Keymap for rebase-mode.")
 
 (defun rebase-mode-edit-line (change-to)
     (let ((buffer-read-only nil)
@@ -76,24 +97,6 @@
          (text (apply 'buffer-substring region)))
     (apply 'kill-region region)))
 
-(defvar rebase-mode-map
-  (let ((map (make-sparse-keymap)))
-    (define-key map (kbd "q") 'server-edit)
-    (define-key map (kbd "M-p") 'rebase-mode-move-line-up)
-    (define-key map (kbd "M-n") 'rebase-mode-move-line-down)
-    (define-key map (kbd "k") 'rebase-mode-kill-line)
-    (define-key map (kbd "a") 'rebase-mode-abort)
-    (dolist (key-fun '(("p" . "pick")
-                       ("r" . "reword")
-                       ("e" . "edit")
-                       ("s" . "squash")
-                       ("f" . "fixup")))
-      (define-key map (car key-fun)
-         `(lambda ()
-           (interactive)
-           (rebase-mode-edit-line ,(cdr key-fun)))))
-    map))
-
 (define-generic-mode 'rebase-mode
   '("#")
   nil