Explorar el Código

fix my-dired-xx-line

pull/1/head
10sr hace 12 años
padre
commit
969606952f
Se han modificado 1 ficheros con 5 adiciones y 4 borrados
  1. +5
    -4
      emacs.el

+ 5
- 4
emacs.el Ver fichero

@@ -1010,7 +1010,7 @@ Return nil if library unfound and failed to download, otherwise the path where t
(progn
(message "calculating du...")
(shell-command (concat "du -hsD "
f)))
(shell-quote-argument f))))
(shell-command (concat "file "
f)))))

@@ -1032,8 +1032,8 @@ Return nil if library unfound and failed to download, otherwise the path where t
(dired-previous-line 1)
(when (eq (line-number-at-pos)
2)
(goto-line (- (line-number-at-pos (point-max))
1))
(goto-char (point-max))
(forward-line -1)
(dired-move-to-filename))
(my-dired-previous-line (- arg 1))
))
@@ -1046,7 +1046,8 @@ Return nil if library unfound and failed to download, otherwise the path where t
(dired-next-line 1)
(when (eq (point)
(point-max))
(goto-line 3)
(goto-char (point-min))
(forward-line 2)
(dired-move-to-filename))
(my-dired-next-line (- arg 1))
))


Cargando…
Cancelar
Guardar