diff options
| author | Karl Heuer | 1994-06-17 22:15:47 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-06-17 22:15:47 +0000 |
| commit | 46680faf4a7c5ee3ebc4f93886ef340118fb2cfe (patch) | |
| tree | e022719b9ec2e22e07e435ebe2f162a9c679c494 | |
| parent | 0a1763b4086dc5f989db9eed03fcc618b6b1831a (diff) | |
| download | emacs-46680faf4a7c5ee3ebc4f93886ef340118fb2cfe.tar.gz emacs-46680faf4a7c5ee3ebc4f93886ef340118fb2cfe.zip | |
(dired-build-subdir-alist): Don't let looking-at destroy the match data.
| -rw-r--r-- | lisp/dired.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 1368 | (goto-char (match-beginning 0)) | 1368 | (goto-char (match-beginning 0)) |
| 1369 | (beginning-of-line) | 1369 | (beginning-of-line) |
| 1370 | (forward-char 2) | 1370 | (forward-char 2) |
| 1371 | (looking-at dired-re-perms)))) | 1371 | (save-match-data (looking-at dired-re-perms))))) |
| 1372 | (save-excursion | 1372 | (save-excursion |
| 1373 | (goto-char (match-beginning 1)) | 1373 | (goto-char (match-beginning 1)) |
| 1374 | (setq new-dir-name | 1374 | (setq new-dir-name |