;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. #@35 Plist of obarrays for each frame. (defvar frame-local--obarrays nil (#$ . 87)) #@121 Cons of frame and obarray currently used. This avoid to search the obarray in `frame-local--obarrays' on every request. (defvar frame-local--cache nil (#$ . 173)) #@31 (fn FRAME &optional CREATE) (defalias 'frame-local--get-obarray-1 #[513 "\302\"\203\f\303\"\207\211\205\304\305\306\"\307 # )\207" [frame-local--obarrays obarray plist-member plist-get make-vector 32 0 plist-put] 6 (#$ . 342)]) #@142 Return the obarray associated to FRAME. If there is no obarray and CREATE is non-nil, a new obarray is created. (fn FRAME &optional CREATE) (defalias 'frame-local--get-obarray #[513 "\302!\262@=\203A\207\303\"\211\203 B )\207" [frame-local--cache obarray window-normalize-frame frame-local--get-obarray-1] 6 (#$ . 590)]) #@149 Set the symbol NAME's value to VALUE in FRAME. If FRAME is nil, set the symbol in the current frame. Return VALUE. (fn NAME VALUE &optional FRAME) (defalias 'frame-local-set #[770 "\301\302\"\303\304!\"\211L)\207" [obarray frame-local--get-obarray t intern symbol-name] 6 (#$ . 933)]) #@106 Return symbol NAME's value in FRAME. Or in the current frame if FRAME is nil. (fn NAME &optional FRAME) (defalias 'frame-local-get #[513 "\301!\211\205\302\303!\"\211\205\211J)\207" [obarray frame-local--get-obarray intern-soft symbol-name] 6 (#$ . 1231)]) #@150 Similar to `frame-local-set' but NAME must not be quoted. See `frame-local-set' for the parameters VALUE and FRAME. (fn NAME VALUE &optional FRAME) (defalias 'frame-local-setq '(macro . #[770 "\300\301DF\207" [frame-local-set quote] 7 (#$ . 1504)])) #@133 Similar to `frame-local-get' but NAME must not be quoted. See `frame-local-get' for the parameter FRAME. (fn NAME &optional FRAME) (defalias 'frame-local-getq '(macro . #[513 "\300\301DE\207" [frame-local-get quote] 5 (#$ . 1765)])) #@61 Delete the obarray associated to FRAME, if any. (fn FRAME) (defalias 'frame-local--on-delete #[257 "\302!\205\303\"\205\304\"\305\305 \"\"\211)\207" [frame-local--obarrays obarray framep plist-member plist-get delq] 6 (#$ . 2007)]) (byte-code "\300\301\302\303#\210\304\305!\207" [add-hook delete-frame-functions frame-local--on-delete t provide frame-local] 4)