1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/files.el b/lisp/files.el
index d2e5413b3ad..7af5549bcb0 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -4062,7 +4062,7 @@ Return the new variables list."
                      (subdirs (assq 'subdirs alist)))
                 (if (or (not subdirs)
                         (progn
-                          (setq alist (delq subdirs alist))
+                          (setq alist (remq subdirs alist))
                           (cdr-safe subdirs))
                         ;; TODO someone might want to extend this to allow
                         ;; integer values for subdir, where N means