%PDF- %PDF-
Direktori : /usr/local/share/emacs/27.2/lisp/ |
Current File : //usr/local/share/emacs/27.2/lisp/filenotify.elc |
;ELC ;;; Compiled ;;; in Emacs version 27.2 ;;; 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) #@25 Use for debug messages. (defvar file-notify-debug nil (#$ . 426)) #@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) (#$ . 499)) #@77 compiler-macro for inlining `file-notify--watch-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'file-notify--watch-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block file-notify--watch-p (and (memq (type-of cl-x) cl-struct-file-notify--watch-tags) t)) nil] 9 (#$ . 935)]) (put 'file-notify--watch-p 'compiler-macro 'file-notify--watch-p--cmacro) #@13 (fn CL-X) (defalias 'file-notify--watch-p #[257 "\301!>\205 \302\207" [cl-struct-file-notify--watch-tags type-of t] 3 (#$ . 1316)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put file-notify--watch-p side-effect-free error-free put file-notify--watch cl-deftype-satisfies] 5) #@85 compiler-macro for inlining `file-notify--watch-directory'. (fn CL-WHOLE-ARG CL-X) (defalias 'file-notify--watch-directory--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block file-notify--watch-directory (progn (or (file-notify--watch-p cl-x) (signal 'wrong-type-argument (list 'file-notify--watch cl-x))) (aref cl-x 1))) nil] 9 (#$ . 1622)]) (put 'file-notify--watch-directory 'compiler-macro 'file-notify--watch-directory--cmacro) #@73 Access slot "directory" of `file-notify--watch' struct CL-X. (fn CL-X) (defalias 'file-notify--watch-directory #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-file-notify--watch-tags type-of signal wrong-type-argument file-notify--watch 1] 5 (#$ . 2097)]) (byte-code "\300\301\302\303#\300\207" [function-put file-notify--watch-directory side-effect-free t] 4) #@84 compiler-macro for inlining `file-notify--watch-filename'. (fn CL-WHOLE-ARG CL-X) (defalias 'file-notify--watch-filename--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block file-notify--watch-filename (progn (or (file-notify--watch-p cl-x) (signal 'wrong-type-argument (list 'file-notify--watch cl-x))) (aref cl-x 2))) nil] 9 (#$ . 2484)]) (put 'file-notify--watch-filename 'compiler-macro 'file-notify--watch-filename--cmacro) #@72 Access slot "filename" of `file-notify--watch' struct CL-X. (fn CL-X) (defalias 'file-notify--watch-filename #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-file-notify--watch-tags type-of signal wrong-type-argument file-notify--watch 2] 5 (#$ . 2954)]) (byte-code "\300\301\302\303#\300\207" [function-put file-notify--watch-filename side-effect-free t] 4) #@84 compiler-macro for inlining `file-notify--watch-callback'. (fn CL-WHOLE-ARG CL-X) (defalias 'file-notify--watch-callback--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block file-notify--watch-callback (progn (or (file-notify--watch-p cl-x) (signal 'wrong-type-argument (list 'file-notify--watch cl-x))) (aref cl-x 3))) nil] 9 (#$ . 3338)]) (put 'file-notify--watch-callback 'compiler-macro 'file-notify--watch-callback--cmacro) #@72 Access slot "callback" of `file-notify--watch' struct CL-X. (fn CL-X) (defalias 'file-notify--watch-callback #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-file-notify--watch-tags type-of signal wrong-type-argument file-notify--watch 3] 5 (#$ . 3808)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put file-notify--watch-callback side-effect-free t defalias copy-file-notify--watch copy-sequence] 4) #@103 compiler-macro for inlining `file-notify--watch-make'. (fn CL-WHOLE-ARG DIRECTORY FILENAME CALLBACK) (defalias 'file-notify--watch-make--cmacro #[1028 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (directory filename callback) (cl-block file-notify--watch-make (record 'file-notify--watch directory filename callback)) nil] 13 (#$ . 4250)]) (put 'file-notify--watch-make 'compiler-macro 'file-notify--watch-make--cmacro) #@89 Constructor for objects of type `file-notify--watch'. (fn DIRECTORY FILENAME CALLBACK) (defalias 'file-notify--watch-make #[771 "\300\301$\207" [record file-notify--watch] 8 (#$ . 4692)]) (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \207" [function-put file-notify--watch-make side-effect-free t cl-struct-define file-notify--watch "The internal struct for bookkeeping watched files or directories.\nUsed in `file-notify-descriptors'." cl-structure-object record nil ((cl-tag-slot) (directory) (filename) (callback)) cl-struct-file-notify--watch-tags] 11) #@61 Return the absolute filename observed by WATCH. (fn WATCH) (defalias 'file-notify--watch-absolute-filename #[257 "\301!>\204 \302\303\304D\"\210\211\305H\203<