# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1487803326 -7200
# Node ID 874f705f7be4f356fa31934a2c2b55e6294c2632
# Parent  d242edfd13213ceb9d86e446beb0378f9af4fb48
Use own implementation of ag frontend.

diff -r d242edfd1321 -r 874f705f7be4 .emacs-my
--- a/.emacs-my	Thu Feb 23 00:40:50 2017 +0200
+++ b/.emacs-my	Thu Feb 23 00:42:06 2017 +0200
@@ -817,19 +817,7 @@
     (cl-flet ( (grep-compute-defaults () nil) )
       (call-interactively #'rgrep))))
 
-(ignore-errors (require 'ag))
-
-(defun my/ag (regex)
-  "Search with ag from project roor without prefix and from
-`default-directory' with prefix."
-  (interactive (list (ag/read-from-minibuffer "Search regex")))
-  (if current-prefix-arg
-      (let ((current-prefix-arg nil)) (ag-regexp regex default-directory))
-    (ag-project-regexp regex)))
-
-(setq ag-highlight-search t)
-(when (featurep 'ag)
-  (global-set-key [f7] 'my/ag))
+(global-set-key [f7] 'my/ag)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "highlighting")
diff -r d242edfd1321 -r 874f705f7be4 .emacs-obsolete
--- a/.emacs-obsolete	Thu Feb 23 00:40:50 2017 +0200
+++ b/.emacs-obsolete	Thu Feb 23 00:42:06 2017 +0200
@@ -354,3 +354,19 @@
   (smex-initialize)
   (global-set-key (kbd "M-X") 'smex))
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "ag)
+
+(ignore-errors (require 'ag))
+
+(defun my/ag (regex)
+  "Search with ag from project roor without prefix and from
+`default-directory' with prefix."
+  (interactive (list (ag/read-from-minibuffer "Search regex")))
+  (if current-prefix-arg
+      (let ((current-prefix-arg nil)) (ag-regexp regex default-directory))
+    (ag-project-regexp regex)))
+
+(setq ag-highlight-search t)
+(when (featurep 'ag)
+  (global-set-key [f7] 'my/ag))