|
@@ -1405,21 +1405,6 @@ otherwise, use `pack-default-extension' for pack." |
|
|
(when (file-readable-p file) |
|
|
(when (file-readable-p file) |
|
|
(delete-file file))))) |
|
|
(delete-file file))))) |
|
|
|
|
|
|
|
|
;; http://homepage1.nifty.com/blankspace/emacs/dired.html |
|
|
|
|
|
;; (add-hook 'dired-load-hook |
|
|
|
|
|
;; (lambda () |
|
|
|
|
|
;; (load-library "ls-lisp") |
|
|
|
|
|
;; (setq ls-lisp-dirs-first t) |
|
|
|
|
|
;; (setq dired-listing-switches "-alhF"))) ;これ書く場所間違えてね? |
|
|
|
|
|
|
|
|
|
|
|
;; (defadvice dired-next-line (after dired-next-line-print-directory activate) |
|
|
|
|
|
;; "print current directory when go down line" |
|
|
|
|
|
;; (dired-print-current-dir-and-file)) |
|
|
|
|
|
|
|
|
|
|
|
;; (defadvice dired-previous-line (after dired-previous-line-print-directory activate) |
|
|
|
|
|
;; "print current directory when go up line" |
|
|
|
|
|
;; (dired-print-current-dir-and-file)) |
|
|
|
|
|
|
|
|
|
|
|
;; http://blog.livedoor.jp/tek_nishi/archives/4693204.html |
|
|
;; http://blog.livedoor.jp/tek_nishi/archives/4693204.html |
|
|
|
|
|
|
|
|
(defun my-dired-toggle-mark() |
|
|
(defun my-dired-toggle-mark() |
|
|