Remove reference to my del script

Author: jwiegley

git-dired.el

@@ -37,48 +37,43 @@
 
      (defun dired-omit-regexp ()
        (let ((file (expand-file-name ".git"))
-	     parent-dir)
-	 (while (and (not (file-exists-p file))
-		     (progn
-		       (setq parent-dir
-			     (file-name-directory
-			      (directory-file-name
-			       (file-name-directory file))))
-		       ;; Give up if we are already at the root dir.
-		       (not (string= (file-name-directory file)
-				     parent-dir))))
-	   ;; Move up to the parent dir and try again.
-	   (setq file (expand-file-name ".git" parent-dir)))
-	 ;; If we found a change log in a parent, use that.
-	 (if (file-exists-p file)
-	     (let ((regexp (funcall dired-omit-regexp-orig))
-		   (omitted-files (shell-command-to-string
-				   "git clean -d -x -n")))
-	       (if (= 0 (length omitted-files))
-		   regexp
-		 (concat
-		  regexp
-		  (if (> (length regexp) 0)
-		      "\\|" "")
-		  "\\("
-		  (mapconcat
-		   #'(lambda (str)
-		       (concat "^"
-			       (regexp-quote
-				(substring str 13
-					   (if (= ?/ (aref str (1- (length str))))
-					       (1- (length str))
-					     nil)))
-			       "$"))
-		   (split-string omitted-files "\n" t)
-		   "\\|")
-		  "\\)")))
-	   (funcall dired-omit-regexp-orig))))
-
-     (defun dired-delete-file (file &optional recursive)
-       (if recursive
-	   (call-process "/Users/johnw/bin/del" nil nil nil "-fr" file)
-	 (call-process "/Users/johnw/bin/del" nil nil nil file)))))
+             parent-dir)
+         (while (and (not (file-exists-p file))
+                     (progn
+                       (setq parent-dir
+                             (file-name-directory
+                              (directory-file-name
+                               (file-name-directory file))))
+                       ;; Give up if we are already at the root dir.
+                       (not (string= (file-name-directory file)
+                                     parent-dir))))
+           ;; Move up to the parent dir and try again.
+           (setq file (expand-file-name ".git" parent-dir)))
+         ;; If we found a change log in a parent, use that.
+         (if (file-exists-p file)
+             (let ((regexp (funcall dired-omit-regexp-orig))
+                   (omitted-files (shell-command-to-string
+                                   "git clean -d -x -n")))
+               (if (= 0 (length omitted-files))
+                   regexp
+                 (concat
+                  regexp
+                  (if (> (length regexp) 0)
+                      "\\|" "")
+                  "\\("
+                  (mapconcat
+                   #'(lambda (str)
+                       (concat "^"
+                               (regexp-quote
+                                (substring str 13
+                                           (if (= ?/ (aref str (1- (length str))))
+                                               (1- (length str))
+                                             nil)))
+                               "$"))
+                   (split-string omitted-files "\n" t)
+                   "\\|")
+                  "\\)")))
+           (funcall dired-omit-regexp-orig))))))
 
 (provide 'git-dired)