Commit c1b97b44 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(dired-buffers-for-dir): Delete debugging code.

(dired-in-this-tree): Likewise.
parent 9df38cef
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment