blob: b9f54bc7b7c85f152bdec86df8aaee9a7b7ad4b0 (
about) (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
;; jump to first or last file in dired, not to the very top or bottom
(require 'dired)
(require 'dired+)
(defun my/dired-back-to-top ()
(interactive)
(beginning-of-buffer)
(dired-next-line 4))
(define-key dired-mode-map
(vector 'remap 'beginning-of-buffer) 'my/dired-back-to-top)
(defun my/dired-jump-to-bottom ()
(interactive)
(end-of-buffer)
(dired-next-line -1))
(define-key dired-mode-map
(vector 'remap 'end-of-buffer) 'my/dired-jump-to-bottom)
(define-key dired-mode-map
(kbd "^") (lambda () (interactive) (find-alternate-file ".."))) ; was dired-up-directory
;; TODO: what does this do?
(put 'dired-find-alternate-file 'disabled nil)
|