;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters, ;;; and so cannot be loaded into Emacs 22 or earlier. (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (string-lessp emacs-version "23") (error "`%s' was compiled for Emacs 23 or later" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@43 Directory that yasnippet was loaded from. (defconst yas--loaddir (byte-code "\302\206 !\207" [load-file-name buffer-file-name file-name-directory] 2) (#$ . 408)) (byte-code "\301\302\303\300!\205\f\304\305\"\"\210\301\306!\210\301\307\310\311#\210\301\312!\207" [yas--loaddir require yasnippet boundp expand-file-name "yasnippet" cl-lib color nil t edebug] 5) (defvar yas-debug-live-indicators (make-hash-table :test 'eq)) (defalias 'yas-debug-live-colors #[0 "\301C\302\303\304\305\306\307!\310\"\311\312%\"\210\211\242\207" [yas-debug-live-indicators nil maphash make-byte-code 514 "\300@A@\300\242B\240\207" vconcat vector [] 5 "\n\n(fn K V)"] 8]) #@17 (fn LOCATION) (defalias 'yas-debug-get-live-indicator #[257 "\302\303!\210\304\300!\203\211B\305\211\306!\203!\307!\211\262\262\202+\310!\262\311!\262\312 \"\211\205K\203E\203E\313A#\210\202J\314A!\210\211\262\206\315 \305\316\305\211\211\203_\317\202`\320\321\322\323\324!\"\262\325\326!\203x\327\330\326!\"\202y\262\331\332\333!\"\331\332\333!\"W\203\216\262\305\211:\203\264@\262\331\"\203\252^\202\253\211\266\202A\262\202\222\266\202\262\203\303V\203\311\262\262\211S\211\262\334Y\204`\335D\266\206\336\"\306!\203\362\337\340\341\342\343##\210\202\337\340\341\344\343##\210\337\345\341\346\343##\210\347B #\266\203\207" [yas-debug-recently-live-indicators yas-debug-live-indicators require color boundp nil markerp marker-position yas-debug-ov-fom-start yas-debug-ov-fom-end gethash move-overlay delete-overlay yas-debug-live-colors -1 100 1 format "#%06X" random 16777216 fboundp color-complement apply color-rgb-to-hex color-distance face-foreground default 0 :background make-overlay overlay-put before-string propertize "↓" face "↘" after-string "↙" puthash] 16 (#$ . 1074)]) #@15 (fn MARKER) (defalias 'yas-debug-live-marker #[257 "\300!\211@A\301\302\"\303\304\305\\\"\306!\2035\307\310\311\312\313\314\315#\316\"\317\320%C\321%\2026\211\207" [yas-debug-get-live-indicator overlay-get before-string format "at %d" 0 markerp propertize cursor-sensor-functions make-byte-code 771 "\303\301\304\305\302\306\307=\203\310\202\300##\207" vconcat vector [overlay-put before-string propertize face entered mode-line-highlight] 11 "\n\n(fn WINDOW OLDPOS DIR)" face] 17 (#$ . 2268)]) #@14 (fn OVFOM) (defalias 'yas-debug-ov-fom-start #[257 "\300!\203\n\301!\207\211\250\203\207\302!\207" [overlayp overlay-start yas--fom-start] 3 (#$ . 2795)]) #@14 (fn OVFOM) (defalias 'yas-debug-ov-fom-end #[257 "\300!\203\n\301!\207\211\250\203\207\302!\207" [overlayp overlay-end yas--fom-end] 3 (#$ . 2964)]) #@14 (fn RANGE) (defalias 'yas-debug-live-range #[257 "\300!\211@A\301\302\"\301\303\"\304!\305!\203V\211\203V\306!\2040\250\204V\211\250\204V\307\310\311\312\\\312\\#\313\314\315\316\317\320 $\321\"\322\323%C\324\n%\202W\325\207" [yas-debug-get-live-indicator overlay-get before-string after-string yas-debug-ov-fom-start yas-debug-ov-fom-end overlayp propertize format "from %d to %d" 0 cursor-sensor-functions make-byte-code 771 "\211\304=\203\n\305\202\300\306\301\307\310\302\311##\210\306\301\312\310\303\311##\207" vconcat vector [entered mode-line-highlight overlay-put before-string propertize face after-string] 11 "\n\n(fn WINDOW OLDPOS DIR)" face ""] 20 (#$ . 3127)]) #@26 (fn OUTBUF &rest BODY) (defalias 'yas-debug-with-tracebuf '(macro . #[385 "\300\301!\302\303\304BBDC\305\306\307BB\310\311\312\313\314BBEC\305 \313 \315BBE\316\n E\317\320BB\257EE\207" [make-symbol "tracebuf" let or ((get-buffer-create "*YASnippet trace*")) unless eq ((current-buffer)) cl-flet printf (fmt &rest args) with-current-buffer ((insert (apply #'format fmt args))) ((erase-buffer) (when (fboundp 'cursor-sensor-mode) (cursor-sensor-mode 1)) (setq truncate-lines t)) setq save-restriction (widen)] 14 (#$ . 3851)])) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put yas-debug-with-tracebuf lisp-indent-function 1 put edebug-form-spec (sexp body)] 5) #@33 (fn SNIPPET &optional OUTBUF) (defalias 'yas-debug-snippet #[513 "\211\206\305\306!\211p=?\205\256\307\204'rq\210\310 \210\311\312!\203$\312\313!\210\314)\262\214~\210\315! >\204=\316\317\320D\"\210\321H\211\203a\322\315! >\204X\316\317\320\nD\"\210\323H\324!$\210\210\315! >\204r\316\317\320D\"\210\325H\211\203\367\315!\n>\204\210\316\317\326D\"\210\211\327H:\204\367\330\315!\n>\204\242\316\317\326D\"\210\313H\206\251\331\315!\n>\204\271\316\317\326D\"\210\332H\203\303\333\202\304\334\324!\335\315!\n>\204\332\316\317\326\nD\"\210\327H\315 !\n>\204\357\316\317\326D\"\210\336H\"&\210\210\315! >\204\316\317\320D\"\210\336H\211\203<\337\340\315!>\204#\316\317\341D\"\210\313H!\315!>\2047\316\317\341D\"\210\327H$\210\210\315! >\204M\316\317\320D\"\210\327H\211\205\251\211@\315!\n>\204e\316\317\326D\"\210\211\327H:\204!\342\315!\n>\204\316\317\326D\"\210\313H\206\206\331\315!\n>\204\226\316\317\326D\"\210\332H\203\240\333\202\241\334\324!\335\315!\n>\204\267\316\317\326\nD\"\210\327H\315 !\n>\204\314\316\317\326D\"\210\336H\"\343\315 !\n>\204\343\316\317\326D\"\210\344H!\315 !\n>\204\371\316\317\326D\"\210\323H\203\345\346\343\315\f!\n>\204\316\317\326D\"\210\323H!\"\202\347&\210\315!\n>\2040\316\317\326D\"\210\211\321H\211\203\241\211@\315!\f>\204H\316\317\350D\"\210\211\313H:\204\232\351\324!\335\315!\f>\204h\316\317\350D\"\210\313H\315!\f>\204|\316\317\350 D\"\210\327H\"\343\315!\f>\204\223\316\317\350 D\"\210\321H!%\210A\266\202\2023\210A\266\202\202P\262)\262\207" [truncate-lines cl-struct-yas--snippet-tags cl-struct-yas--field-tags cl-struct-yas--exit-tags cl-struct-yas--mirror-tags get-buffer-create "*YASnippet trace*" #[642 "rq\210\300\301#c)\207" [apply format] 7 "\n\n(fn FMT &rest ARGS)"] erase-buffer fboundp cursor-sensor-mode 1 t type-of signal wrong-type-argument yas--snippet 5 " sid: %d control overlay %s\n" 4 yas-debug-live-range 6 yas--field 2 " active field: #%d %s %s covering \"%s\"\n" -1 7 "**" "--" buffer-substring-no-properties 3 " snippet-exit: %s next: %s\n" yas-debug-live-marker yas--exit " field: %d %s %s covering \"%s\" next: %s%s\n" yas--debug-format-fom-concise 8 format " parent: %s" "" yas--mirror " mirror: %s covering \"%s\" next: %s\n"] 21 (#$ . 4547)]) (defvar yas-debug-target-buffer nil) (defvar yas-debug-target-snippets nil nil) (make-variable-buffer-local 'yas-debug-target-snippets) (defvar yas-debug-undo nil) #@14 (fn VALUE) (defalias 'yas-toggle-debug-undo #[257 "\211\301\302\303\203 \304\202\305#\207" [yas-debug-undo yas--message 3 "debug undo %sabled" "en" "dis"] 5 (#$ . 7125) (byte-code "?C\207" [yas-debug-undo] 1)]) (byte-code "\300\301\302\303\304$\210\300\305\306\307\304$\207" [ad-add-advice yas--snippet-parse-create (yas-debug-target-snippet nil t (advice lambda (snippet) (add-to-list 'yas-debug-target-snippets snippet))) before nil yas--commit-snippet (yas-debug-untarget-snippet nil t (advice lambda (snippet) (setq yas-debug-target-snippets (remq snippet yas-debug-target-snippets)) (maphash (lambda (k color-ov) (delete-overlay (cdr color-ov))) yas-debug-live-indicators) (clrhash yas-debug-live-indicators))) after] 5) #@496 Print debug information on active snippets to buffer OUTBUF. If OUTBUF is nil, use a buffer named "*YASsnippet trace*". If HOOK is non-nil, install `yas-debug-snippets' in `post-command-hook' to update the information on every command after this one. If it is `snippet-navigation' then install hook buffer-locally, otherwise install it globally. If HOOK is `edebug-create', also instrument the function `yas--snippet-parse-create' with `edebug' and show its source. (fn &optional OUTBUF HOOK) (defalias 'yas-debug-snippets #[512 "\3061\377\206\307\310!\211p=?\205\373\311\204+rq\210\312 \210\313\314!\203(\314\315!\210\316)\262\214~\210\317 !\2049\320r \206?pq\210\n\203J\321\322\n\"\320\211\323\fG#\210\n\206Y\324 \211\203\204\211@\325\326! >\204r\327\330\331D\"\210\332H#\210\333\"\210A\266\202\202Y\210\334\335/\"\210)0\203\2721<\203\272\211\3361G#\2101\320:\203\270@\262\337#\210A\262\202\242\266)\205\370p\340\341\342\343#\210\344\341!\210\340\345\346\347#\210\344\345!\210\350\351\352\320\353=$\210\354=\203\367\355\341!\210\356\341!r\211@q\210\211Ab\210)\210)\262\2620\207\327@A\"\207" [truncate-lines yas-debug-target-buffer yas-debug-target-snippets yas-debug-recently-live-indicators yas--active-snippets cl-struct-yas--snippet-tags (debug error) get-buffer-create "*YASnippet trace*" #[642 "rq\210\300\301#c)\207" [apply format] 7 "\n\n(fn FMT &rest ARGS)"] erase-buffer fboundp cursor-sensor-mode 1 t buffer-live-p nil cl-delete-if-not yas--snippet-p "(length yas--snippets-snippets) => %d\n" yas-active-snippets "snippet %d\n" type-of signal wrong-type-argument yas--snippet 4 yas-debug-snippet maphash #[514 ">?\205\302A!\210\303 \"\207" [yas-debug-recently-live-indicators yas-debug-live-indicators delete-overlay remhash] 5 "\n\n(fn LOC COLOR-OV)"] "Undo list has %s elements:\n" "%S\n" ad-enable-advice yas--snippet-parse-create before yas-debug-target-snippet ad-activate yas--commit-snippet after yas-debug-untarget-snippet add-hook post-command-hook yas-debug-snippets snippet-navigation edebug-create edebug-instrument-function find-function-noselect yas-debug-live-indicators yas-debug-undo buffer-undo-list] 13 (#$ . 7866) (list nil t)]) (defalias 'yas-debug-snippet-create #[0 "\300\301\302\"\207" [yas-debug-snippets nil create] 3]) #@12 (fn FOM) (defalias 'yas--debug-format-fom-concise #[257 "\211\205\211\302!>\203L\303\304\302!>\204\305\306\307D\"\210\310H\302!>\2040\305\306\307D\"\210\311H\312\\\302!>\204E\305\306\307D\"\210\313H\312\\$\207\302! >\203\201\303\314\302! >\204e\305\306\315D\"\210\310H\312\\\302! >\204z\305\306\315D\"\210\311H\312\\#\207\303\316\317!\312\\\"\207" [cl-struct-yas--field-tags cl-struct-yas--mirror-tags type-of format "field %s from %d to %d" signal wrong-type-argument yas--field 1 2 0 3 "mirror from %d to %d" yas--mirror "snippet exit at %d" yas--fom-start] 9 (#$ . 10205)]) #@60 Implement command line processing. (fn &optional OPTIONS) (defalias 'yas-debug-process-command-line #[256 "\306\307\211\310\311\2044\311\211\211A\242\262\203.\312\232\204.\313\314\"\203.B\262\202\211\237\266\202\262\315\316\317\313$\211\203I\320@\321\311O\322P!\262\210\315\323\317\313$\211\203a\324@\325\311O\f\317\326$A\262\210\327\330\331!!\210 \210\315\332\317\313$\211\203\324\211@\321\311O\262\333!\203\254\334\335!r\211q\210\336\337\340\341\342!\343\"\325$\216\344!\210\345!\346C\"\210\211@\262\210*\210\202\324\347 \210\350\"\211\203\316\351! >\204\306\352\353\354D\"\210\211\355H\262\202\323\356\357\"\210\210\210\360\361\362\363;\"!!\210\364\235\206\350\365\235@\211\203\366\367 \370\311\365\232\203\374\371\202\375\307\"\"\210\210\372\355!\210\211\205\211c\207" [yas-verbosity yas-triggers-in-field debug-on-error command-line-args-left auto-mode-alist cl-struct-yas--template-tags 99 t fundamental-mode nil "--" string-prefix-p "-" cl-member "-M:" :test intern 3 "-mode" "-M." cl-assoc 2 #[514 "\211\301\302\303#)\207" [inhibit-changing-match-data nil t string-match] 9 "\n\n(fn EXT REGEXP)"] switch-to-buffer get-buffer-create "*yas test*" "-S:" file-exists-p generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] insert-file-contents yas--parse-template yas-define-snippets yas-reload-all yas--lookup-snippet-1 type-of signal wrong-type-argument yas--template 1 error "No such snippet `%s'" display-buffer find-file-noselect expand-file-name "yasnippet.el" "-v" "-vv" set-window-buffer split-window yas-debug-snippets edebug-create yas-minor-mode yas--loaddir] 12 (#$ . 10824)]) (byte-code "\203\301 \210\302\303!\207" [command-line-args-left yas-debug-process-command-line provide yasnippet-debug] 2)