Add random-number function at [C-; r n]

smerritt · Jul 18, 2013 · 7a3e9de · 7a3e9de
1 parent 42d7df7
commit 7a3e9de
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/init.el b/init.el
@@ -98,8 +98,13 @@
   (interactive)
   (insert (random-mac)))
 
+(defun insert-random-number ()
+  (interactive)
+  (insert (number-to-string (random 9999999))))
+
 (global-set-key [(control \;) ?r ?i] 'insert-random-ip)
 (global-set-key [(control \;) ?r ?m] 'insert-random-mac)
+(global-set-key [(control \;) ?r ?n] 'insert-random-number)
 
 
 (add-hook