From abf07f10e27ee45322c3d2e6cb8b9e71944bcc70 Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Sat, 27 Oct 2012 02:19:25 +0900
Subject: [PATCH] add sexps about foreign-regexp, but disable it because of
 error

---
 emacs.el | 50 ++++++++++++++++++++++++++++++--------------------
 1 file changed, 30 insertions(+), 20 deletions(-)

diff --git a/emacs.el b/emacs.el
index 9d64951..974fd44 100644
--- a/emacs.el
+++ b/emacs.el
@@ -691,6 +691,36 @@ delete; o: select other; j, l: enlarge; h, k: shrink; q: quit."
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; some modes and hooks
 
+;; http://fukuyama.co/foreign-regexp
+'(and (dllib-if-unfound
+       "https://raw.github.com/k-talo/foreign-regexp.el/master/foreign-regexp.el"
+       t)
+      (require 'foreign-regexp nil t)
+      (progn
+        (setq foreign-regexp/regexp-type 'perl)
+        '(setq reb-re-syntax 'foreign-regexp)
+        ))
+
+(require 'session nil t)
+
+(and (dllib-if-unfound "https://raw.github.com/10sr/emacs-lisp/master/gtkbm.el"
+                       t)
+     (require 'gtkbm nil t)
+     (global-set-key (kbd "C-x C-d") 'gtkbm))
+
+(and (dllib-if-unfound
+      "https://raw.github.com/10sr/emacs-lisp/master/git-command.el"
+      t)
+     (require 'git-command nil t)
+     (define-key ctl-x-map "g" 'git-command))
+
+(and (dllib-if-unfound
+      "http://www.emacswiki.org/emacs/download/sl.el"
+      t)
+     (require 'sl nil t))
+
+(defalias 'qcalc 'quick-calc)
+
 (require 'simple nil t)
 
 (add-hook 'makefile-mode-hook
@@ -881,26 +911,6 @@ delete; o: select other; j, l: enlarge; h, k: shrink; q: quit."
                             'newframe
                           'pushy))
 
-(require 'session nil t)
-
-(and (dllib-if-unfound "https://raw.github.com/10sr/emacs-lisp/master/gtkbm.el"
-                       t)
-     (require 'gtkbm nil t)
-     (global-set-key (kbd "C-x C-d") 'gtkbm))
-
-(and (dllib-if-unfound
-      "https://raw.github.com/10sr/emacs-lisp/master/git-command.el"
-      t)
-     (require 'git-command nil t)
-     (define-key ctl-x-map "g" 'git-command))
-
-(and (dllib-if-unfound
-      "http://www.emacswiki.org/emacs/download/sl.el"
-      t)
-     (require 'sl nil t))
-
-(defalias 'qcalc 'quick-calc)
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; python