From 9a500861070e1ce374064d14ee2372e12c22a06f Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Sat, 18 Aug 2012 13:57:56 +0200
Subject: Restructure emacs configuration

---
 .emacs.d/site-lisp/shift-indent.el | 33 ---------------------------------
 1 file changed, 33 deletions(-)
 delete mode 100644 .emacs.d/site-lisp/shift-indent.el

(limited to '.emacs.d/site-lisp/shift-indent.el')

diff --git a/.emacs.d/site-lisp/shift-indent.el b/.emacs.d/site-lisp/shift-indent.el
deleted file mode 100644
index d6d6e76..0000000
--- a/.emacs.d/site-lisp/shift-indent.el
+++ /dev/null
@@ -1,33 +0,0 @@
-(require 'simple)
-
-(defun indent-shift-left (start end &optional count)
-  (interactive
-   (if mark-active
-       (list (region-beginning) (region-end) current-prefix-arg)
-     (list (line-beginning-position) (line-end-position) current-prefix-arg)))
-  (if count
-      (setq count (prefix-numeric-value count))
-    (setq count tab-width))
-  (when (> count 0)
-    (let ((deactivate-mark nil))
-      (save-excursion
-        (goto-char start)
-        (while (< (point) end)
-          (if (and (< (current-indentation) count)
-                   (not (looking-at "[ \t]*$")))
-              (error "Can't shift all lines enough"))
-          (forward-line))
-        (indent-rigidly start end (- count))))))
-
-(add-to-list 'debug-ignored-errors "^Can't shift all lines enough")
-
-(defun indent-shift-right (start end &optional count)
-  (interactive
-   (if mark-active
-       (list (region-beginning) (region-end) current-prefix-arg)
-     (list (line-beginning-position) (line-end-position) current-prefix-arg)))
-  (let ((deactivate-mark nil))
-    (if count
-        (setq count (prefix-numeric-value count))
-      (setq count tab-width))
-    (indent-rigidly start end count)))
-- 
cgit v1.2.3-54-g00ecf