# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 771891347 0
# Node ID db1785b91d0305321ce9f20670d379be41e1534b
# Parent  a114bbe9a63caa63a4bb002cadbd22732de10442
(dired-build-subdir-alist): Don't let looking-at destroy the match data.

diff -r a114bbe9a63c -r db1785b91d03 lisp/dired.el
--- a/lisp/dired.el	Fri Jun 17 21:42:34 1994 +0000
+++ b/lisp/dired.el	Fri Jun 17 22:15:47 1994 +0000
@@ -1368,7 +1368,7 @@
 			 (goto-char (match-beginning 0))
 			 (beginning-of-line)
 			 (forward-char 2)
-			 (looking-at dired-re-perms))))
+			 (save-match-data (looking-at dired-re-perms)))))
 	(save-excursion
 	  (goto-char (match-beginning 1))
 	  (setq new-dir-name