added an autoload and a keybinding for zap-up-to-char

This commit is contained in:
Bozhidar Batsov 2012-12-26 10:38:03 +02:00
parent 1c5658d882
commit 0bc3897191

View file

@ -68,6 +68,10 @@
;; A complementary binding to the apropos-command (C-h a) ;; A complementary binding to the apropos-command (C-h a)
(define-key 'help-command "A" 'apropos) (define-key 'help-command "A" 'apropos)
;; a complement to the zap-to-char command, that doesn't eat up the target character
(autoload 'zap-up-to-char "misc" "Kill up to, but not including ARGth occurrence of CHAR.")
(global-set-key (kbd "M-Z") 'zap-up-to-char)
;; Activate occur easily inside isearch ;; Activate occur easily inside isearch
(define-key isearch-mode-map (kbd "C-o") (define-key isearch-mode-map (kbd "C-o")
(lambda () (interactive) (lambda () (interactive)