[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[ELPA-diffs] /srv/bzr/emacs/elpa r336: New command ack-yank-symbol-at-po
From: |
Leo Liu |
Subject: |
[ELPA-diffs] /srv/bzr/emacs/elpa r336: New command ack-yank-symbol-at-point and bind it to M-Y |
Date: |
Sun, 13 Jan 2013 01:47:50 +0800 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 336
committer: Leo Liu <address@hidden>
branch nick: elpa
timestamp: Sun 2013-01-13 01:47:50 +0800
message:
New command ack-yank-symbol-at-point and bind it to M-Y
Thanks to address@hidden for request and testing.
Also update copyright years.
modified:
packages/ack/README
packages/ack/ack.el
packages/ack/pcmpl-ack.el
=== modified file 'packages/ack/README'
--- a/packages/ack/README 2012-10-08 14:12:54 +0000
+++ b/packages/ack/README 2013-01-12 17:47:50 +0000
@@ -15,6 +15,8 @@
- `M-I' inserts a template for case-insensitive file name search
- `M-G' inserts a template for `git grep', `hg grep' or `bzr grep'
+- `M-Y' inserts the symbol at point from the window before entering
+ the minibuffer
- `TAB' completes ack options
This package does not require `--nogroup' nor `--noheading'.
=== modified file 'packages/ack/ack.el'
--- a/packages/ack/ack.el 2012-11-18 16:05:46 +0000
+++ b/packages/ack/ack.el 2013-01-12 17:47:50 +0000
@@ -1,6 +1,6 @@
;;; ack.el --- Emacs interface to ack
-;; Copyright (C) 2012 Free Software Foundation, Inc.
+;; Copyright (C) 2012, 2013 Free Software Foundation, Inc.
;; Author: Leo Liu <address@hidden>
;; Version: 0.8
@@ -308,6 +308,16 @@
(delete-minibuffer-contents)
(skeleton-insert '(nil cmd " '" _ "'"))))
+(defun ack-yank-symbol-at-point ()
+ "Yank the symbol from the window before entering the minibuffer."
+ (interactive)
+ (let ((symbol (and (minibuffer-selected-window)
+ (with-current-buffer
+ (window-buffer (minibuffer-selected-window))
+ (thing-at-point 'symbol)))))
+ (if symbol (insert symbol)
+ (minibuffer-message "No symbol found"))))
+
(defvar ack-minibuffer-local-map
(let ((map (make-sparse-keymap)))
(set-keymap-parent map minibuffer-local-map)
@@ -316,6 +326,7 @@
'pcomplete))
(define-key map "\M-I" 'ack-skel-file)
(define-key map "\M-G" 'ack-skel-vc-grep)
+ (define-key map "\M-Y" 'ack-yank-symbol-at-point)
(define-key map "'" 'skeleton-pair-insert-maybe)
map)
"Keymap used for reading `ack' command and args in minibuffer.")
=== modified file 'packages/ack/pcmpl-ack.el'
--- a/packages/ack/pcmpl-ack.el 2012-10-08 03:54:59 +0000
+++ b/packages/ack/pcmpl-ack.el 2013-01-12 17:47:50 +0000
@@ -1,6 +1,6 @@
;;; pcmpl-ack.el --- completion for ack tool
-;; Copyright (C) 2012 Free Software Foundation, Inc.
+;; Copyright (C) 2012, 2013 Free Software Foundation, Inc.
;; Author: Leo Liu <address@hidden>
;; Keywords: tools, processes, convenience
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [ELPA-diffs] /srv/bzr/emacs/elpa r336: New command ack-yank-symbol-at-point and bind it to M-Y,
Leo Liu <=