From 18eec2656aa8a78b5a4ac9aaca8722c9981eedf4 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Thu, 28 Aug 2014 23:20:47 -0400 Subject: Use prefix in name of all custom maps --- lisp/init-buffile.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'lisp/init-buffile.el') diff --git a/lisp/init-buffile.el b/lisp/init-buffile.el index bfb9c8d..98eb16f 100644 --- a/lisp/init-buffile.el +++ b/lisp/init-buffile.el @@ -89,8 +89,8 @@ user." ;;; Temporary scratch files -(define-prefix-command 'scratch-map) -(global-set-key (kbd "C-c s") 'scratch-map) +(define-prefix-command 'km/scratch-map) +(global-set-key (kbd "C-c s") 'km/scratch-map) (defmacro km/make-find-scratch-func (name extension) `(defun ,(intern (concat "km/find-scratch-" name)) () @@ -105,12 +105,12 @@ user." (km/make-find-scratch-func "org" ".org") (km/make-find-scratch-func "nomode" "") -(define-key scratch-map "e" 'km/find-scratch-elisp) -(define-key scratch-map "p" 'km/find-scratch-python) -(define-key scratch-map "s" 'km/find-scratch-shell) -(define-key scratch-map "r" 'km/find-scratch-r) -(define-key scratch-map "h" 'km/find-scratch-haskell) -(define-key scratch-map "o" 'km/find-scratch-org) -(define-key scratch-map "n" 'km/find-scratch-nomode) +(define-key km/scratch-map "e" 'km/find-scratch-elisp) +(define-key km/scratch-map "p" 'km/find-scratch-python) +(define-key km/scratch-map "s" 'km/find-scratch-shell) +(define-key km/scratch-map "r" 'km/find-scratch-r) +(define-key km/scratch-map "h" 'km/find-scratch-haskell) +(define-key km/scratch-map "o" 'km/find-scratch-org) +(define-key km/scratch-map "n" 'km/find-scratch-nomode) (provide 'init-buffile) -- cgit v1.2.3