mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(vc-dir-mode-map): Bind it to C-k.
This commit is contained in:
Stefan Monnier 2010-04-12 15:14:16 -04:00
parent a1979d8e66
commit a544e7c143
2 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
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.

8
lisp/vc-dir.el
View file

@ -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))