diff options
| author | Andreas Schwab | 2002-10-12 23:33:06 +0000 |
|---|---|---|
| committer | Andreas Schwab | 2002-10-12 23:33:06 +0000 |
| commit | 1ba6c0f23bab738be5c170de306633d9bcdbc379 (patch) | |
| tree | 4c32e2e13f2687f0516723a01ee189e6d30ae34b | |
| parent | 4a9f0faea66f0bf6f6523c00041da84e0ba43531 (diff) | |
| download | emacs-1ba6c0f23bab738be5c170de306633d9bcdbc379.tar.gz emacs-1ba6c0f23bab738be5c170de306633d9bcdbc379.zip | |
(dired-insert-directory): When looking for existing
indentation, goto OPOINT instead of beginning of buffer.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/dired.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4fbeade0480..6d69ac5083b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2002-10-13 Andreas Schwab <schwab@suse.de> | ||
| 2 | |||
| 3 | * dired.el (dired-insert-directory): When looking for existing | ||
| 4 | indentation, goto OPOINT instead of beginning of buffer. | ||
| 5 | |||
| 1 | 2002-10-12 Michael Kifer <kifer@cs.stonybrook.edu> | 6 | 2002-10-12 Michael Kifer <kifer@cs.stonybrook.edu> |
| 2 | 7 | ||
| 3 | * ediff-init.el (ediff-frame-char-height): Use frame-selected-window. | 8 | * 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." | |||
| 701 | ;; If we used --dired and it worked, the lines are already indented. | 701 | ;; If we used --dired and it worked, the lines are already indented. |
| 702 | ;; Otherwise, indent them. | 702 | ;; Otherwise, indent them. |
| 703 | (unless (save-excursion | 703 | (unless (save-excursion |
| 704 | (beginning-of-buffer) | 704 | (goto-char opoint) |
| 705 | (looking-at " ")) | 705 | (looking-at " ")) |
| 706 | (let ((indent-tabs-mode nil)) | 706 | (let ((indent-tabs-mode nil)) |
| 707 | (indent-rigidly opoint (point) 2))) | 707 | (indent-rigidly opoint (point) 2))) |