(dired-insert-directory): When looking for existing

indentation, goto OPOINT instead of beginning of buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4fbeade0480801f7a793cd6ddd607999dab486c2..6d69ac5083bdb694e4781219688f861f711d82b3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-10-13  Andreas Schwab  <schwab@suse.de>
+
+       * dired.el (dired-insert-directory): When looking for existing
+       indentation, goto OPOINT instead of beginning of buffer.
+
 2002-10-12  Michael Kifer  <kifer@cs.stonybrook.edu>
 
        * ediff-init.el (ediff-frame-char-height): Use frame-selected-window.

diff --git a/lisp/dired.el b/lisp/dired.el
index 6aebd08d4875c790899a48e223d4b9eb7b0fffda..e26447fbd2f9c0d13bbba5048007520f0a133f25 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -701,7 +701,7 @@ If HDR is non-nil, insert a header line with the directory name."
     ;; If we used --dired and it worked, the lines are already indented.
     ;; Otherwise, indent them.
     (unless (save-excursion
-             (beginning-of-buffer)
+             (goto-char opoint)
              (looking-at "  "))
       (let ((indent-tabs-mode nil))
        (indent-rigidly opoint (point) 2)))