Add docstrings to variables

2014-01-22 21:45:59 +01:00 · 2014-01-22 21:45:59 +01:00 · de22484c79
commit de22484c79
parent b8214a0312
1 changed files with 4 additions and 2 deletions
--- 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.