Commit a544e7c1 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(vc-dir-kill-line): New command.

(vc-dir-mode-map): Bind it to C-k.
parent a1979d8e
2010-04-12 Stefan Monnier <monnier@iro.umontreal.ca>
* vc-dir.el (vc-dir-kill-line): New command.
(vc-dir-mode-map): Bind it to C-k.
* bookmark.el (bookmark-insert-location): Handle a nil filename.
* woman.el: Add bookmark declarations to silence the compiler.
......
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment