From c1b97b443cc54c2e5789a4b968484bee160fd7c8 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 16 Sep 1994 21:39:41 +0000 Subject: [PATCH] (dired-buffers-for-dir): Delete debugging code. (dired-in-this-tree): Likewise. --- lisp/dired.el | 6 ------ 1 file changed, 6 deletions(-) diff --git a/lisp/dired.el b/lisp/dired.el index d89bfbb17d6..43e1e8cfea9 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -1258,9 +1258,6 @@ Optional arg NO-ERROR-IF-NOT-FILEP means return nil if no filename on ;; The list is in reverse order of buffer creation, most recent last. ;; As a side effect, killed dired buffers for DIR are removed from ;; dired-buffers. - ;; For testing. -MDE 8/21/94 - (if (not (string-equal dir (expand-file-name dir))) - (debug)) (setq dir (file-name-as-directory dir)) (let ((alist dired-buffers) result elt buf) (while alist @@ -1301,9 +1298,6 @@ Optional arg NO-ERROR-IF-NOT-FILEP means return nil if no filename on (defun dired-in-this-tree (file dir) ;;"Is FILE part of the directory tree starting at DIR?" - ;; For testing. -MDE 8/21/94 - (if (not (string-equal dir (expand-file-name dir))) - (debug)) (let (case-fold-search) (string-match (concat "^" (regexp-quote dir)) file))) -- 2.39.5