| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\301\312\313& \210\314\315\316\317\320DD\321\311\304\322\323\324\325& \210\314\326\316\317\327DD\330\311\304\322\331\324\332& \210\314\333\316\317\334DD\335\311\304\322\317\324\336& \207" [require flycheck pos-tip custom-declare-group flycheck-pos-tip nil "Display Flycheck errors in tooltips." :prefix "flycheck-pos-tip-" :group :link (url-link :tag "Github" "https://github.com/flycheck/flycheck-pos-tip") custom-declare-variable flycheck-pos-tip-max-width funcall function #[0 "\300\207" [nil] 1] "If non-nil, the max width of the tooltip in chars." :type (choice (const :tag "Auto" nil) (integer :tag "Characters")) :package-version (flycheck-pos-tip . "0.4") flycheck-pos-tip-timeout #[0 "\300\207" [5] 1] "Time in seconds to hide the tooltip after." number (flycheck-pos-tip . "0.2") flycheck-pos-tip-display-errors-tty-function #[0 "\300\207" [flycheck-display-error-messages] 1] "Fallback function for error display on TTY frames.\n\nLike `flycheck-display-errors-function'; called to show error\nmessages on TTY frames if `flycheck-pos-tip-mode' is active." (flycheck-pos-tip . "0.2")] 10) | |
| 16 | #@71 Display ERRORS, using a graphical tooltip on GUI frames. | |
| 17 | ||
| 18 | (fn ERRORS) | |
| 19 | (defalias 'flycheck-pos-tip-error-messages #[257 "\211\205) \303 \203& \304\305\306#\307 @\310\311\211\211 \311\211 \205# \312\\& \207\n!\207" [flycheck-pos-tip-timeout flycheck-pos-tip-max-width flycheck-pos-tip-display-errors-tty-function display-graphic-p mapconcat flycheck-error-format-message-and-id "\n\n" window-line-height pos-tip-show nil 5] 14 (#$ . 1573)]) | |
| 20 | #@45 Hide messages currently being shown if any. | |
| 21 | (defalias 'flycheck-pos-tip-hide-messages #[0 "\300 \203 \301 \207\302 \207" [display-graphic-p pos-tip-hide flycheck-hide-error-buffer] 1 (#$ . 2025)]) | |
| 22 | #@57 The former value of `flycheck-display-errors-function'. | |
| 23 | (defvar flycheck-pos-tip-old-display-function nil (#$ . 2229)) | |
| 24 | (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable flycheck-pos-tip-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Flycheck-Pos-Tip mode is enabled.\nSee the `flycheck-pos-tip-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `flycheck-pos-tip-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group flycheck :type boolean] 12) | |
| 25 | #@560 A minor mode to show Flycheck error messages in a popup. | |
| 26 | ||
| 27 | When called interactively, toggle `flycheck-pos-tip-mode'. With | |
| 28 | prefix ARG, enable `flycheck-pos-tip-mode' if ARG is positive, | |
| 29 | otherwise disable it. | |
| 30 | ||
| 31 | When called from Lisp, enable `flycheck-pos-tip-mode' if ARG is | |
| 32 | omitted, nil or positive. If ARG is `toggle', toggle | |
| 33 | `flycheck-pos-tip-mode'. Otherwise behave as if called | |
| 34 | interactively. | |
| 35 | ||
| 36 | In `flycheck-pos-tip-mode' show Flycheck's error messages in a | |
| 37 | GUI tooltip. Falls back to `flycheck-display-error-messages' on | |
| 38 | TTY frames. | |
| 39 | ||
| 40 | (fn &optional ARG) | |
| 41 | (defalias 'flycheck-pos-tip-mode #[256 "\303 \304\300\305=\203 \306\300!?\202 \307!\310V\"\210\311\203> \312=\204> \312\211\211\203: \211@\313\314\"\210A\266\202\202( \210\202` \204` \312=\203` \n\315\211\211\203_ \211@\316\314\"\210A\266\202\202M \210\210\317\320\306\300!\203m \321\202n \322\"\210\323\324!\203\230 \325\300!\210\303 \203\206 \211\303 \232\203\230 \326\327\330\306\300!\203\223 \331\202\224 \332#\266\210\333 \210\306\300!\207" [flycheck-pos-tip-mode flycheck-display-errors-function flycheck-pos-tip-old-display-function current-message set-default toggle default-value prefix-numeric-value 0 (post-command-hook focus-out-hook) flycheck-pos-tip-error-messages add-hook flycheck-pos-tip-hide-messages nil remove-hook run-hooks flycheck-pos-tip-mode-hook flycheck-pos-tip-mode-on-hook flycheck-pos-tip-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Flycheck-Pos-Tip mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 2911) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)]) | |
| 42 | (defvar flycheck-pos-tip-mode-hook nil) | |
| 43 | (byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\210\311\312!\207" [flycheck-pos-tip-mode-map flycheck-pos-tip-mode-hook variable-documentation put "Hook run after entering or leaving `flycheck-pos-tip-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode flycheck-pos-tip-mode nil boundp provide flycheck-pos-tip] 6) | |
