From: Andreas Schwab <schwab@suse.de>
Date: Sat, 12 Oct 2002 23:33:06 +0000 (+0000)
Subject: (dired-insert-directory): When looking for existing
X-Git-Tag: ttn-vms-21-2-B4~12856
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1ba6c0f23bab738be5c170de306633d9bcdbc379;p=emacs.git

(dired-insert-directory): When looking for existing
indentation, goto OPOINT instead of beginning of buffer.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4fbeade0480..6d69ac5083b 100644
--- 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 6aebd08d487..e26447fbd2f 100644
--- 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)))