From 2468b819e2947ebd35ff974c00e984589bd00cc8 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Wed, 26 Oct 2022 13:58:42 +0200 Subject: [PATCH] Modernize `auto-revert-notify-exclude-dir-regexp' * lisp/autorevert.el (auto-revert-notify-exclude-dir-regexp): Use `rx' and `mounted-file-systems'. --- lisp/autorevert.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/autorevert.el b/lisp/autorevert.el index 576659675b5..e3d66c04bc2 100644 --- a/lisp/autorevert.el +++ b/lisp/autorevert.el @@ -297,9 +297,10 @@ You should set this variable through Custom." (defcustom auto-revert-notify-exclude-dir-regexp (concat ;; No mounted file systems. - "^" (regexp-opt '("/afs/" "/media/" "/mnt" "/net/" "/tmp_mnt/")) + mounted-file-systems ;; No remote files. - (unless auto-revert-remote-files "\\|^/[^/|:][^/|]+:")) + (unless auto-revert-remote-files + (rx (| "" (: bol "/" (not (any "/:|")) (1+ (not (any "/|"))) ":"))))) "Regular expression of directories to be excluded from file notifications." :group 'auto-revert :type 'regexp -- 2.39.5