procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Modernize `auto-revert-notify-exclude-dir-regexp'

Browse source 
* lisp/autorevert.el (auto-revert-notify-exclude-dir-regexp): Use `rx'
and `mounted-file-systems'.
This commit is contained in:
Michael Albinus 2022-10-26 13:58:42 +02:00
parent e54c395982
commit 2468b819e2
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/autorevert.el
View file

@ -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