From ddaf007bb3f21ce7086ce557941a5f799d961d3b Mon Sep 17 00:00:00 2001
From: syl20bnr <sylvain.benner@gmail.com>
Date: Mon, 6 May 2013 21:02:09 -0400
Subject: [PATCH] Remove auto-close-parens extension.

---
 .../auto-close-parens/auto-close-parens.el    | 47 -------------------
 init-extension/init-auto-close-parens.el      |  1 -
 my-keybindings.el                             |  2 -
 post-extensions.el                            |  1 -
 4 files changed, 51 deletions(-)
 delete mode 100644 extensions/auto-close-parens/auto-close-parens.el
 delete mode 100644 init-extension/init-auto-close-parens.el

diff --git a/extensions/auto-close-parens/auto-close-parens.el b/extensions/auto-close-parens/auto-close-parens.el
deleted file mode 100644
index eb8e920c9..000000000
--- a/extensions/auto-close-parens/auto-close-parens.el
+++ /dev/null
@@ -1,47 +0,0 @@
-;; -*- coding:euc-jp-unix; -*-
-;; close-open-paren.el : insert appropriate closing parenthesis.
-;; Ref.: http://www.emacswiki.org/emacs/UniversialCloseParen
-;;       http://emacswiki.org/emacs/EmacsSyntaxTable
-;;       skk/skk-tankan.el
-
-(defconst close-open-paren-syntax-table
-    (let ((table (make-syntax-table)))
-      (modify-syntax-entry ?{ "(}" table)
-      (modify-syntax-entry ?} "){" table)
-      (modify-syntax-entry ?\( "()" table)
-      (modify-syntax-entry ?\) ")(" table)
-      (modify-syntax-entry ?\[ "(]" table)
-      (modify-syntax-entry ?\] ")[" table)
-      (modify-syntax-entry ?< "(>" table)
-      (modify-syntax-entry ?> ")<" table)
-      (modify-syntax-entry ?（ "(）" table) ; 始め小括弧,始め丸括弧, LEFT PARENTHESIS
-      (modify-syntax-entry ?） ")（" table) ; 終わり小括弧,終わり丸括弧, RIGHT PARENTHESIS
-      (modify-syntax-entry ?〔 "(〕" table) ; 始めきっこう(亀甲)括弧, LEFT TORTOISE SHELL BRACKET
-      (modify-syntax-entry ?〕 ")〔" table) ; 終わりきっこう(亀甲)括弧, RIGHT TORTOISE SHELL BRACKET
-      (modify-syntax-entry ?［ "(］" table) ; 始め大括弧,始め角括弧, LEFT SQUARE BRACKET
-      (modify-syntax-entry ?］ ")［" table) ; 終わり大括弧,終わり角括弧, RIGHT SQUARE BRACKET
-      (modify-syntax-entry ?｛ "(｝" table) ; 始め中括弧,始め波括弧, LEFT CURLY BRACKET
-      (modify-syntax-entry ?｝ ")｛" table) ; 終わり中括弧,終わり波括弧, RIGHT CURLY BRACKET
-      (modify-syntax-entry ?〈 "(〉" table) ; 始め山括弧, LEFT ANGLE BRACKET
-      (modify-syntax-entry ?〉 ")〈" table) ; 終わり山括弧, RIGHT ANGLE BRACKET
-      (modify-syntax-entry ?《 "(》" table) ; 始め二重山括弧, LEFT DOUBLE ANGLE BRACKET
-      (modify-syntax-entry ?》 ")《" table) ; 終わり二重山括弧, RIGHT DOUBLE ANGLE BRACKET
-      (modify-syntax-entry ?「 "(」" table) ; 始めかぎ括弧, LEFT CORNER BRACKET
-      (modify-syntax-entry ?」 ")「" table) ; 終わりかぎ括弧, RIGHT CORNER BRACKET
-      (modify-syntax-entry ?『 "(』" table) ; 始め二重かぎ括弧, LEFT WHITE CORNER BRACKET
-      (modify-syntax-entry ?』 ")『" table) ; 終わり二重かぎ括弧, RIGHT WHITE CORNER BRACKET
-      (modify-syntax-entry ?【 "(】" table) ; 始めすみ付き括弧, LEFT BLACK LENTICULAR BRACKET
-      (modify-syntax-entry ?】 ")【" table) ; 終わりすみ付き括弧, RIGHT BLACK LENTICULAR BRACKET
-      (modify-syntax-entry ?\\ "'" table)
-      table)
-    "A syntax table for pairs of parentheses.")
-
-(defun close-open-paren ()
-  (interactive)
-  (let (pos closing)
-  (with-syntax-table close-open-paren-syntax-table    ; 検索には上の専用文法テーブルを利用
-	  (setq pos (save-excursion (up-list -1) (point)))  ; 開き括弧の位置をposへ代入
-	  (setq closing (matching-paren (char-after pos)))) ; posの位置にある開き括弧対応する閉じ括弧をclosingへ
-	(insert closing)))                                  ; 閉じ括弧を現在の位置へ挿入
-
-(provide 'auto-close-parens)
diff --git a/init-extension/init-auto-close-parens.el b/init-extension/init-auto-close-parens.el
deleted file mode 100644
index f9cb4a4bd..000000000
--- a/init-extension/init-auto-close-parens.el
+++ /dev/null
@@ -1 +0,0 @@
-(require 'auto-close-parens)
diff --git a/my-keybindings.el b/my-keybindings.el
index 3b7ca05c8..199137c63 100644
--- a/my-keybindings.el
+++ b/my-keybindings.el
@@ -10,8 +10,6 @@
 (define-key evil-normal-state-map (kbd "j") 'evil-next-visual-line)
 (define-key evil-normal-state-map (kbd "k") 'evil-previous-visual-line)
 (define-key evil-insert-state-map (kbd "ESC") 'evil-normal-state)
-;; close parens ---------------------------------------------------------------
-(global-set-key (kbd ")") 'close-open-paren)
 ;; mu4e -----------------------------------------------------------------------
 (define-key mu4e-main-mode-map (kbd "q") 'mu4e-quit-session)
 
diff --git a/post-extensions.el b/post-extensions.el
index 5ef9ed0c8..09baabe69 100644
--- a/post-extensions.el
+++ b/post-extensions.el
@@ -1,6 +1,5 @@
 (defvar syl:post-extensions
   '(
-    auto-close-parens
     auto-highlight-symbol-mode
     centered-cursor
     dos