Permalink
Browse files

dss/map-define-key

  • Loading branch information...
tavisrudd committed Mar 18, 2011
1 parent 8fa9e9b commit 1d6440f83a69098bd612adff61ed9a7817d3c50b
Showing with 9 additions and 0 deletions.
  1. +9 −0 dss-elisp-funcs.el
View
@@ -5,4 +5,13 @@
(insert-file-contents file)
(buffer-string))))
+(defun dss/map-define-key (mode-map keylist fname)
+ "like define-key but the key arg is a list that should be mapped over"
+ (mapc (lambda (k)
+ (progn
+ (define-key mode-map k fname)
+ ))
+ keylist))
+
+
(provide 'dss-elisp-funcs)

0 comments on commit 1d6440f

Please sign in to comment.