From de22484c7926c86965896dab767e55d197af61f4 Mon Sep 17 00:00:00 2001
From: Tom Willemse <tom@ryuslash.org>
Date: Wed, 22 Jan 2014 21:45:59 +0100
Subject: [PATCH] Add docstrings to variables

---
 upcase-mode.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/upcase-mode.el b/upcase-mode.el
index c81e8a8..725dbd7 100644
--- a/upcase-mode.el
+++ b/upcase-mode.el
@@ -32,10 +32,12 @@
 (defvar upcase-transient-map
   (let ((map (make-sparse-keymap)))
     (define-key map [remap self-insert-command] #'upcase-self-insert-command)
-    map))
+    map)
+  "The transient keymap that will take effect.")
 
 (defvar upcase-character-map
-  #s(hash-table data (?- ?_)))
+  #s(hash-table data (?- ?_))
+  "Extra characters to switch.")
 
 (defun upcase-self-insert-command ()
   "Wrap `self-insert-command' to upcase the input character.