ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/filenotify.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'cl-lib)
#@231 Non-nil when Emacs has been compiled with file notification support.
The value is the name of the low-level file notification package
to be used for local file systems. Remote file notifications
could use another implementation.
(defconst file-notify--library (byte-code "\300\301!\203 \301\207\300\302!\203 \302\207\300\303!\203 \303\207\300\304!\205 \304\207" [featurep inotify kqueue gfilenotify w32notify] 2) (#$ . 429))
#@395 Hash table for registered file notification descriptors.
A key in this hash table is the descriptor as returned from
`inotify', `kqueue', `gfilenotify', `w32notify' or a file name
handler. The value in the hash table is a list
(DIR (FILE . CALLBACK) (FILE . CALLBACK) ...)
Several values for a given DIR happen only for `inotify', when
different files from the same directory are watched.
(defvar file-notify-descriptors (make-hash-table :test 'equal) (#$ . 866))
#@211 Remove DESCRIPTOR from `file-notify-descriptors'.
DESCRIPTOR should be an object returned by `file-notify-add-watch'.
If it is registered in `file-notify-descriptors', a stopped event is sent.
(fn DESCRIPTOR)
(defalias 'file-notify--rm-descriptor #[257 "\211:\203\n \211@\202 \211\301\":\203 A\202 \211A@@@:\205d \302A\"A\303\2037 \304\"\2028 E!\210\204F \305\"\202d \306\302A\"A\"\241\210A\204_ \305\"\202d \307#\207" [file-notify-descriptors gethash assoc stopped expand-file-name remhash delete puthash] 11 (#$ . 1342)])
#@231 Handle file system monitoring event.
If EVENT is a filewatch event, call its callback. It has the format
(file-notify (DESCRIPTOR ACTIONS FILE [FILE1-OR-COOKIE]) CALLBACK)
Otherwise, signal a `file-notify-error'.
(fn EVENT)
(defalias 'file-notify-handle-event #[257 "\211@\300=\203 \211G\301Y\203 \3028A@!\207\303\304\305B\"\207" [file-notify 3 2 signal file-notify-error "Not a valid file-notify event"] 5 (#$ . 1904) "e"])
#@135 A pending file notification events for a future `renamed' action.
It is a form ((DESCRIPTOR ACTION FILE [FILE1-OR-COOKIE]) CALLBACK).
(defvar file-notify--pending-event nil (#$ . 2347))
#@123 Return file or directory being watched.
Could be different from the directory watched by the backend library.
(fn EVENT)
(defalias 'file-notify--event-watched-file #[257 "\211@:\203\f \211@@\202 \211@\301\"@:\203 @A\202\" \211A@@@\203/ \302\"\2020 \211\207" [file-notify-descriptors gethash expand-file-name] 8 (#$ . 2540)])
#@66 Return file name of file notification event, or nil.
(fn EVENT)
(defalias 'file-notify--event-file-name #[257 "\301\302\3038;\203 \3038\206 \304\305@\"@\"!\207" [file-notify-descriptors directory-file-name expand-file-name 2 "" gethash] 7 (#$ . 2882)])
#@122 Return second file name of file notification event, or nil.
This is available in case a file has been moved.
(fn EVENT)
(defalias 'file-notify--event-file1-name #[257 "\3018;\205 \302\303\3018\304@\"@\"!\207" [file-notify-descriptors 3 directory-file-name expand-file-name gethash] 7 (#$ . 3149)])
#@112 Return cookie of file notification event, or nil.
This is available in case a file has been moved.
(fn EVENT)
(defalias 'file-notify--event-cookie #[257 "\3008\207" [3] 3 (#$ . 3460)])
#@188 Return the descriptor to be used in `file-notify-*-watch'.
For `gfilenotify' and `w32notify' it is the same descriptor as
used in the low-level file notification package.
(fn DESC FILE)
(defalias 'file-notify--descriptor #[514 "\302!\203 \303=\203 ;\205 \304\305!\306 \"\"@B\207\207" [file-notify--library file-notify-descriptors natnump inotify assoc file-name-nondirectory gethash] 8 (#$ . 3654)])
#@168 Handle an EVENT returned from file notification.
EVENT is the cadr of the event in `file-notify-handle-event'
(DESCRIPTOR ACTIONS FILE [FILE1-OR-COOKIE]).
(fn EVENT)
(defalias 'file-notify-callback #[257 "\211@\302\"A@\303!\304\211\211\211:\204 \304B\262A\211\205\312\211@\211A\211\262\204. \304\262\211\203\302\211@ \203o \305 @!\305!=\204o @A@\306=\203U \211\307=\203d @A@\310=\203o \211\311=\204o \262\304@A\312\240\210\211\313>\203y \211\202 \211\314>\203\221 \315
!\211\262 \203\215 \316\202 \312\202 \211\317=\203\241 \320\262\304\211\262 \202 \211\321>\203\253 \322\202 \211\323>\203\265 \324\202 \211\325>\203\277 \326\202 \211\327>\203\311 \312\202 \211\330>\203\341 \n\305!FD\304\202 \211\331>\205 \204\357 \324\202 \262\303 @!\262 \332\f \"\332 @@\303 !\"\232\204 @@\316\n\nF A@D\262\304\316\262\203;@\332@@\303 !\"\240\210A@@!\210\304\262\211\203\221@\203k@\333\n!\230\204k\333 !\333\f@!\230\204k;\203\221@\333 !\230\203\221\203\203\332
@\" F!\210\202\221\332
@\" E!\210\204\262\211\334>\203\273;\203\250\335!\204\273\336!\230\203\273\337\332
@\"!\210A\266\202\2020 \210A\266\202\202 \262\207" [file-notify-descriptors file-notify--pending-event gethash file-notify--event-file-name nil file-notify--event-cookie moved-from moved-to renamed-from renamed-to deleted (attribute-changed changed created deleted renamed) (moved rename) file-notify--event-file1-name renamed ignored t (attrib link) attribute-changed (create added) created (modify modified write) changed (delete delete-self move-self removed) (moved-from renamed-from) (moved-to renamed-to) file-notify--descriptor file-name-nondirectory (deleted renamed) backup-file-name-p file-notify--event-watched-file file-notify-rm-watch] 18 (#$ . 4072)])
#@1420 Add a watch for filesystem events pertaining to FILE.
This arranges for filesystem events pertaining to FILE to be reported
to Emacs. Use `file-notify-rm-watch' to cancel the watch.
The returned value is a descriptor for the added watch. If the
file cannot be watched for some reason, this function signals a
`file-notify-error' error.
FLAGS is a list of conditions to set what will be watched for. It can
include the following symbols:
`change' -- watch for file changes
`attribute-change' -- watch for file attributes changes, like
permissions or modification time
If FILE is a directory, `change' watches for file creation or
deletion in that directory. This does not work recursively.
When any event happens, Emacs will call the CALLBACK function passing
it a single argument EVENT, which is of the form
(DESCRIPTOR ACTION FILE [FILE1])
DESCRIPTOR is the same object as the one returned by this function.
ACTION is the description of the event. It could be any one of the
following:
`created' -- FILE was created
`deleted' -- FILE was deleted
`changed' -- FILE has changed
`renamed' -- FILE has been renamed to FILE1
`attribute-changed' -- a FILE attribute was changed
`stopped' -- watching FILE has been stopped
FILE is the name of the file whose event is being reported.
(fn FILE FLAGS CALLBACK)
(defalias 'file-notify-add-watch #[771 ";\204 \302\303C\"\210\304!\262:\203\" \305\306\305\307\310!\"\"\203( \302\303C\"\210\311!\2044 \302\303C\"\210\312\313\"\314\315!\203C \202F \316!!\317\211\211\211\211\315!\204[ \302\320\321D\"\210\203z \313\322=\203n \202p $\262\202\204\203 \302\320\323\"\210\324=\203\215 \325\202\250 \322=\203\227 \326\202\250 \327=\203\241 \330\202\250 \331=\205\250 \332\262\327=\203\272 \333\334\n\"\262\202\306 >\203\336 \324=\203\313 \335\202\334 \322=\203\325 \336\202\334 \331=\205\334 \337\262\307 >\203\324=\203\357 \340\202 \322=\203\371 \340\202 \331=\205 \341B\262\322=\203\n\202\342#\262\315\n!?\205#\343\n!\262\n:\203/@\2020\262\344 \"\262 B\262\211A\235\204R\345ABB #\210\346 \"\207" [file-notify--library file-notify-descriptors signal wrong-type-argument expand-file-name delq change attribute-change copy-tree functionp find-file-name-handler file-notify-add-watch directory-file-name file-directory-p file-name-directory nil file-notify-error "Directory does not exist" kqueue ("No file notification package available") inotify inotify-add-watch kqueue-add-watch gfilenotify gfile-add-watch w32notify w32notify-add-watch append (watch-mounts send-moved) (create delete delete-self modify move-self move) (create delete write extend rename) (file-name directory-name size last-write-time) attrib attributes file-notify-callback file-name-nondirectory gethash puthash file-notify--descriptor] 15 (#$ . 5923)])
#@140 Remove an existing watch specified by its DESCRIPTOR.
DESCRIPTOR should be an object returned by `file-notify-add-watch'.
(fn DESCRIPTOR)
(defalias 'file-notify-rm-watch #[257 "\211:\203\n \211@\202 \211:\205 A\302\"\211@\211;\205! \303\304\";\205~ \203: AG\305U\203z \306A\"\203z \3071u \211\203J \211\304\"\202q \310=\203T \311\202o \312=\203^ \313\202o \314=\203h \315\202o \316=\205o \317!0\202y \210\202z \210\320!\207" [file-notify-descriptors file-notify--library gethash find-file-name-handler file-notify-rm-watch 1 assoc (file-notify-error) inotify inotify-rm-watch kqueue kqueue-rm-watch gfilenotify gfile-rm-watch w32notify w32notify-rm-watch file-notify--rm-descriptor] 9 (#$ . 8900)])
#@129 Check a watch specified by its DESCRIPTOR.
DESCRIPTOR should be an object returned by `file-notify-add-watch'.
(fn DESCRIPTOR)
(defalias 'file-notify-valid-p #[257 "\211:\203\n \211@\202 \211:\205 A\302\"\211@\303;\205g \304\305\"\262\2030 \306A\"\205g \211\203< \211\305\"\202c \307=\203F \310\202a \311=\203P \312\202a \313=\203Z \314\202a \315=\205a \316!\205g \317\207" [file-notify-descriptors file-notify--library gethash nil find-file-name-handler file-notify-valid-p assoc inotify inotify-valid-p kqueue kqueue-valid-p gfilenotify gfile-valid-p w32notify w32notify-valid-p t] 9 (#$ . 9628)])
(provide 'filenotify)
Kontol Shell Bypass