Mercurial > emacs
changeset 101717:3f1db2aeea5a
(vc-dir-mouse-map):
(vc-default-dir-printer):
(vc-dir-find-file-other-window): Undo previous change, it breaks
the behavior of mouse-2.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Sat, 31 Jan 2009 17:26:53 +0000 |
| parents | 79f16674b60b |
| children | e5e2e4109ea1 |
| files | lisp/ChangeLog lisp/vc-dir.el |
| diffstat | 2 files changed, 8 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Jan 31 17:00:54 2009 +0000 +++ b/lisp/ChangeLog Sat Jan 31 17:26:53 2009 +0000 @@ -9,6 +9,11 @@ 2009-01-31 Dan Nicolaescu <dann@ics.uci.edu> + * vc-dir.el (vc-dir-mouse-map): + (vc-default-dir-printer): + (vc-dir-find-file-other-window): Undo previous change, it breaks + the behavior of mouse-2. + * vc-svn.el (vc-svn-dir-status): Disable the vc-stay-local-p logic, it makes the makes the normal case too slow.
--- a/lisp/vc-dir.el Sat Jan 31 17:00:54 2009 +0000 +++ b/lisp/vc-dir.el Sat Jan 31 17:26:53 2009 +0000 @@ -689,10 +689,9 @@ (interactive) (find-file (vc-dir-current-file))) -(defun vc-dir-find-file-other-window (&optional event) +(defun vc-dir-find-file-other-window () "Find the file on the current line, in another window." - (interactive (list last-input-event)) - (if event (posn-set-point (event-end event))) + (interactive) (find-file-other-window (vc-dir-current-file))) (defun vc-dir-isearch () @@ -1144,13 +1143,6 @@ (propertize "Please add backend specific headers here. It's easy!" 'face 'font-lock-warning-face))) -;; Keep existing map. -(defvar vc-dir-mouse-map - (let ((map vc-dir-mode-map)) - (define-key map [mouse-2] 'vc-dir-find-file-other-window) - map) - "Local keymap for visiting a file.") - (defun vc-default-dir-printer (backend fileentry) "Pretty print FILEENTRY." ;; If you change the layout here, change vc-dir-move-to-goal-column. @@ -1177,8 +1169,7 @@ (if isdir "Directory\nVC operations can be applied to it\nmouse-3: Pop-up menu" "File\nmouse-3: Pop-up menu") - 'mouse-face 'highlight - 'local-map vc-dir-mouse-map)))) + 'mouse-face 'highlight)))) (defun vc-default-extra-status-menu (backend) nil)