Browse files

add autoload pragma to quickrun-set-default and quickrun-add-command …

…for package.el
  • Loading branch information...
syohex committed Aug 31, 2012
1 parent 56315e6 commit aa6b8a06132eb353148c72a1f2b1f2dea24f6166
Showing with 2 additions and 0 deletions.
  1. +2 −0 quickrun.el
@@ -762,12 +762,14 @@ by quickrun.el. But you can register your own command for some languages")
(defvar quickrun/command-key-table
(make-hash-table :test #'equal))
(defun quickrun-set-default (lang key)
"Set `key' as default key in programing language `lang'"
(unless (assoc key quickrun/language-alist)
(error "%s is not registered." key))
(puthash lang key quickrun/command-key-table))
(defun* quickrun-add-command (key alist &key default mode)
(cond ((not key) (error "undefined 1st argument 'key'"))
((not alist) (error "undefined 2nd argument 'command alist'"))

0 comments on commit aa6b8a0

Please sign in to comment.