Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

upgrade ack-and-a-half

  • Loading branch information...
commit 6ca9b3ff76ca34538cb42a41ad8576e0cba6a4ae 1 parent 372a274
Ben Bleything authored October 27, 2012
1  elpa/ack-and-a-half-1.0.0/ack-and-a-half-pkg.el
... ...
@@ -1 +0,0 @@
1  
-(define-package "ack-and-a-half" "1.0.0" "Yet another front-end for ack" (quote nil))
6  .../ack-and-a-half-1.0.0/ack-and-a-half-autoloads.el → .../ack-and-a-half-1.1.0/ack-and-a-half-autoloads.el
@@ -5,7 +5,7 @@
5 5
 
6 6
 ;;;### (autoloads (ack-and-a-half-find-file-same ack-and-a-half-find-file
7 7
 ;;;;;;  ack-and-a-half-same ack-and-a-half) "ack-and-a-half" "ack-and-a-half.el"
8  
-;;;;;;  (20457 43994))
  8
+;;;;;;  (20585 57339 0 0))
9 9
 ;;; Generated autoloads from ack-and-a-half.el
10 10
 
11 11
 (autoload 'ack-and-a-half "ack-and-a-half" "\
@@ -45,8 +45,8 @@ Prompt to find a file found by ack in DIRECTORY.
45 45
 
46 46
 ;;;***
47 47
 
48  
-;;;### (autoloads nil nil ("ack-and-a-half-pkg.el") (20457 43994
49  
-;;;;;;  870891))
  48
+;;;### (autoloads nil nil ("ack-and-a-half-pkg.el") (20585 57339
  49
+;;;;;;  290530 0))
50 50
 
51 51
 ;;;***
52 52
 
1  elpa/ack-and-a-half-1.1.0/ack-and-a-half-pkg.el
... ...
@@ -0,0 +1 @@
  1
+(define-package "ack-and-a-half" "1.1.0" "Yet another front-end for ack" (quote nil))
13  elpa/ack-and-a-half-1.0.0/ack-and-a-half.el → elpa/ack-and-a-half-1.1.0/ack-and-a-half.el
@@ -3,6 +3,7 @@
3 3
 ;; Copyright (C) 2012 Jacob Helwig <jacob@technosorcery.net>
4 4
 ;; Alexey Lebedeff <binarin@binarin.ru>
5 5
 ;; Andrew Stine <stine.drew@gmail.com>
  6
+;; Derek Chen-Becker <derek@precog.com>
6 7
 ;; Gleb Peregud <gleber.p@gmail.com>
7 8
 ;; Kim van Wyk <vanwykk@gmail.com>
8 9
 ;; Ronaldo M. Ferraz <ronaldoferraz@gmail.com>
@@ -10,7 +11,7 @@
10 11
 ;;
11 12
 ;; Author: Jacob Helwig <jacob+ack@technosorcery.net>
12 13
 ;; Homepage: http://technosorcery.net
13  
-;; Version: 1.0.0
  14
+;; Version: 1.1.0
14 15
 ;; URL: https://github.com/jhelwig/ack-and-a-half
15 16
 ;;
16 17
 ;; This file is NOT part of GNU Emacs.
@@ -90,6 +91,13 @@
90 91
   :group 'ack-and-a-half
91 92
   :type 'file)
92 93
 
  94
+(defcustom ack-and-a-half-buffer-name "*Ack-and-a-half*"
  95
+  "*The name of the ack-and-a-half buffer"
  96
+  :group 'ack-and-a-half
  97
+  :type 'string)
  98
+
  99
+(defun ack-buffer-name (mode) ack-and-a-half-buffer-name)
  100
+
93 101
 (defcustom ack-and-a-half-arguments nil
94 102
   "*Extra arguments to pass to ack."
95 103
   :group 'ack-and-a-half
@@ -211,6 +219,7 @@ confirmed.  If t, then always prompt for the directory to use."
211 219
     (plone-mode "plone")
212 220
     (python-mode "python")
213 221
     (ruby-mode "ruby")
  222
+    (scala-mode "scala")
214 223
     (scheme-mode "scheme")
215 224
     (shell-script-mode "shell")
216 225
     (skipped-mode "skipped")
@@ -374,6 +383,8 @@ When optional fourth argument is non-nil, treat the from as a regular expression
374 383
                             (list "--")
375 384
                             (list (ack-and-a-half-shell-quote pattern))
376 385
                             ))
  386
+    (make-local-variable 'compilation-buffer-name-function)
  387
+    (setq compilation-buffer-name-function 'ack-buffer-name)
377 388
     (compilation-start (mapconcat 'identity (nconc (list ack-and-a-half-executable) arguments) " ")
378 389
                        'ack-and-a-half-mode)))
379 390
 

0 notes on commit 6ca9b3f

Please sign in to comment.
Something went wrong with that request. Please try again.