diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-04-12 15:14:16 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-04-12 15:14:16 -0400 |
| commit | a544e7c143dc0db6b3f7a37a8fb51eec083f3479 (patch) | |
| tree | 05f18f9f7f3daa798d8c228e0db300e42242e49c /lisp/vc-dir.el | |
| parent | a1979d8e663dda359d3edfda7052721241a5da42 (diff) | |
(vc-dir-kill-line): New command.
(vc-dir-mode-map): Bind it to C-k.
Diffstat (limited to 'lisp/vc-dir.el')
| -rw-r--r-- | lisp/vc-dir.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/vc-dir.el b/lisp/vc-dir.el index 1eaec28e8b..4b95321d36 100644 --- a/lisp/vc-dir.el +++ b/lisp/vc-dir.el @@ -263,6 +263,7 @@ See `run-hooks'." (define-key map [mouse-2] 'vc-dir-toggle-mark) (define-key map [follow-link] 'mouse-face) (define-key map "x" 'vc-dir-hide-up-to-date) + (define-key map [?\C-k] 'vc-dir-kill-line) (define-key map "S" 'vc-dir-search) ;; FIXME: Maybe use A like dired? (define-key map "Q" 'vc-dir-query-replace-regexp) (define-key map (kbd "M-s a C-s") 'vc-dir-isearch) @@ -1088,6 +1089,13 @@ outside of VC) and one wants to do some operation on it." (ewoc-delete vc-ewoc crt)) (setq crt prev))))) +(defun vc-dir-kill-line () + "Remove the current line from display." + (interactive) + (let ((crt (ewoc-locate vc-ewoc)) + (inhibit-read-only t)) + (ewoc-delete vc-ewoc crt))) + (defun vc-dir-printer (fileentry) (vc-call-backend vc-dir-backend 'dir-printer fileentry)) |