From d1d945f72135bb020e8247a51670348d454c1f39 Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Thu, 11 Oct 2012 14:44:44 +0900
Subject: [PATCH] add interactive function make

---
 emacs.el | 51 ++++++++++++++++++++++++++++-----------------------
 1 file changed, 28 insertions(+), 23 deletions(-)

diff --git a/emacs.el b/emacs.el
index 47fc946..e8caba8 100644
--- a/emacs.el
+++ b/emacs.el
@@ -606,34 +606,16 @@ otherwise the path where the library installed."
       t)
      (require 'save-window-size nil t))
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; GNU GLOBAL(gtags)
-;; http://uguisu.skr.jp/Windows/gtags.html
-;; http://eigyr.dip.jp/gtags.html
-;; http://cha.la.coocan.jp/doc/gnu_global.html
-
-(autoload 'gtags-mode "gtags" "" t)
-(setq gtags-mode-hook
-      '(lambda ()
-         (setq gtags-select-buffer-single t)
-         ;; (local-set-key "\M-t" 'gtags-find-tag)
-         ;; (local-set-key "\M-r" 'gtags-find-rtag)
-         ;; (local-set-key "\M-s" 'gtags-find-symbol)
-         ;; (local-set-key "\C-t" 'gtags-pop-stack)
-         (define-key gtags-mode-map (kbd "C-x t h") 'gtags-find-tag-from-here)
-         (define-key gtags-mode-map (kbd "C-x t t") 'gtags-find-tag)
-         (define-key gtags-mode-map (kbd "C-x t r") 'gtags-find-rtag)
-         (define-key gtags-mode-map (kbd "C-x t s") 'gtags-find-symbol)
-         (define-key gtags-mode-map (kbd "C-x t p") 'gtags-find-pattern)
-         (define-key gtags-mdoe-map (kbd "C-x t f") 'gtags-find-file)
-         (define-key gtags-mode-map (kbd "C-x t b") 'gtags-pop-stack) ;back
-         ))
-
 (and (dllib-if-unfound
       "https://github.com/10sr/emacs-lisp/raw/master/read-only-only-mode.el"
       t)
      (require 'read-only-only-mode nil t))
 
+(defun make ()
+  "Run \"make -k \" in current directory."
+  (interactive)
+  (compile "make -k"))
+
 (add-hook 'verilog-mode-hook
           (lambda ()
             (define-key verilog-mode-map ";" 'self-insert-command)))
@@ -871,6 +853,29 @@ otherwise the path where the library installed."
       t)
      (require 'sl nil t))
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; GNU GLOBAL(gtags)
+;; http://uguisu.skr.jp/Windows/gtags.html
+;; http://eigyr.dip.jp/gtags.html
+;; http://cha.la.coocan.jp/doc/gnu_global.html
+
+(autoload 'gtags-mode "gtags" "" t)
+(setq gtags-mode-hook
+      '(lambda ()
+         (setq gtags-select-buffer-single t)
+         ;; (local-set-key "\M-t" 'gtags-find-tag)
+         ;; (local-set-key "\M-r" 'gtags-find-rtag)
+         ;; (local-set-key "\M-s" 'gtags-find-symbol)
+         ;; (local-set-key "\C-t" 'gtags-pop-stack)
+         (define-key gtags-mode-map (kbd "C-x t h") 'gtags-find-tag-from-here)
+         (define-key gtags-mode-map (kbd "C-x t t") 'gtags-find-tag)
+         (define-key gtags-mode-map (kbd "C-x t r") 'gtags-find-rtag)
+         (define-key gtags-mode-map (kbd "C-x t s") 'gtags-find-symbol)
+         (define-key gtags-mode-map (kbd "C-x t p") 'gtags-find-pattern)
+         (define-key gtags-mdoe-map (kbd "C-x t f") 'gtags-find-file)
+         (define-key gtags-mode-map (kbd "C-x t b") 'gtags-pop-stack) ;back
+         ))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; term mode