Mercurial > emacs

changeset 8794:5921ea6d7f98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(dired-buffers-for-dir): Delete debugging code. (dired-in-this-tree): Likewise.
author Richard M. Stallman <rms@gnu.org>
date Fri, 16 Sep 1994 21:39:41 +0000
parents babecf4f73c6
children 15814086be44
files lisp/dired.el
diffstat 1 files changed, 0 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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)))