diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2022-10-26 13:58:42 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2022-10-26 13:58:42 +0200 |
| commit | 2468b819e2947ebd35ff974c00e984589bd00cc8 (patch) | |
| tree | 225e0299cfd7fd620a039023498e3a0cdee86056 /lisp/autorevert.el | |
| parent | e54c3959827eeee3ea60ccaa4918d22b9dce9cc5 (diff) | |
| download | emacs-2468b819e2947ebd35ff974c00e984589bd00cc8.tar.gz emacs-2468b819e2947ebd35ff974c00e984589bd00cc8.tar.bz2 emacs-2468b819e2947ebd35ff974c00e984589bd00cc8.zip | |
Modernize `auto-revert-notify-exclude-dir-regexp'
* lisp/autorevert.el (auto-revert-notify-exclude-dir-regexp): Use `rx'
and `mounted-file-systems'.
Diffstat (limited to 'lisp/autorevert.el')
| -rw-r--r-- | lisp/autorevert.el | 5 |
1 files 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 |