Prevent error if there is no repository. Fix highlighting of line numbers.
authorOleksandr Gavenko <gavenkoa@gmail.com>
Thu, 02 Mar 2017 22:41:44 +0200
changeset 1501 636e49ed6d27
parent 1500 6401d60fd71e
child 1502 72c63cea35d3
Prevent error if there is no repository. Fix highlighting of line numbers.
ag.el
--- a/ag.el	Wed Mar 01 16:15:48 2017 +0200
+++ b/ag.el	Thu Mar 02 22:41:44 2017 +0200
@@ -41,7 +41,7 @@
   "Face for line number.")
 
 (defvar my/ag-keywords
-  '(("[1-9][0-9]\\{0,5\\}:" . (0 'my/ag-lineno-face))
+  '(("^[1-9][0-9]\\{0,5\\}:" . (0 'my/ag-lineno-face))
     ("^[^:]\\{6\\}.*" . (0 'my/ag-path-face))))
 
 (defun my/ag-font-lock-extend-region ()
@@ -87,15 +87,13 @@
      :command (list "ag" "--group" "--nocolor" regex))))
 
 (defun my/ag-project-root ()
-  (let ( (backend (vc-responsible-backend default-directory)) )
-    (if backend
-        (condition-case err
+  (condition-case err
+      (let ( backend )
+        (setq backend (vc-responsible-backend default-directory))
+        (if backend
             (vc-call-backend backend 'root default-directory)
-          (vc-not-supported
-           (unless (eq (cadr err) 'root)
-             (signal (car err) (cdr err)))
-           nil))
-      default-directory)))
+          default-directory))
+    (error default-directory)))
 
 ;;;###autoload
 (defun my/ag (regex)