-;;; Same thing as `dired-buffers-for-dir' of dired.el? - lrd 11/23/93
-;;; (defun dired-buffers-for-dir-exact (dir)
-;;; ;; Return a list of buffers that dired DIR (a directory or wildcard)
-;;; ;; at top level, or as subdirectory.
-;;; ;; Top level matches must match the wildcard part too, if any.
-;;; ;; 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.
-;;; (let ((alist dired-buffers) result elt)
-;;; (while alist
-;;; (setq elt (car alist)
-;;; alist (cdr alist))
-;;; (let ((buf (cdr elt)))
-;;; (if (buffer-name buf)
-;;; ;; Top level must match exactly against dired-directory in
-;;; ;; case one of them is a wildcard.
-;;; (if (or (equal dir (save-excursion (set-buffer buf)
-;;; dired-directory))
-;;; (assoc dir (save-excursion (set-buffer buf)
-;;; dired-subdir-alist)))
-;;; (setq result (cons buf result)))
-;;; ;; else buffer is killed - clean up:
-;;; (setq dired-buffers (delq elt dired-buffers)))))
-;;; result))
-
-;;; REDEFINE.
-;;; Redefines dired.el's version of `dired-initial-position'
+;; Same thing as `dired-buffers-for-dir' of dired.el? - lrd 11/23/93
+;; (defun dired-buffers-for-dir-exact (dir)
+;; ;; Return a list of buffers that dired DIR (a directory or wildcard)
+;; ;; at top level, or as subdirectory.
+;; ;; Top level matches must match the wildcard part too, if any.
+;; ;; 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.
+;; (let ((alist dired-buffers) result elt)
+;; (while alist
+;; (setq elt (car alist)
+;; alist (cdr alist))
+;; (let ((buf (cdr elt)))
+;; (if (buffer-name buf)
+;; ;; Top level must match exactly against dired-directory in
+;; ;; case one of them is a wildcard.
+;; (if (or (equal dir (with-current-buffer buf dired-directory))
+;; (assoc dir (with-current-buffer buf dired-subdir-alist)))
+;; (setq result (cons buf result)))
+;; ;; else buffer is killed - clean up:
+;; (setq dired-buffers (delq elt dired-buffers)))))
+;; result))
+
+;; REDEFINE.
+;; Redefines dired.el's version of `dired-initial-position'