Mercurial > emacs
comparison lisp/dired.el @ 6594:bca9e6c8a07f
(dired-mouse-find-file-other-window): New command.
(dired-mode-map): Bind mouse-2.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 30 Mar 1994 17:22:59 +0000 |
| parents | 9217f29851c2 |
| children | dc75f33163fb |
comparison
equal
deleted
inserted
replaced
| 6593:f7729c7b0aa7 | 6594:bca9e6c8a07f |
|---|---|
| 639 ;; dired mode key bindings and initialization | 639 ;; dired mode key bindings and initialization |
| 640 | 640 |
| 641 (defvar dired-mode-map nil "Local keymap for dired-mode buffers.") | 641 (defvar dired-mode-map nil "Local keymap for dired-mode buffers.") |
| 642 (if dired-mode-map | 642 (if dired-mode-map |
| 643 nil | 643 nil |
| 644 ;; Force `f' rather than `e' in the mode doc: | |
| 645 (defalias 'dired-advertised-find-file 'dired-find-file) | |
| 646 ;; This looks ugly when substitute-command-keys uses C-d instead d: | 644 ;; This looks ugly when substitute-command-keys uses C-d instead d: |
| 647 ;; (define-key dired-mode-map "\C-d" 'dired-flag-file-deletion) | 645 ;; (define-key dired-mode-map "\C-d" 'dired-flag-file-deletion) |
| 648 | 646 |
| 649 (setq dired-mode-map (make-keymap)) | 647 (setq dired-mode-map (make-keymap)) |
| 650 (suppress-keymap dired-mode-map) | 648 (suppress-keymap dired-mode-map) |
| 649 (define-key dired-mode-map [mouse-2] 'dired-mouse-find-file-other-window) | |
| 651 ;; Commands to mark or flag certain categories of files | 650 ;; Commands to mark or flag certain categories of files |
| 652 (define-key dired-mode-map "#" 'dired-flag-auto-save-files) | 651 (define-key dired-mode-map "#" 'dired-flag-auto-save-files) |
| 653 (define-key dired-mode-map "*" 'dired-mark-executables) | 652 (define-key dired-mode-map "*" 'dired-mark-executables) |
| 654 (define-key dired-mode-map "." 'dired-clean-directory) | 653 (define-key dired-mode-map "." 'dired-clean-directory) |
| 655 (define-key dired-mode-map "/" 'dired-mark-directories) | 654 (define-key dired-mode-map "/" 'dired-mark-directories) |
| 1021 (progn | 1020 (progn |
| 1022 (dired | 1021 (dired |
| 1023 up) | 1022 up) |
| 1024 (dired-goto-file dir))))) | 1023 (dired-goto-file dir))))) |
| 1025 | 1024 |
| 1025 ;; Force `f' rather than `e' in the mode doc: | |
| 1026 (defalias 'dired-advertised-find-file 'dired-find-file) | |
| 1026 (defun dired-find-file () | 1027 (defun dired-find-file () |
| 1027 "In dired, visit the file or directory named on this line." | 1028 "In dired, visit the file or directory named on this line." |
| 1028 (interactive) | 1029 (interactive) |
| 1029 (find-file (file-name-sans-versions (dired-get-filename) t))) | 1030 (find-file (file-name-sans-versions (dired-get-filename) t))) |
| 1031 | |
| 1032 (defun dired-mouse-find-file-other-window (event) | |
| 1033 "In dired, visit the file or directory name you click on." | |
| 1034 (interactive "e") | |
| 1035 (let (file) | |
| 1036 (save-excursion | |
| 1037 (set-buffer (window-buffer (posn-window (event-end event)))) | |
| 1038 (save-excursion | |
| 1039 (goto-char (posn-point (event-end event))) | |
| 1040 (setq file (dired-get-filename)))) | |
| 1041 (select-window (posn-window (event-end event))) | |
| 1042 (find-file-other-window (file-name-sans-versions file t)))) | |
| 1030 | 1043 |
| 1031 (defun dired-view-file () | 1044 (defun dired-view-file () |
| 1032 "In dired, examine a file in view mode, returning to dired when done. | 1045 "In dired, examine a file in view mode, returning to dired when done. |
| 1033 When file is a directory, show it in this buffer if it is inserted; | 1046 When file is a directory, show it in this buffer if it is inserted; |
| 1034 otherwise, display it in another buffer." | 1047 otherwise, display it in another buffer." |