From 313056af7a3aef279cef12b31d9bccd6750c1540 Mon Sep 17 00:00:00 2001 From: Bozhidar Batsov Date: Mon, 10 Oct 2011 17:50:23 +0300 Subject: [PATCH] fixed a couple of oversights --- prelude-core.el | 29 ++++++++++++++--------------- prelude-global-keybindings.el | 2 +- 2 files changed, 15 insertions(+), 16 deletions(-) diff --git a/prelude-core.el b/prelude-core.el index d680989..fcf6a88 100644 --- a/prelude-core.el +++ b/prelude-core.el @@ -97,7 +97,7 @@ to markdown blockquote rules (useful to copy snippets to StackOverflow, Assembla "Copy the selected code region to the clipboard, indented according to markdown blockquote rules. Useful to add snippets under bullet points." (interactive "r") - (indent-rigidly-and-copy-to-clipboard begin end 6)) + (prelude-indent-rigidly-and-copy-to-clipboard begin end 6)) (defun prelude-insert-empty-line () "Insert an empty line after the current line and positon @@ -158,7 +158,7 @@ the curson at its beginning, according to the current mode." (indent-region (region-beginning) (region-end)) (message "Indented selected region.")) (progn - (indent-buffer) + (prelude-indent-buffer) (message "Indented buffer."))))) (defun prelude-annotate-todo () @@ -401,19 +401,18 @@ there's a region, all lines that region covers will be duplicated." (defun prelude-swap-windows () "If you have 2 windows, it swaps them." (interactive) - (cond ((/= (count-windows) 2) - (message "You need exactly 2 windows to do this.")) - (t - (let* ((w1 (first (window-list))) - (w2 (second (window-list))) - (b1 (window-buffer w1)) - (b2 (window-buffer w2)) - (s1 (window-start w1)) - (s2 (window-start w2))) - (set-window-buffer w1 b2) - (set-window-buffer w2 b1) - (set-window-start w1 s2) - (set-window-start w2 s1)))) + (if (/= (count-windows) 2) + (message "You need exactly 2 windows to do this.") + (let* ((w1 (first (window-list))) + (w2 (second (window-list))) + (b1 (window-buffer w1)) + (b2 (window-buffer w2)) + (s1 (window-start w1)) + (s2 (window-start w2))) + (set-window-buffer w1 b2) + (set-window-buffer w2 b1) + (set-window-start w1 s2) + (set-window-start w2 s1))) (other-window 1)) (provide 'prelude-core) diff --git a/prelude-global-keybindings.el b/prelude-global-keybindings.el index b361130..3a692a6 100644 --- a/prelude-global-keybindings.el +++ b/prelude-global-keybindings.el @@ -62,7 +62,7 @@ ;; Indentation help (global-set-key (kbd "C-x ^") 'join-line) -(global-set-key (kbd "C-M-\\") 'indent-region-or-buffer) +(global-set-key (kbd "C-M-\\") 'prelude-indent-region-or-buffer) ;; Start proced in a similar manner to dired (global-set-key (kbd "C-x p") 'proced)