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