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

Ignore some handlers in ange-ftp.el

Browse source 
* lisp/net/ange-ftp.el: Return nil for `file-acl',
`file-notify-add-watch', `file-notify-rm-watch',
`file-notify-valid-p', `file-system-info',
`list-system-processes', `memory-info', `process-attributes',
`set-file-acl', `set-file-selinux-context'.
This commit is contained in:
Michael Albinus 2022-12-19 10:23:14 +01:00
parent 17480a55eb
commit 39c6437e47
1 changed files with 19 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lisp/net/ange-ftp.el
View file

@ -4498,6 +4498,25 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
(put 'process-file 'ange-ftp 'ange-ftp-process-file)
(put 'start-file-process 'ange-ftp 'ignore)
(put 'shell-command 'ange-ftp 'ange-ftp-shell-command)
;; Do not execute system information functions.
(put 'file-system-info 'ange-ftp 'ignore)
(put 'list-system-processes 'ange-ftp 'ignore)
(put 'memory-info 'ange-ftp 'ignore)
(put 'process-attributes 'ange-ftp 'ignore)
;; There aren't ACLs. `file-selinux-context' shall return '(nil nil
;; nil nil) if the file is nonexistent, so we let the default file
;; name handler do the job.
(put 'file-acl 'ange-ftp 'ignore)
;; (put 'file-selinux-context 'ange-ftp 'ignore)
(put 'set-file-acl 'ange-ftp 'ignore)
(put 'set-file-selinux-context 'ange-ftp 'ignore)
;; There aren't file notifications.
(put 'file-notify-add-watch 'ange-ftp 'ignore)
(put 'file-notify-rm-watch 'ange-ftp 'ignore)
(put 'file-notify-valid-p 'ange-ftp 'ignore)
;;; Define ways of getting at unmodified Emacs primitives,
;;; turning off our handler.