From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 16 Sep 1994 21:39:41 +0000 (+0000)
Subject: (dired-buffers-for-dir): Delete debugging code.
X-Git-Tag: emacs-19.34~7060
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c1b97b443cc54c2e5789a4b968484bee160fd7c8;p=emacs.git

(dired-buffers-for-dir): Delete debugging code.
(dired-in-this-tree): Likewise.
---

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