From ea20a06ca11d852b6020e97b945de34b0553b822 Mon Sep 17 00:00:00 2001 From: Franck Cuny Date: Thu, 10 Mar 2016 19:46:58 -0800 Subject: [emacs] Rename a couple of functions --- emacs.d/core/core-bindings.el | 8 +++----- 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 "") '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*")) -- cgit 1.4.1