From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 17 Jun 1994 22:15:47 +0000 (+0000)
Subject: (dired-build-subdir-alist): Don't let looking-at destroy the match data.
X-Git-Tag: emacs-19.34~7908
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=46680faf4a7c5ee3ebc4f93886ef340118fb2cfe;p=emacs.git

(dired-build-subdir-alist): Don't let looking-at destroy the match data.
---

diff --git a/lisp/dired.el b/lisp/dired.el
index 286e7d10dbd..e81a34f073e 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1368,7 +1368,7 @@ Returns the new value of the alist."
 			 (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