# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 779751581 0
# Node ID 5921ea6d7f983f14cc9b7301d5865c578a6f2be6
# Parent  babecf4f73c66e3a0d46a606b068c6d2df35a019
(dired-buffers-for-dir): Delete debugging code.
(dired-in-this-tree): Likewise.

diff -r babecf4f73c6 -r 5921ea6d7f98 lisp/dired.el
--- a/lisp/dired.el	Fri Sep 16 21:35:29 1994 +0000
+++ b/lisp/dired.el	Fri Sep 16 21:39:41 1994 +0000
@@ -1258,9 +1258,6 @@
 ;; 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 @@
 
 (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)))