Selaa lähdekoodia

update dired line moving functions

pull/1/head
10sr 12 vuotta sitten
vanhempi
commit
ff1ebe8ed9
1 muutettua tiedostoa jossa 10 lisäystä ja 8 poistoa
  1. +10
    -8
      emacs.el

+ 10
- 8
emacs.el Näytä tiedosto

@@ -1290,11 +1290,12 @@ delete; o: select other; j, l: enlarge; h, k: shrink; q: quit."
(if (> arg 0)
(progn
;; (ignore 'my-dired-print-current-dir-and-file)
(forward-line -1)
(when (eq (line-number-at-pos)
(if (eq (line-number-at-pos)
1)
(goto-char (point-max)))
(my-dired-previous-line (if (dired-get-filename nil t)
(goto-char (point-max))
(forward-line -1))
(my-dired-previous-line (if (or (dired-get-filename nil t)
(dired-get-subdir))
(- arg 1)
arg)))
(dired-move-to-filename)))
@@ -1305,11 +1306,12 @@ delete; o: select other; j, l: enlarge; h, k: shrink; q: quit."
(if (> arg 0)
(progn
;; (ignore 'my-dired-print-current-dir-and-file)
(forward-line 1)
(when (eq (point)
(if (eq (point)
(point-max))
(goto-char (point-min)))
(my-dired-next-line (if (dired-get-filename nil t)
(goto-char (point-min))
(forward-line 1))
(my-dired-next-line (if (or (dired-get-filename nil t)
(dired-get-subdir))
(- arg 1)
arg)))
(dired-move-to-filename)))


Ladataan…
Peruuta
Tallenna