diff options
author | Franck Cuny <franckcuny@gmail.com> | 2016-03-10 19:46:58 -0800 |
---|---|---|
committer | Franck Cuny <franckcuny@gmail.com> | 2016-03-10 19:47:29 -0800 |
commit | ea20a06ca11d852b6020e97b945de34b0553b822 (patch) | |
tree | e8002c0956c4fba74b31a63a287f280c3bfa7430 | |
parent | [emacs] Add configuration for scala (diff) | |
download | emacs.d-ea20a06ca11d852b6020e97b945de34b0553b822.tar.gz |
[emacs] Rename a couple of functions
-rw-r--r-- | emacs.d/core/core-bindings.el | 8 | ||||
-rw-r--r-- | emacs.d/core/core-defun.el | 6 |
2 files changed, 6 insertions, 8 deletions
diff --git a/emacs.d/core/core-bindings.el b/emacs.d/core/core-bindings.el index ee91bae..629eb54 100644 --- a/emacs.d/core/core-bindings.el +++ b/emacs.d/core/core-bindings.el @@ -4,12 +4,10 @@ (global-set-key (kbd "<s-return>") 'toggle-frame-fullscreen) -(global-set-key (kbd "C-c s") 'fcuny/visit-term-buffer) +(global-set-key (kbd "C-c s") 'fc/visit-term-buffer) -(global-set-key (kbd "s-N") 'fcuny/switch-to-scratch) +(global-set-key (kbd "s-N") 'fc/switch-to-scratch) -(global-set-key (kbd "C-c b") 'fcuny/find-build-file) - -(global-set-key (kbd "C-c r") 'fcuny/build-run-target) +(define-key emacs-lisp-mode-map (kbd "C-c C-e") 'eval-buffer) (provide 'core-bindings) diff --git a/emacs.d/core/core-defun.el b/emacs.d/core/core-defun.el index 5180e68..ad17af4 100644 --- a/emacs.d/core/core-defun.el +++ b/emacs.d/core/core-defun.el @@ -1,4 +1,4 @@ -(defun fcuny/switch-to-scratch () +(defun fc/switch-to-scratch () "Switch to scratch, grab the region if it's active." (interactive) (let ((contents @@ -11,7 +11,7 @@ (goto-char (buffer-end 1)) (insert contents))))) -(defun fcuny/rename-this-buffer-and-file () +(defun fc/rename-this-buffer-and-file () "Renames current buffer and file it is visiting." (interactive) (let ((name (buffer-name)) @@ -29,7 +29,7 @@ (set-buffer-modified-p nil) (message "File '%s' successfully renamed to '%s'" name (file-name-nondirectory new-name)))))))) -(defun fcuny/visit-term-buffer () +(defun fc/visit-term-buffer () "Create or visit a terminal buffer." (interactive) (if (not (get-buffer "*ansi-term*")) |