ryuslash/upcase-mode
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add docstrings to variables

Browse source
This commit is contained in:
Tom Willemse 2014-01-22 21:45:59 +01:00
parent b8214a0312
commit de22484c79
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
upcase-mode.el
View file

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