dired: Add beginning-of-buffer variant

2 files changed, 8 insertions, 0 deletions

diff --git a/init.el b/init.el
index 090ee53..0bb399f 100644
--- a/init.el
+++ b/init.el
@@ -1506,6 +1506,8 @@
 
   (after 'dired
     (bind-keys :map dired-mode-map
+               ;; This overrides `dired-clean-directory'.
+               ("." . km/dired-beginning-of-buffer)
                ;; This overrides `dired-find-file', which is also
                ;; bound to "f".
                ("e" . km/org-open-dired-marked-files)
diff --git a/lisp/km-dired.el b/lisp/km-dired.el
index 00e0163..9062c61 100644
--- a/lisp/km-dired.el
+++ b/lisp/km-dired.el
@@ -93,6 +93,12 @@
                              "%Y%m%d%H%M.%S"
                              (nth 5 (file-attributes it)))))))
 
+;;;###autoload
+(defun km/dired-beginning-of-buffer ()
+  (interactive)
+  (beginning-of-buffer)
+  (dired-next-line 1))
+
 
 ;;; Copying file names