lisp/dired.el (dired-insert-directory): Revert change in 2013-06-21T12:24:37Z!lekktu...

Fixes: debbugs:15028

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ad7d82c30d743cdb859a9b26390c356a2a94a77a..c3f908b83ae9451ec446f7806a06144d3b482a6a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-08-06  Juanma Barranquero  <lekktu@gmail.com>
+
+       * dired.el (dired-insert-directory): Revert change in 2013-06-21T12:24:37Z!lekktu@gmail.com
+       to use looking-at-p instead of looking-at.  (Bug#15028)
+
 2013-08-05  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        Revert introduction of isearch-filter-predicates (bug#14714).

diff --git a/lisp/dired.el b/lisp/dired.el
index c44cf5748896ab2096c272ecd357540ea9347fdb..48f1b463f4acf54aacf4d1807f5631872eb07069 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1225,7 +1225,7 @@ see `dired-use-ls-dired' for more details.")
       (save-excursion
        (goto-char opoint)
        (when (and (or hdr wildcard)
-                  (not (and (looking-at-p "^  \\(.*\\):$")
+                  (not (and (looking-at "^  \\(.*\\):$")
                             (file-name-absolute-p (match-string 1)))))
          ;; Note that dired-build-subdir-alist will replace the name
          ;; by its expansion, so it does not matter whether what we insert