Mercurial > emacs
comparison lisp/vc-dir.el @ 107841:2cdeb4c70d45
(vc-dir-kill-line): New command.
(vc-dir-mode-map): Bind it to C-k.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Mon, 12 Apr 2010 15:14:16 -0400 |
parents | 7c9abe9e21d1 |
children | 4d8277a44bb4 |
comparison
equal
deleted
inserted
replaced
107840:e84bec592536 | 107841:2cdeb4c70d45 |
---|---|
261 (define-key map "\C-c\C-c" 'vc-dir-kill-dir-status-process) | 261 (define-key map "\C-c\C-c" 'vc-dir-kill-dir-status-process) |
262 (define-key map [down-mouse-3] 'vc-dir-menu) | 262 (define-key map [down-mouse-3] 'vc-dir-menu) |
263 (define-key map [mouse-2] 'vc-dir-toggle-mark) | 263 (define-key map [mouse-2] 'vc-dir-toggle-mark) |
264 (define-key map [follow-link] 'mouse-face) | 264 (define-key map [follow-link] 'mouse-face) |
265 (define-key map "x" 'vc-dir-hide-up-to-date) | 265 (define-key map "x" 'vc-dir-hide-up-to-date) |
266 (define-key map [?\C-k] 'vc-dir-kill-line) | |
266 (define-key map "S" 'vc-dir-search) ;; FIXME: Maybe use A like dired? | 267 (define-key map "S" 'vc-dir-search) ;; FIXME: Maybe use A like dired? |
267 (define-key map "Q" 'vc-dir-query-replace-regexp) | 268 (define-key map "Q" 'vc-dir-query-replace-regexp) |
268 (define-key map (kbd "M-s a C-s") 'vc-dir-isearch) | 269 (define-key map (kbd "M-s a C-s") 'vc-dir-isearch) |
269 (define-key map (kbd "M-s a M-C-s") 'vc-dir-isearch-regexp) | 270 (define-key map (kbd "M-s a M-C-s") 'vc-dir-isearch-regexp) |
270 | 271 |
1086 ;; Remove files in the up-to-date state. | 1087 ;; Remove files in the up-to-date state. |
1087 (eq (vc-dir-fileinfo->state data) 'up-to-date)) | 1088 (eq (vc-dir-fileinfo->state data) 'up-to-date)) |
1088 (ewoc-delete vc-ewoc crt)) | 1089 (ewoc-delete vc-ewoc crt)) |
1089 (setq crt prev))))) | 1090 (setq crt prev))))) |
1090 | 1091 |
1092 (defun vc-dir-kill-line () | |
1093 "Remove the current line from display." | |
1094 (interactive) | |
1095 (let ((crt (ewoc-locate vc-ewoc)) | |
1096 (inhibit-read-only t)) | |
1097 (ewoc-delete vc-ewoc crt))) | |
1098 | |
1091 (defun vc-dir-printer (fileentry) | 1099 (defun vc-dir-printer (fileentry) |
1092 (vc-call-backend vc-dir-backend 'dir-printer fileentry)) | 1100 (vc-call-backend vc-dir-backend 'dir-printer fileentry)) |
1093 | 1101 |
1094 (defun vc-dir-deduce-fileset (&optional state-model-only-files) | 1102 (defun vc-dir-deduce-fileset (&optional state-model-only-files) |
1095 (let ((marked (vc-dir-marked-files)) | 1103 (let ((marked (vc-dir-marked-files)) |