mirror of
https://codeberg.org/scip/dot-emacs.git
synced 2025-12-17 12:30:59 +01:00
fixed ack problems
This commit is contained in:
3
TODO.md
3
TODO.md
@@ -1,3 +0,0 @@
|
|||||||
# c-y y doesnt work
|
|
||||||
unknown argument for?!?!
|
|
||||||
# ack 'q' still asks to kill process
|
|
||||||
|
|||||||
@@ -1,11 +1,20 @@
|
|||||||
;; https://github.com/leoliu/ack-el
|
;; https://github.com/leoliu/ack-el
|
||||||
|
|
||||||
(defun tvd-kill-ack()
|
(defun tvd-kill-ack()
|
||||||
|
(interactive)
|
||||||
|
(let ((kill-buffer-query-functions nil))
|
||||||
|
(delete-window)
|
||||||
|
(kill-buffer "*ack*")))
|
||||||
|
|
||||||
|
(defun tvd-hook-kill-ack()
|
||||||
;; FIXME: still asks!
|
;; FIXME: still asks!
|
||||||
(local-set-key (kbd "q") 'kill-buffer-and-window))
|
(local-set-key (kbd "q") 'tvd-kill-ack))
|
||||||
|
|
||||||
(use-package ack
|
(use-package ack
|
||||||
:config
|
:config
|
||||||
(setq ack-defaults-function 'ack-legacy-defaults))
|
(setq ack-defaults-function 'ack-legacy-defaults)
|
||||||
|
(advice-add 'ack-mode :after
|
||||||
|
'(lambda ()
|
||||||
|
(switch-to-buffer "*ack*"))))
|
||||||
|
|
||||||
(add-hook 'ack-mode-hook 'tvd-kill-ack)
|
(add-hook 'ack-mode-hook 'tvd-hook-kill-ack)
|
||||||
|
|||||||
Reference in New Issue
Block a user