;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require cl-lib posframe] 2) (defvar posframe-benchmark-alist (byte-code "\300\301\302\"r\211q\210\303\304\"\216\305\306\307!!\210\310 *\262\311\312\313\314\315\316DC\317BBD\320BBBB\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents locate-library "posframe.el" buffer-string (font-at (font-at (point-min))) (redraw-display (redraw-display)) (redraw-frame (redraw-frame (window-frame))) remove-text-properties let string ((remove-text-properties 0 (length string) '(read-only t) string)) ((mouse-position (mouse-position)) (default-font-width (default-font-width)) (posframe--get-font-height (posframe--get-font-height (point-min))) (posframe--mouse-banish (posframe--mouse-banish (window-frame))) (frame-parameter (frame-parameter (window-frame) 'no-accept-focus)) (set-mouse-position (set-mouse-position (window-frame) 0 0)) (posn-at-point (posn-at-point)) (posn-x-y (posn-x-y (posn-at-point))) (posn-object-x-y (posn-object-x-y (posn-at-point))) (set-frame-parameter (set-frame-parameter (window-frame) 'test 1)) (raise-frame (raise-frame (window-frame))))] 8)) #@30 Benchmark tool for posframe. (defalias 'posframe-benchmark #[0 "\301\302\303!\210\211\203!\211@\302\304@#\210\305A@\"\210A\266\202\202\210\302\306!\207" [posframe-benchmark-alist 1000 message "\n* Posframe Benchmark" "\n** Benchmark `%S' %s times ..." benchmark "\n* Finished."] 7 (#$ . 1284) nil]) (provide 'posframe-benchmark)