mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-18 21067e7cbe6d7a0f65ff5c317a96b5c337b0b3d8
commit | author | age
5cb5f7 1 ;ELC
C 2 ;;; Compiled
3 ;;; in Emacs version 26.1
4 ;;; with all optimizations.
5
6 ;;; This file contains utf-8 non-ASCII characters,
7 ;;; and so cannot be loaded into Emacs 22 or earlier.
8 (and (boundp 'emacs-version)
9      (< (aref emacs-version (1- (length emacs-version))) ?A)
10      (string-lessp emacs-version "23")
11      (error "`%s' was compiled for Emacs 23 or later" #$))
12
13 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
14
15
16 (defconst pos-tip-version "0.4.6")
17 (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314\315\304\301&\210\310\316\317\320\314\315\304\301&\210\310\321\302\322\314\323\304\301&\210\310\324\302\325\314\326\304\301&\210\310\327\302\330\314\331\304\301&\210\310\332\302\333\314\334\304\301&\207" [custom-declare-group pos-tip nil "Show tooltip at point" :group faces :prefix "pos-tip-" custom-declare-variable pos-tip-border-width 1 "Outer border width of pos-tip's tooltip." :type integer pos-tip-internal-border-width 2 "Text margin of pos-tip's tooltip." pos-tip-foreground-color "Default foreground color of pos-tip's tooltip.\nWhen `nil', look up the foreground color of the `tooltip' face." (choice (const :tag "Default" nil) string) pos-tip-background-color "Default background color of pos-tip's tooltip.\nWhen `nil', look up the background color of the `tooltip' face." (choice (const :tag "Default" nil) string) pos-tip-tab-width "Tab width used for `pos-tip-split-string' and `pos-tip-fill-string'\nto expand tab characters. nil means use default value of `tab-width'." (choice (const :tag "Default" nil) integer) pos-tip-use-relative-coordinates "Non-nil means tooltip location is calculated as a coordinates\nrelative to the top left corner of frame. In this case the tooltip\nwill always be displayed within the frame.\n\nNote that this variable is automatically set to non-nil if absolute\ncoordinates can't be obtained by `pos-tip-compute-pixel-position'." boolean] 8)
18 #@228 The name of the window system that FRAME is displaying through.
19 The value is a symbol---for instance, 'x' for X windows.
20 The value is nil if Emacs is using a text-only terminal.
21
22 FRAME defaults to the currently selected frame.
23 (defalias 'pos-tip-window-system #[(&optional frame) "\302\206\303 !\211\203    \304=?\205    \202\305\306\302D\")\207" [frame type framep selected-frame t signal wrong-type-argument] 5 (#$ . 1913)])
24 #@128 Return a Nth power of 2 if OBJECT is a positive integer.
25 Otherwise return 0. Omitting N means return 1 for a positive integer.
26 (defalias 'pos-tip-normalize-natnum #[(object &optional n) "\302\303!\203\304V\203\305\202\304    \206\304\"\207" [object n ash natnump 0 1] 3 (#$ . 2352)])
27 #@60 The latest result of `pos-tip-frame-top-left-coordinates'.
28 (defvar pos-tip-saved-frame-coordinates '(0 . 0) (#$ . 2649))
29 #@108 The latest result of `pos-tip-calibrate-frame-offset'. This value
30 is used for non-X graphical environment.
31 (defvar pos-tip-frame-offset nil (#$ . 2777))
32 #@308 Array of the results of `pos-tip-calibrate-frame-offset'. They are
33 recorded only when `pos-tip-frame-top-left-coordinates' is called for a
34 non-X but graphical frame.
35
36 The 2nd and 4th elements are the values for frames having a menu bar.
37 The 3rd and 4th elements are the values for frames having a tool bar.
38 (defvar pos-tip-frame-offset-array [nil nil nil nil] (#$ . 2937))
39 #@346 Return the pixel coordinates of FRAME as a cons cell (LEFT . TOP),
40 which are relative to top left corner of screen.
41
42 Return nil if failing to acquire the coordinates.
43
44 If FRAME is omitted, use selected-frame.
45
46 Users can also get the frame coordinates by referring the variable
47 `pos-tip-saved-frame-coordinates' just after calling this function.
48 (defalias 'pos-tip-frame-top-left-coordinates #[(&optional frame) "\306!\211\204\307\310\"\202\240    \311=\203a\3121\\r\313\314!q\210\315\316 \210\317 \210\320 \315\321\315\f\322\323\324\325\"\324\326\"#&\210eb\210\327\330!\210\331\332\327\333!\334 \"!\331\332\327\335!\334 \"!B\211*0\202\240\210\315\202\240\336\324\337\"\340\"\336\324\341\"\342\"\\'('H\206\202('\343!I\211)\205\237\344\324\345\"!)@\\\344\324\346\"!)A\\B\211*)\207" [frame winsys case-fold-search shell-file-name shell-command-switch pos-tip-saved-frame-coordinates pos-tip-window-system error "text-only frame: %S" x (error) get-buffer-create " *xwininfo*" nil buffer-disable-undo erase-buffer call-process t format "xwininfo -display %s -id %s" frame-parameter display window-id search-forward "\n  Absolute" string-to-number buffer-substring-no-properties "X: " line-end-position "Y: " pos-tip-normalize-natnum menu-bar-lines 0 tool-bar-lines 1 pos-tip-calibrate-frame-offset eval left top index pos-tip-frame-offset-array offset] 13 (#$ . 3317)])
49 #@370 Return the pixel coordinates of FRAME1 relative to FRAME2
50 as a cons cell (LEFT . TOP).
51
52 W32-FRAME non-nil means both of frames are under `w32' window system.
53
54 FRAME-COORD1 and FRAME-COORD2, if given, specify the absolute
55 coordinates of FRAME1 and FRAME2, respectively, which make the
56 calculations faster if the frames have different heights of menu bars
57 and tool bars.
58 (defalias 'pos-tip-frame-relative-position #[(frame1 frame2 &optional w32-frame frame-coord1 frame-coord2) "\306\307\310\"!\306\307    \310\"!=\203@\n\204$\306\307\311\"!\306\307    \311\"!=\203@\312\307\313\"!\312\307    \313\"!Z\312\307\314\"!\312\307    \314\"!ZB\207 \204K\315\316!) \204V\315\316    !) @ @Z A AZB\207" [frame1 frame2 w32-frame frame-coord1 pos-tip-saved-frame-coordinates frame-coord2 pos-tip-normalize-natnum frame-parameter menu-bar-lines tool-bar-lines eval left top nil pos-tip-frame-top-left-coordinates] 6 (#$ . 4717)])
59 #@129 Non-nil indicates the latest result of `pos-tip-compute-pixel-position'
60 was upper than the location specified by the arguments.
61 (defvar pos-tip-upperside-p nil (#$ . 5639))
62 #@150 Display pixel size effective for showing tooltip in MS-Windows desktop.
63 This doesn't include the taskbar area, so isn't same as actual display size.
64 (defvar pos-tip-w32-saved-max-width-height nil (#$ . 5819))
65 #@1765 Return pixel position of POS in WINDOW like (X . Y), which indicates
66 the absolute or relative coordinates of bottom left corner of the object.
67
68 Omitting POS and WINDOW means use current position and selected window,
69 respectively.
70
71 If PIXEL-WIDTH and PIXEL-HEIGHT are given, this function assumes these
72 values as the size of small window like tooltip which is located around the
73 object at POS. These values are used to adjust the location in order that
74 the tooltip won't disappear by sticking out of the display. By referring
75 the variable `pos-tip-upperside-p' after calling this function, user can
76 examine whether the tooltip will be located above the specified position.
77
78 If FRAME-COORDINATES is omitted or nil, automatically obtain the absolute
79 coordinates of the top left corner of frame which WINDOW is on. Here,
80 `top left corner of frame' represents the origin of `window-pixel-edges'
81 and its coordinates are essential for calculating the return value as
82 absolute coordinates. If a cons cell like (LEFT . TOP), specifies the
83 frame absolute location and makes the calculation slightly faster, but can
84 be used only when it's clear that frame is in the specified position. Users
85 can get the latest values of frame coordinates for using in the next call
86 by referring the variable `pos-tip-saved-frame-coordinates' just after
87 calling this function. Otherwise, FRAME-COORDINATES `relative' means return
88 pixel coordinates of the object relative to the top left corner of the frame.
89 This is the same effect as `pos-tip-use-relative-coordinates' is non-nil.
90
91 DX specifies horizontal offset in pixel.
92
93 DY specifies vertical offset in pixel. This makes the calculations done
94 without considering the height of object at POS, so the object might be
95 hidden by the tooltip.
96 (defalias 'pos-tip-compute-pixel-position #[(&optional pos window pixel-width pixel-height frame-coordinates dx dy) "\306\206\307 !\310    !\311= \206\f\312=\206\n\205 ?\211\n\203)\313\2029\f\2069\314    !\2069\315\211\n\316'\317(\206D\320!\")\321)!A\211*\205f\322*\"\206f\323\315!\205f\322*\"+)\3248\262\206\221\325(\206{\320!\315#\211,\205\214,@,A@B)\206\221\326-\327'@\330!@-@.\206\244\331$/\327'A\332!A@\324+8\206\272-A#\21101\206    +@\206    r\333!q\210)\203\3442\204\344)\3348\262A\202\335\336!\203\2033\331U\204\337\340    !\34143\"_!\202\340    !)\\5\342\21167\n\203$\343    !6\344    !7\202=\n\2033 @6 A7\202=\345    !6\346    !758\206E\331\\7V9\331/6:\206V\331Z^]\3319\203u1\203i7\202k08\206q\331Z\202w5]. B\207" [window frame w32-frame pos-tip-use-relative-coordinates frame-coordinates pos-tip-w32-saved-max-width-height window-frame selected-window pos-tip-window-system w32 relative (0 . 0) pos-tip-frame-top-left-coordinates t (0 . 0) posn-at-point window-point posn-actual-col-row window-line-height redisplay 2 pos-visible-in-window-p (0 . 0) + window-inside-pixel-edges 0 window-pixel-edges window-buffer 9 boundp text-scale-mode round frame-char-height expt nil frame-pixel-width frame-pixel-height x-display-pixel-width x-display-pixel-height frame-coord pos posn line line-height geom x-y dx x y0 dy header-line-format text-scale-mode-amount text-scale-mode-step y xmax ymax pixel-height pos-tip-upperside-p pixel-width] 7 (#$ . 6036)])
97 #@28 Cancel timeout of tooltip.
98 (defalias 'pos-tip-cancel-timer #[nil "\301\302\"\207" [timer-list mapc #[(timer) "\301H\302=\205 \303!\207" [timer 5 x-hide-tip cancel-timer] 2]] 3 (#$ . 9356)])
99 #@131 Move out mouse pointer if it is inside region (LEFT RIGHT TOP BOTTOM)
100 in FRAME. Return new mouse position like (FRAME . (X . Y)).
101 (defalias 'pos-tip-avoid-mouse #[(left right top bottom &optional frame) "\204\306 \307\310!!r\311\216\312    @\313\"\210\314 +\211\211A\242\n@\nA =\203\334\f\247\203\334\315!\316!\\\317V\203I\fZT\202KT\315!W\203^\fZ\202`\317V\203q ZT\202sT\316!W\203\206 Z\202\210^^^\211\320V\203\332U\203\255\317Z\202\320U\203\274T\202\320U\203\314\317Z\202\320T\321\f #\210\322\323!\210. \n\205\344\f B,B\207" [frame save-selected-window--state mpos mframe mx my selected-frame internal--before-with-selected-window frame-selected-window #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] select-window norecord mouse-pixel-position frame-pixel-width frame-pixel-height 2 -2 set-mouse-pixel-position sit-for 0.0001 large-number left dl right dr top dt bottom db d] 5 (#$ . 9557)])
102 #@222 Compute the foreground color to use for tooltip.
103
104 TIP-COLOR is a face or a cons cell like (FOREGROUND-COLOR . BACKGROUND-COLOR).
105 If it is nil, use `pos-tip-foreground-color' or the foreground color of the
106 `tooltip' face.
107 (defalias 'pos-tip-compute-foreground-color #[(tip-color) "\302!\203 \303\304\"\206\242\206    \206\305\306!\207" [tip-color pos-tip-foreground-color facep face-attribute :foreground face-foreground tooltip] 3 (#$ . 10600)])
108 #@222 Compute the background color to use for tooltip.
109
110 TIP-COLOR is a face or a cons cell like (FOREGROUND-COLOR . BACKGROUND-COLOR).
111 If it is nil, use `pos-tip-background-color' or the background color of the
112 `tooltip' face.
113 (defalias 'pos-tip-compute-background-color #[(tip-color) "\302!\203 \303\304\"\206\243\206    \206\305\306!\207" [tip-color pos-tip-background-color facep face-attribute :background face-background tooltip] 3 (#$ . 11060)])
114 #@1218 Show STRING in a tooltip at POS in WINDOW.
115 Analogous to `pos-tip-show' except don't propertize STRING by `pos-tip' face.
116
117 PIXEL-WIDTH and PIXEL-HEIGHT specify the size of tooltip, if given. These
118 are used to adjust the tooltip position in order that it doesn't disappear by
119 sticking out of the display, and also used to prevent it from vanishing by
120 overlapping with mouse pointer.
121
122 Note that this function itself doesn't calculate tooltip size because the
123 character width and height specified by faces are unknown. So users should
124 calculate PIXEL-WIDTH and PIXEL-HEIGHT by using `pos-tip-tooltip-width' and
125 `pos-tip-tooltip-height', or use `pos-tip-show' instead, which can
126 automatically calculate tooltip size.
127
128 See `pos-tip-show' for details.
129
130 Example:
131
132 (defface my-tooltip
133   '((t
134      :background "gray85"
135      :foreground "black"
136      :inherit variable-pitch))
137   "Face for my tooltip.")
138
139 (defface my-tooltip-highlight
140   '((t
141      :background "blue"
142      :foreground "white"
143      :inherit my-tooltip))
144   "Face for my tooltip highlighted.")
145
146 (let ((str (propertize " foo \n bar \n baz " 'face 'my-tooltip)))
147   (put-text-property 6 11 'face 'my-tooltip-highlight str)
148   (pos-tip-show-no-propertize str 'my-tooltip))
149 (defalias 'pos-tip-show-no-propertize #[(string &optional tip-color pos window timeout pixel-width pixel-height frame-coordinates dx dy) "\204\306 \307!\310    !\211\311=\n\312= \206)4\313=\206)\f\205)5? \31467849:& \203B\315 \211;@<;A= \203W<\202]<>@Z? \203i=\202o=>AZ@?@BA\316B!C\317B!D \206\213 ?E\320    \321\"F\322GH\\\323\"I \203\245\323\202\246\3247\206\303 \203\266\325    !\202\303\f\203\3005@\202\303\326    !IZ\327    !\245\\8\206\323\330    !IZ\331    !\245BJ\332!Kr\333\216\334K@\335\"\210\336 +\211L@M\337N \204    E\203VLA@\204VLA@\203M    =\204\340\341    !A@!O\322O\211AO\242OA@\\\342\"P\322O\211AO\242OA@\\\342\"Q    M\343MPQ#\210\344\345!\210+\202LA@\203M    =\204\346    M\f4$R?R@\\?@RA\\@)7\203\2468\203\246\347?\350?7\f\203\231\351\202\232\324#@\2118\\M%L\352SM\353GB\354HB\355E?\205\303\356<B\357=BD\360\320    \360\"BCF\205\324\321FBCC;\205\337\361CBCD;\205\352\362DBC%BBT\205\373T\324V\205\373TE\205?LA@ZE\205@LAAZ&\210T\203%T\324X\203%\363 \210A.\207" [window frame winsys x-frame w32-frame pos-tip-use-relative-coordinates selected-window window-frame pos-tip-window-system x w32 relative pos-tip-compute-pixel-position t pos-tip-compute-foreground-color pos-tip-compute-background-color frame-parameter line-spacing ash 1 0 frame-pixel-width x-display-pixel-width frame-char-width x-display-pixel-height frame-char-height internal--before-with-selected-window #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] select-window norecord mouse-pixel-position nil window-inside-pixel-edges window-list -1 set-mouse-pixel-position sit-for 0.0001 pos-tip-frame-relative-position pos-tip-avoid-mouse + 3 x-show-tip border-width internal-border-width append left top font foreground-color background-color pos-tip-cancel-timer frame-coordinates pos-tip-w32-saved-max-width-height pos pixel-width pixel-height dx dy x-y ax ay pos-tip-saved-frame-coordinates rx ry retval tip-color fg bg use-dxdy spacing pos-tip-border-width pos-tip-internal-border-width border x-max-tooltip-size save-selected-window--state mpos mframe default-frame-alist edges mx my rel-coord string timeout] 13 (#$ . 11521)])
150 #@893 Split STRING into fixed width strings. Return a list of these strings.
151
152 WIDTH specifies the width of filling each paragraph. WIDTH nil means use
153 the width of currently selected frame. Note that this function doesn't add any
154 padding characters at the end of each row.
155
156 MARGIN, if non-nil, specifies left margin width which is the number of spece
157 characters to add at the beginning of each row.
158
159 The optional fourth argument JUSTIFY specifies which kind of justification
160 to do: `full', `left', `right', `center', or `none'. A value of t means handle
161 each paragraph as specified by its text properties. Omitting JUSTIFY means
162 don't perform justification, word wrap and kinsoku shori (禁則処理).
163
164 SQUEEZE nil means leave whitespaces other than line breaks untouched.
165
166 MAX-ROWS, if given, specifies maximum number of elements of return value.
167 The elements exceeding this number are discarded.
168 (defalias 'pos-tip-split-string #[(string &optional width margin justify squeeze max-rows) "\306\307!rq\210\310\216    \206\n \206\311  \206\312\313\314\211\314c\210\315ed\"\210\203E\316ed?$\210\202K\317\320\"eb\210`\314\210`{\203eB\202\217 P\321\f\"\211BGGU\204\217G\314O\211\204e)`dW\322\323!\210\204N\203\250\324\"\202\252\237.\n\207" [#1=#:temp-buffer pos-tip-tab-width tab-width width fill-column margin generate-new-buffer " *temp*" #[nil "\301!\205    \302!\207" [#1# buffer-name kill-buffer] 2] frame-width 0 1 nil untabify fill-region make-string 32 truncate-string-to-width beginning-of-line 2 last left-margin kinsoku-limit indent-tabs-mode row rows string justify squeeze line max-rows] 6 (#$ . 15028)])
169 #@837 Fill each of the paragraphs in STRING.
170
171 WIDTH specifies the width of filling each paragraph. WIDTH nil means use
172 the width of currently selected frame. Note that this function doesn't add any
173 padding characters at the end of each row.
174
175 MARGIN, if non-nil, specifies left margin width which is the number of spece
176 characters to add at the beginning of each row.
177
178 The optional fourth argument JUSTIFY specifies which kind of justification
179 to do: `full', `left', `right', `center', or `none'. A value of t means handle
180 each paragraph as specified by its text properties. Omitting JUSTIFY means
181 don't perform justification, word wrap and kinsoku shori (禁則処理).
182
183 SQUEEZE nil means leave whitespaces other than line breaks untouched.
184
185 MAX-ROWS, if given, specifies maximum number of rows. The rows exceeding
186 this number are discarded.
187 (defalias 'pos-tip-fill-string #[(string &optional width margin justify squeeze max-rows) "\203O\306\307!r    q\210\310\216\n\206 \f\206\311 \206!\312\313\314c\210\315ed\"\210\316ed?$\210\203Jeb\317!{\202L\320 .\207\321\322\323\f\314\211&\324#\207" [justify #1=#:temp-buffer pos-tip-tab-width tab-width width fill-column generate-new-buffer " *temp*" #[nil "\301!\205    \302!\207" [#1# buffer-name kill-buffer] 2] frame-width 0 1 nil untabify fill-region line-end-position buffer-string mapconcat identity pos-tip-split-string "\n" margin left-margin kinsoku-limit indent-tabs-mode string squeeze max-rows] 9 (#$ . 16721)])
188 #@75 Truncate each line of STRING to WIDTH and discard lines exceeding HEIGHT.
189 (defalias 'pos-tip-truncate-string #[(string width height) "\306\307!rq\210\310\216    c\210eb\210\311\312 \fW\2033\313`\312\210`{ \"\nB`dW\314\315!\210 T\204\316\317\n\237\320#-\207" [#1=#:temp-buffer string rows nrow height width generate-new-buffer " *temp*" #[nil "\301!\205    \302!\207" [#1# buffer-name kill-buffer] 2] 0 nil truncate-string-to-width beginning-of-line 2 mapconcat identity "\n"] 4 (#$ . 18222)])
190 #@196 Count columns and rows of STRING. Return a cons cell like (WIDTH . HEIGHT).
191 The last empty line of STRING is ignored.
192
193 Example:
194
195 (pos-tip-string-width-height "abc\nあいう\n123")
196 ;; => (6 . 3)
197 (defalias 'pos-tip-string-width-height #[(string) "\304\305!rq\210\306\216    c\210eb\210\307\210id\206`Sf\310=\203$\311\202%\312`dW\203:\313\210i ]\nT\202' \n-B\207" [#1=#:temp-buffer string height width generate-new-buffer " *temp*" #[nil "\301!\205    \302!\207" [#1# buffer-name kill-buffer] 2] nil 10 0 1 2] 3 (#$ . 18729)])
198 #@143 Return maximum column number in tooltip which occupies the full width
199 of display. Omitting FRAME means use display that selected frame is in.
200 (defalias 'pos-tip-x-display-width #[(&optional frame) "\301!\302!\245T\207" [frame x-display-pixel-width frame-char-width] 3 (#$ . 19272)])
201 #@141 Return maximum row number in tooltip which occupies the full height
202 of display. Omitting FRAME means use display that selected frame is in.
203 (defalias 'pos-tip-x-display-height #[(&optional frame) "\301!\302!\245T\207" [frame x-display-pixel-height frame-char-height] 3 (#$ . 19564)])
204 #@32 Calculate tooltip pixel width.
205 (defalias 'pos-tip-tooltip-width #[(width char-width) "    _\304\n \\\305\"\\\207" [width char-width pos-tip-border-width pos-tip-internal-border-width ash 1] 4 (#$ . 19856)])
206 #@33 Calculate tooltip pixel height.
207 (defalias 'pos-tip-tooltip-height #[(height char-height &optional frame) "\306\307!\206\n\310\307\"\n     \250\203    \202'\311    !\203&\312\313!    _!\202'\314\\_\315\f \\\316\"\\)\207" [frame spacing height char-height pos-tip-border-width pos-tip-internal-border-width default-value line-spacing frame-parameter floatp truncate frame-char-height 0 ash 1] 5 (#$ . 20067)])
208 #@1986 Show STRING in a tooltip, which is a small X window, at POS in WINDOW
209 using frame's default font with TIP-COLOR.
210
211 Return pixel position of tooltip relative to top left corner of frame as
212 a cons cell like (X . Y).
213
214 TIP-COLOR is a face or a cons cell like (FOREGROUND-COLOR . BACKGROUND-COLOR)
215 used to specify *only* foreground-color and background-color of tooltip. If
216 omitted, use `pos-tip-foreground-color' and `pos-tip-background-color' or the
217 foreground and background color of the `tooltip' face instead.
218
219 Omitting POS and WINDOW means use current position and selected window,
220 respectively.
221
222 Automatically hide the tooltip after TIMEOUT seconds. Omitting TIMEOUT means
223 use the default timeout of 5 seconds. Non-positive TIMEOUT means don't hide
224 tooltip automatically.
225
226 WIDTH, if non-nil, specifies the width of filling each paragraph.
227
228 If FRAME-COORDINATES is omitted or nil, automatically obtain the absolute
229 coordinates of the top left corner of frame which WINDOW is on. Here,
230 `top left corner of frame' represents the origin of `window-pixel-edges'
231 and its coordinates are essential for calculating the absolute coordinates
232 of the tooltip. If a cons cell like (LEFT . TOP), specifies the frame
233 absolute location and makes the calculation slightly faster, but can be
234 used only when it's clear that frame is in the specified position. Users
235 can get the latest values of frame coordinates for using in the next call
236 by referring the variable `pos-tip-saved-frame-coordinates' just after
237 calling this function. Otherwise, FRAME-COORDINATES `relative' means use
238 the pixel coordinates relative to the top left corner of the frame for
239 displaying the tooltip. This is the same effect as
240 `pos-tip-use-relative-coordinates' is non-nil.
241
242 DX specifies horizontal offset in pixel.
243
244 DY specifies vertical offset in pixel. This makes the calculations done
245 without considering the height of object at POS, so the object might be
246 hidden by the tooltip.
247
248 See also `pos-tip-show-no-propertize'.
249 (defalias 'pos-tip-show #[(string &optional tip-color pos window timeout width frame-coordinates dx dy) "\204\306 \307!\310    !\311    !\312\f!\313 !!\314 !\"\315\316\317\320    \321\"\"!#\322#\323!\324\"\257$%\203Z @%V\203Z\325\f%\326\327\326 &\312\f!\202r @\nV\204h A V\203r\330\f\n #\312\f!\331\332\f\333$# &'\334 @\335    !\"\336 A\337    !    #()*&\n.\207" [window frame max-width max-height string w-h selected-window window-frame pos-tip-x-display-width pos-tip-x-display-height pos-tip-string-width-height pos-tip-compute-foreground-color pos-tip-compute-background-color find-font font-spec :name frame-parameter font :font :foreground :background pos-tip-fill-string nil none pos-tip-truncate-string pos-tip-show-no-propertize propertize face pos-tip-tooltip-width frame-char-width pos-tip-tooltip-height frame-char-height tip-color fg bg frame-font tip-face-attrs width pos timeout frame-coordinates dx dy] 11 (#$ . 20480)])
250 (defalias 'pos-tip-hide 'x-hide-tip "Hide pos-tip's tooltip.")
251 #@236 Return coordinates of FRAME orign relative to the top left corner of
252 the FRAME extent, like (LEFT . TOP). The return value is recorded to
253 `pos-tip-frame-offset'.
254
255 Note that this function does't correctly work for X frame and Emacs 22.
256 (defalias 'pos-tip-calibrate-frame-offset #[(&optional frame) "\306\307    !\310\311\312\313\314\306\315    \316\"B\317\n!\n\306\211\320\306\311&    \321\311!\210\322 \210\205I\323@@\324\315    \325\"!#\323AA\324\315    \326\"!#B\211-\207" [pos-tip-frame-offset frame window delete-frame-functions pos-tip-border-width pos-tip-internal-border-width nil frame-first-window ((lambda (frame) (if (equal (frame-parameter frame 'name) "tooltip") (setq pos-tip-frame-offset (cons (eval (frame-parameter frame 'left)) (eval (frame-parameter frame 'top))))))) 0 1 pos-tip-show "" frame-parameter background-color window-start relative sit-for pos-tip-hide - eval left top rpos] 10 (#$ . 23495)])
257 #@322 Maximize the currently selected frame temporarily and set
258 `pos-tip-w32-saved-max-width-height' the effective display size in order
259 to become possible to calculate the absolute location of tooltip.
260
261 KEEP-MAXIMIZE non-nil means leave the frame maximized.
262
263 Note that this function is usable only in Emacs 23 for MS-Windows.
264 (defalias 'pos-tip-w32-max-width-height #[(&optional keep-maximize) "\304=\204\n\305\306!\210\307\310!\210\311\312!\210\313 \314 \315     A    @Z\\B\211\316\317!\203-\320\321\n\"\210 \2045\307\322!\210)\207" [window-system offset pos-tip-w32-saved-max-width-height keep-maximize w32 error "`pos-tip-w32-max-width-height' can be used only in w32 frame." w32-send-sys-command 61488 sit-for 0 pos-tip-calibrate-frame-offset frame-pixel-width frame-pixel-height called-interactively-p interactive message "%S" 61728] 4 (#$ . 24426) nil])
265 (provide 'pos-tip)