Merge dired-x's redefinition of dired-initial-position into the main version.

* lisp/dired-x.el (dired-initial-position): Merge into dired.el's version.

* lisp/dired.el (dired-initial-position): Merge dired-x's version here.
(dired-find-subdir): Declare.

* doc/misc/dired-x.texi (Technical Details):
No longer redefines dired-initial-position.

diff --git a/doc/misc/ChangeLog b/doc/misc/ChangeLog
index c11618649dade0eaa37f18ff1a746306ed513a39..882eec34193d1d94bff95d65780dcc3a69300f4c 100644 (file)
--- a/doc/misc/ChangeLog
+++ b/doc/misc/ChangeLog
@@ -1,6 +1,7 @@
 2011-02-19  Glenn Morris  <rgm@gnu.org>
 
-       * dired-x.texi (Technical Details): No longer redefines dired-add-entry.
+       * dired-x.texi (Technical Details): No longer redefines dired-add-entry,
+       or dired-initial-position.
 
 2011-02-18  Glenn Morris  <rgm@gnu.org>
 

diff --git a/doc/misc/dired-x.texi b/doc/misc/dired-x.texi
index 931af07be4ec72be2b580ed615479e89b6e37bef..9f7b40ceb58ef08036fba3b77d8c16a2bf8bec92 100644 (file)
--- a/doc/misc/dired-x.texi
+++ b/doc/misc/dired-x.texi
@@ -185,14 +185,14 @@ from @file{dired.el}
 @code{dired-clean-up-after-deletion}
 @item
 @code{dired-find-buffer-nocreate}
-@item
-@code{dired-initial-position}
 @end itemize
 
 @noindent
 and from @file{dired-aux.el} the function @code{dired-read-shell-command}.
 In addition, once @file{dired.el} is loaded, @code{dired-add-entry}
 obeys Dired Omit mode (@pxref{Omitting Files in Dired}), if it is active.
+Similarly, @code{dired-initial-position} obeys @code{dired-find-subdir}
+(@pxref{Miscellaneous Commands}).
 
 @node Installation, Omitting Files in Dired, Introduction, Top
 @chapter Installation

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8e54788610e58cc20f51d434d3fd8707a3ab8e08..824f5f24d067e43f3e2771332373dc4cf2ea5ed6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2011-02-19  Glenn Morris  <rgm@gnu.org>
 
+       * dired-x.el (dired-initial-position): Merge into dired.el's version.
+       * dired.el (dired-initial-position): Merge dired-x's version here.
+       (dired-find-subdir): Declare.
+
        * dired-x.el (dired-omit-new-add-entry): Merge into dired-add-entry.
        * dired-aux.el (dired-add-entry): Give it a doc-string.
        Merge dired-x's dired-omit handling here.

diff --git a/lisp/dired-x.el b/lisp/dired-x.el
index 0bdf4950a58d17f6fbc9d7694585a557223a7fd9..901614e49d0bee5064192f34759940947b422497 100644 (file)
--- a/lisp/dired-x.el
+++ b/lisp/dired-x.el
@@ -48,8 +48,7 @@
 ;; User customization: M-x customize-group RET dired-x RET.
 
 ;; When loaded this code redefines the following functions of GNU Emacs:
-;; From dired.el: dired-clean-up-after-deletion, dired-find-buffer-nocreate,
-;; and dired-initial-position.
+;; From dired.el: dired-clean-up-after-deletion, dired-find-buffer-nocreate.
 ;; From dired-aux.el: dired-read-shell-command.
 
 ;; *Please* see the `dired-x' info pages for more details.
@@ -1408,16 +1407,6 @@ Considers buffers closer to the car of `buffer-list' to be more recent."
 ;;           (setq dired-buffers (delq elt dired-buffers)))))
 ;;     result))
 
-;; REDEFINE.
-;; Redefines dired.el's version of `dired-initial-position'
-(defun dired-initial-position (dirname)
-  "Where point should go in a new listing of DIRNAME.
-Point assumed at beginning of new subdir line.
-You may redefine this function as you wish, e.g. like in `dired-x.el'."
-  (end-of-line)
-  (if dired-find-subdir (dired-goto-subdir dirname)) ; new
-  (if dired-trivial-filenames (dired-goto-next-nontrivial-file)))
-
 \f
 ;; Does anyone use this? - lrd 6/29/93.
 ;; Apparently people do use it. - lrd 12/22/97.

diff --git a/lisp/dired.el b/lisp/dired.el
index 22d9f91648cd9578c96a22520300aace2684c7f2..ab327d9afbc394a0d1729d45c2457e6e8ff750ed 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -2544,11 +2544,15 @@ instead of `dired-actual-switches'."
         ;; return value of point (i.e., FOUND):
         (goto-char found))))
 
+(defvar dired-find-subdir)
+
+;; FIXME document whatever dired-x is doing.
 (defun dired-initial-position (dirname)
-  ;; Where point should go in a new listing of DIRNAME.
-  ;; Point assumed at beginning of new subdir line.
-  ;; You may redefine this function as you wish, e.g. like in dired-x.el.
+  "Where point should go in a new listing of DIRNAME.
+Point assumed at beginning of new subdir line."
   (end-of-line)
+  (and (featurep 'dired-x) dired-find-subdir
+       (dired-goto-subdir dirname))
   (if dired-trivial-filenames (dired-goto-next-nontrivial-file)))
 \f
 ;; These are hooks which make tree dired work.