Browse Source

add function my-dired-diff, using mark for selecting old file

pull/1/head
10sr 13 years ago
parent
commit
6d2c86a45e
1 changed files with 9 additions and 0 deletions
  1. +9
    -0
      .emacs.el

+ 9
- 0
.emacs.el View File

@@ -1027,6 +1027,15 @@ if arg is omitted use value of `buffer-list'."

(require 'dired)

(defun my-dired-diff ()
""
(interactive)
(let ((files (dired-get-marked-files nil nil nil t)))
(if (eq (car files)
t)
(diff (cadr files) (dired-get-filename))
(message "One files must be marked!"))))

(require 'dired-aux) ;; needed to use dired-dwim-target-directory
(defun my-dired-do-compress-or-uncompress ()
""


Loading…
Cancel
Save