瀏覽代碼

fix my-dired-xx-line

pull/1/head
10sr 12 年之前
父節點
當前提交
969606952f
共有 1 個文件被更改,包括 5 次插入4 次删除
  1. +5
    -4
      emacs.el

+ 5
- 4
emacs.el 查看文件

@@ -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))
))


Loading…
取消
儲存