| 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\300\303!\210\300\304!\210\305\306\307\310\311\312\313\314&\207" [require cl-lib eldoc easymenu help-mode custom-declare-group yasnippet nil "Yet Another Snippet extension" :prefix "yas-" :group editing] 8) | |
| 16 | #@43 Directory that yasnippet was loaded from. | |
| 17 | (defconst yas--loaddir (byte-code "\302\206 !\207" [load-file-name buffer-file-name file-name-directory] 2) (#$ . 654)) | |
| 18 | (defconst yas-installed-snippets-dir (expand-file-name "snippets" yas--loaddir)) | |
| 19 | (make-obsolete-variable 'yas-installed-snippets-dir "Yasnippet no longer comes with installed snippets" "0.13") | |
| 20 | (defconst yas--default-user-snippets-dir (expand-file-name "snippets" user-emacs-directory)) | |
| 21 | #@358 List of top-level snippet directories. | |
| 22 | ||
| 23 | Each element, a string or a symbol whose value is a string, | |
| 24 | designates a top-level directory where per-mode snippet | |
| 25 | directories can be found. | |
| 26 | ||
| 27 | Elements appearing earlier in the list override later elements' | |
| 28 | snippets. | |
| 29 | ||
| 30 | The first directory is taken as the default for storing snippet's | |
| 31 | created with `yas-new-snippet'. | |
| 32 | (custom-declare-variable 'yas-snippet-dirs '(list yas--default-user-snippets-dir) '(#$ . 1112) :type '(choice (directory :tag "Single directory") (repeat :tag "List of directories" (choice (directory) (variable)))) :set #[(symbol new) "\303!\205 J\304\n\"\210\305\306!?\206 \n\232?\205 \306 )\207" [symbol old new boundp set-default fboundp yas-reload-all] 3]) | |
| 33 | #@56 Return variable `yas-snippet-dirs' as list of strings. | |
| 34 | (defalias 'yas-snippet-dirs #[nil "<\203 \202 C\304\211 :\203E @\211;\203! \n\202; \n9\2037 \305\n!\2037 \nJ;\2037 \nJ\202; \306\307\n\" B A\211\202 \237+\207" [yas-snippet-dirs #1=#:--cl-var-- e #2=#:--cl-var-- nil boundp error "[yas] invalid element %s in `yas-snippet-dirs'"] 4 (#$ . 1844)]) | |
| 35 | (byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\311%\210\300\312\313\314\304\315%\210\300\316\317\320\304\321%\210\300\322\317\323\304\321%\210\300\324\325\326\304\321%\210\300\327\317\330\304\321%\210\300\331\332\333\304\334%\210\335\331\336\337#\210\300\340\317\341\304\321%\210\300\342\317\343\304\321%\210\300\344\345\346\304\347%\210\300\350\351\352\304\305%\210\300\353\317\354\304\355%\210\300\356\325\357\304\321%\210\300\360\317\361\304\321%\210\300\362\317\363\304\364%\210\300\365\325\366\304\321\367\370&\210\371\372\373\374#\210\371\375\317\376#\207" [custom-declare-variable yas-new-snippet-default "# -*- mode: snippet -*-\n# name: $1\n# key: ${2:${1:$(yas--key-from-desc yas-text)}}\n# --\n$0`(yas-escape-text yas-selected-text)`" "Default snippet to use when creating a new snippet.\nIf nil, don't use any snippet." :type string yas-prompt-functions '(yas-dropdown-prompt yas-completing-prompt yas-maybe-ido-prompt yas-no-prompt) "Functions to prompt for keys, templates, etc interactively.\n\nThese functions are called with the following arguments:\n\n- PROMPT: A string to prompt the user\n\n- CHOICES: a list of strings or objects.\n\n- optional DISPLAY-FN : A function that, when applied to each of\nthe objects in CHOICES will return a string.\n\nThe return value of any function you put here should be one of\nthe objects in CHOICES, properly formatted with DISPLAY-FN (if\nthat is passed).\n\n- To signal that your particular style of prompting is\nunavailable at the moment, you can also have the function return\nnil.\n\n- To signal that the user quit the prompting process, you can\nsignal `quit' with\n\n (signal \\='quit \"user quit!\")" (repeat function) yas-indent-line 'auto "Controls indenting applied to a recent snippet expansion.\n\nThe following values are possible:\n\n- `fixed' Indent the snippet to the current column;\n\n- `auto' Indent each line of the snippet with `indent-according-to-mode'\n\nEvery other value means don't apply any snippet-side indentation\nafter expansion (the manual per-line \"$>\" indentation still\napplies)." (choice (const :tag "Nothing" nothing) (const :tag "Fixed" fixed) (const :tag "Auto" auto)) yas-also-auto-indent-first-line nil "Non-nil means also auto indent first line according to mode.\n\nNaturally this is only valid when `yas-indent-line' is `auto'." boolean yas-also-indent-empty-lines "Non-nil means also indent empty lines according to mode." yas-snippet-revival t "Non-nil means re-activate snippet fields after undo/redo." yas-triggers-in-field "If non-nil, allow stacked expansions (snippets inside snippets).\n\nOtherwise `yas-next-field-or-maybe-expand' just moves on to the\nnext field" yas-fallback-behavior 'return-nil "This option is obsolete.\nNow that the conditional keybinding `yas-maybe-expand' is\navailable, there's no more need for it." (choice (const :tag "Call previous command" call-other-command) (const :tag "Do nothing" return-nil)) make-obsolete-variable "For `call-other-command' behavior bind to the conditional\ncommand value `yas-maybe-expand', for `return-nil' behavior bind\ndirectly to `yas-expand'." "0.12" yas-choose-keys-first "If non-nil, prompt for snippet key first, then for template.\n\nOtherwise prompts for all possible snippet names.\n\nThis affects `yas-insert-snippet' and `yas-visit-snippet-file'." yas-choose-tables-first "If non-nil, and multiple eligible snippet tables, prompts user for tables first.\n\nOtherwise, user chooses between the merging together of all\neligible tables.\n\nThis affects `yas-insert-snippet', `yas-visit-snippet-file'" yas-use-menu 'abbreviate "Display a YASnippet menu in the menu bar.\n\nWhen non-nil, submenus for each snippet table will be listed\nunder the menu \"Yasnippet\".\n\n- If set to `abbreviate', only the current major-mode\nmenu and the modes set in `yas--extra-modes' are listed.\n\n- If set to `full', every submenu is listed\n\n- If set to nil, hide the menu.\n\nAny other non-nil value, every submenu is listed." (choice (const :tag "Full" full) (const :tag "Abbreviate" abbreviate) (const :tag "No menu" nil)) yas-trigger-symbol (or (and (eq window-system 'mac) (ignore-errors (char-to-string 8677))) " =>") "The text that will be used in menu to represent the trigger." yas-wrap-around-region "What to insert for snippet's $0 field.\n\nIf set to a character, insert contents of corresponding register.\nIf non-nil insert region contents. This can be overridden on a\nper-snippet basis. A value of `cua' is considered equivalent to\n`?0' for backwards compatibility." (choice (character :tag "Insert from register") (const t :tag "Insert region contents") (const nil :tag "Don't insert anything") (const cua)) yas-good-grace "If non-nil, don't raise errors in elisp evaluation.\n\nThis affects both the inline elisp in snippets and the hook\nvariables such as `yas-after-exit-snippet-hook'.\n\nIf this variable's value is `inline', an error string \"[yas]\nerror\" is returned instead of raising the error. If this\nvariable's value is `hooks', a message is output to according to\n`yas-verbosity-level'. If this variable's value is t, both are\nactive." yas-visit-from-menu "If non-nil visit snippets's files from menu, instead of expanding them.\n\nThis can only work when snippets are loaded from files." yas-expand-only-for-last-commands "List of `last-command' values to restrict tab-triggering to, or nil.\n\nLeave this set at nil (the default) to be able to trigger an\nexpansion simply by placing the cursor after a valid tab trigger,\nusing whichever commands.\n\nOptionally, set this to something like (self-insert-command) if\nyou to wish restrict expansion to only happen when the last\nletter of the snippet tab trigger was typed immediately before\nthe trigger key itself." (repeat function) yas-alias-to-yas/prefix-p "If non-nil make aliases for the old style yas/ prefixed symbols.\nIt must be set to nil before loading yasnippet to take effect." :group yasnippet custom-declare-face yas-field-highlight-face ((t (:inherit 'region))) "The face used to highlight the currently active field of a snippet" yas--field-debug-face "The face used for debugging some overlays normally hidden"] 8) | |
| 36 | #@182 A conditional key definition. | |
| 37 | This can be used as a key definition in keymaps to bind a key to | |
| 38 | `yas-skip-and-clear-field' only when at the beginning of an | |
| 39 | unmodified snippet field. | |
| 40 | (defconst yas-maybe-skip-and-clear-field '(menu-item "" yas-skip-and-clear-field :filter yas--maybe-clear-field-filter) (#$ . 8427)) | |
| 41 | #@173 A conditional key definition. | |
| 42 | This can be used as a key definition in keymaps to bind a key to | |
| 43 | `yas-clear-field' only when at the beginning of an | |
| 44 | unmodified snippet field. | |
| 45 | (defconst yas-maybe-clear-field '(menu-item "" yas-clear-field :filter yas--maybe-clear-field-filter) (#$ . 8748)) | |
| 46 | #@61 The active keymap while a snippet expansion is in progress. | |
| 47 | (defvar yas-keymap (byte-code "\303 \304\305\306#\210\304\307\306#\210\304\310\311#\210\304\312\311#\210\304\313\314#\210\304\315 #\210\304\316\n#\210)\207" [map yas-maybe-skip-and-clear-field yas-maybe-clear-field make-sparse-keymap define-key [(tab)] yas-next-field-or-maybe-expand " " [(shift tab)] yas-prev-field [backtab] "" yas-abort-snippet "" ""] 4) (#$ . 9041)) | |
| 48 | #@1472 Syntaxes and functions to help look for trigger keys before point. | |
| 49 | ||
| 50 | Each element in this list specifies how to skip buffer positions | |
| 51 | backwards and look for the start of a trigger key. | |
| 52 | ||
| 53 | Each element can be either a string or a function receiving the | |
| 54 | original point as an argument. A string element is simply passed | |
| 55 | to `skip-syntax-backward' whereas a function element is called | |
| 56 | with no arguments and should also place point before the original | |
| 57 | position. | |
| 58 | ||
| 59 | The string between the resulting buffer position and the original | |
| 60 | point is matched against the trigger keys in the active snippet | |
| 61 | tables. | |
| 62 | ||
| 63 | If no expandable snippets are found, the next element is the list | |
| 64 | is tried, unless a function element returned the symbol `again', | |
| 65 | in which case it is called again from the previous position and | |
| 66 | may once more reposition point. | |
| 67 | ||
| 68 | For example, if `yas-key-syntaxes' has the value ("w" "w_"), | |
| 69 | trigger keys composed exclusively of "word"-syntax characters | |
| 70 | are looked for first. Failing that, longer keys composed of | |
| 71 | "word" or "symbol" syntax are looked for. Therefore, | |
| 72 | triggering after | |
| 73 | ||
| 74 | foo-barbaz | |
| 75 | ||
| 76 | will, according to the "w" element first try "barbaz". If | |
| 77 | that isn't a trigger key, "foo-barbaz" is tried, respecting the | |
| 78 | second "w_" element. Notice that even if "baz" is a trigger | |
| 79 | key for an active snippet, it won't be expanded, unless a | |
| 80 | function is added to `yas-key-syntaxes' that eventually places | |
| 81 | point between "bar" and "baz". | |
| 82 | ||
| 83 | See also Info node `(elisp) Syntax Descriptors'. | |
| 84 | (defvar yas-key-syntaxes (list 'yas-try-key-from-whitespace "w_.()" "w_." "w_" "w") (#$ . 9492)) | |
| 85 | #@309 Hooks to run after a snippet exited. | |
| 86 | ||
| 87 | The hooks will be run in an environment where some variables bound to | |
| 88 | proper values: | |
| 89 | ||
| 90 | `yas-snippet-beg' : The beginning of the region of the snippet. | |
| 91 | ||
| 92 | `yas-snippet-end' : Similar to beg. | |
| 93 | ||
| 94 | Attention: These hooks are not run when exiting nested/stacked snippet expansion! | |
| 95 | (defvar yas-after-exit-snippet-hook nil (#$ . 11067)) | |
| 96 | #@47 Hooks to run just before expanding a snippet. | |
| 97 | (defvar yas-before-expand-snippet-hook nil (#$ . 11435)) | |
| 98 | #@109 Disables snippet expansion in strings and comments. | |
| 99 | To use, set `yas-buffer-local-condition' to this value. | |
| 100 | (defconst yas-not-string-or-comment-condition '(if (and (let ((ppss (syntax-ppss))) (or (nth 3 ppss) (nth 4 ppss))) (memq this-command '(yas-expand yas-expand-from-trigger-key yas-expand-from-keymap))) '(require-snippet-condition . force-in-comment) t) (#$ . 11545)) | |
| 101 | (byte-code "\301\302\303\304\305\306\307\310\311F\312BB%\210\301\313\314\315\305\316%\207" [yas-not-string-or-comment-condition custom-declare-variable yas-buffer-local-condition t "Snippet expanding condition.\n\nThis variable is a Lisp form which is evaluated every time a\nsnippet expansion is attempted:\n\n * If it evaluates to nil, no snippets can be expanded.\n\n * If it evaluates to the a cons (require-snippet-condition\n . REQUIREMENT)\n\n * Snippets bearing no \"# condition:\" directive are not\n considered\n\n * Snippets bearing conditions that evaluate to nil (or\n produce an error) won't be considered.\n\n * If the snippet has a condition that evaluates to non-nil\n RESULT:\n\n * If REQUIREMENT is t, the snippet is considered\n\n * If REQUIREMENT is `eq' RESULT, the snippet is\n considered\n\n * Otherwise, the snippet is not considered.\n\n * If it evaluates to the symbol `always', all snippets are\n considered for expansion, regardless of any conditions.\n\n * If it evaluates to t or some other non-nil value\n\n * Snippet bearing no conditions, or conditions that\n evaluate to non-nil, are considered for expansion.\n\n * Otherwise, the snippet is not considered.\n\nHere's an example preventing snippets from being expanded from\ninside comments, in `python-mode' only, with the exception of\nsnippets returning the symbol `force-in-comment' in their\nconditions.\n\n (add-hook \\='python-mode-hook\n (lambda ()\n (setq yas-buffer-local-condition\n \\='(if (python-syntax-comment-or-string-p)\n \\='(require-snippet-condition . force-in-comment)\n t))))" :type choice const :tag "Disable snippet expansion inside strings and comments" ((const :tag "Expand all snippets regardless of conditions" always) (const :tag "Expand snippets unless their condition is nil" t) (const :tag "Disable all snippet expansion" nil) sexp) yas-overlay-priority 100 "Priority to use for yasnippets overlays.\nThis is useful to control whether snippet navigation bindings\noverride bindings from other packages (e.g., `company-mode')." integer] 10) | |
| 102 | (defconst yas--version "0.13.0") | |
| 103 | #@53 A hash table of MAJOR-MODE symbols to menu keymaps. | |
| 104 | (defvar yas--menu-table (make-hash-table) (#$ . 14228)) | |
| 105 | #@54 List of characters which *might* need to be escaped. | |
| 106 | (defvar yas--escaped-characters '(92 96 34 39 36 125 123 40 41) (#$ . 14342)) | |
| 107 | #@41 A regexp to *almost* recognize a field. | |
| 108 | (defconst yas--field-regexp "${\\([0-9]+:\\)?\\([^}]*\\)}" (#$ . 14479)) | |
| 109 | #@55 A regexp to *almost* recognize a "$(...)" expression. | |
| 110 | (defconst yas--multi-dollar-lisp-expression-regexp "$+[ \n]*\\(([^)]*)\\)" (#$ . 14598)) | |
| 111 | #@61 A regexp to recognize a "\=`lisp-expression\=`" expression. | |
| 112 | (defconst yas--backquote-lisp-expression-regexp "`\\([^`]*\\)`" (#$ . 14748)) | |
| 113 | #@59 A regexp to *almost* recognize a mirror with a transform. | |
| 114 | (defconst yas--transform-mirror-regexp "${\\(?:\\([0-9]+\\):\\)?$\\([ \n]*([^}]*\\)" (#$ . 14892)) | |
| 115 | #@40 A regexp to recognize a simple mirror. | |
| 116 | (defconst yas--simple-mirror-regexp "$\\([0-9]+\\)" (#$ . 15056)) | |
| 117 | #@37 Contains the next id for a snippet. | |
| 118 | (defvar yas--snippet-id-seed 0 (#$ . 15167)) | |
| 119 | #@45 The original value of `auto-fill-function'. | |
| 120 | (defvar yas--original-auto-fill-function nil (#$ . 15254)) | |
| 121 | (make-variable-buffer-local 'yas--original-auto-fill-function) | |
| 122 | (defvar yas--watch-auto-fill-backtrace nil) | |
| 123 | (defalias 'yas--watch-auto-fill #[(sym newval op _where) "\303=\203 \204 \n\306=\204! \302=\205L \306=\205L ?\205L \f?\205L \307\310!\205L \311=\205C \312\302!\306=?\205C \313\314\310\315!\316\317$?\205L \310\315!\211\207" [sym newval auto-fill-function yas--original-auto-fill-function yas--watch-auto-fill-backtrace op yas--auto-fill fboundp backtrace-frames makunbound default-value cl-member kill-all-local-variables yas--watch-auto-fill :key #[(frame) "A@\207" [frame] 1]] 5]) | |
| 124 | (byte-code "\300\301!\203 \301\302\303\"\210\301\304\303\"\210\300\207" [fboundp add-variable-watcher yas--original-auto-fill-function yas--watch-auto-fill auto-fill-function] 3) | |
| 125 | (defalias 'yas--snippet-next-id #[nil "T )\207" [yas--snippet-id-seed id] 1]) | |
| 126 | #@27 Holds the YASnippet menu. | |
| 127 | (defvar yas--minor-mode-menu nil (#$ . 16224)) | |
| 128 | (defvar yas--condition-cache-timestamp nil) | |
| 129 | #@128 Return CMD if there is an expandable snippet at point. | |
| 130 | This function is useful as a `:filter' to a conditional key | |
| 131 | definition. | |
| 132 | (defalias 'yas-maybe-expand-abbrev-key-filter #[(cmd) "\302 \303 )\205\n \207" [yas--condition-cache-timestamp cmd current-time yas--templates-for-key-at-point] 1 (#$ . 16348)]) | |
| 133 | (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias yas--maybe-expand-key-filter yas-maybe-expand-abbrev-key-filter nil make-obsolete "0.14"] 4) | |
| 134 | #@164 A conditional key definition. | |
| 135 | This can be used as a key definition in keymaps to bind a key to | |
| 136 | `yas-expand' only when there is a snippet available to be | |
| 137 | expanded. | |
| 138 | (defconst yas-maybe-expand '(menu-item "" yas-expand :filter yas-maybe-expand-abbrev-key-filter) (#$ . 16821)) | |
| 139 | #@50 The keymap used when `yas-minor-mode' is active. | |
| 140 | (defvar yas-minor-mode-map (byte-code "\302 \303\304 #\210\303\305 #\210\303\306\307#\210\303\310\311#\210\303\312\313#\210)\207" [map yas-maybe-expand make-sparse-keymap define-key [(tab)] " " "&" yas-insert-snippet "&" yas-new-snippet "&" yas-visit-snippet-file] 4) (#$ . 17101)) | |
| 141 | #@44 Menu used when `yas-minor-mode' is active. | |
| 142 | (defvar yas--minor-mode-menu nil (#$ . 17451)) | |
| 143 | (easy-menu-do-define 'yas--minor-mode-menu yas-minor-mode-map "Menu used when `yas-minor-mode' is active." '("YASnippet" :visible yas-use-menu "----" ["Expand trigger" yas-expand :help "Possibly expand tab trigger before point"] ["Insert at point..." yas-insert-snippet :help "Prompt for an expandable snippet and expand it at point"] ["New snippet..." yas-new-snippet :help "Create a new snippet in an appropriate directory"] ["Visit snippet file..." yas-visit-snippet-file :help "Prompt for an expandable snippet and find its file"] "----" ("Snippet menu behaviour" ["Visit snippets" (setq yas-visit-from-menu t) :help "Visit snippets from the menu" :active t :style radio :selected yas-visit-from-menu] ["Expand snippets" (setq yas-visit-from-menu nil) :help "Expand snippets from the menu" :active t :style radio :selected (not yas-visit-from-menu)] "----" ["Show all known modes" (setq yas-use-menu 'full) :help "Show one snippet submenu for each loaded table" :active t :style radio :selected (eq yas-use-menu 'full)] ["Abbreviate according to current mode" (setq yas-use-menu 'abbreviate) :help "Show only snippet submenus for the current active modes" :active t :style radio :selected (eq yas-use-menu 'abbreviate)]) ("Indenting" ["Auto" (setq yas-indent-line 'auto) :help "Indent each line of the snippet with `indent-according-to-mode'" :active t :style radio :selected (eq yas-indent-line 'auto)] ["Fixed" (setq yas-indent-line 'fixed) :help "Indent the snippet to the current column" :active t :style radio :selected (eq yas-indent-line 'fixed)] ["None" (setq yas-indent-line 'none) :help "Don't apply any particular snippet indentation after expansion" :active t :style radio :selected (not (member yas-indent-line '(fixed auto)))] "----" ["Also auto indent first line" (setq yas-also-auto-indent-first-line (not yas-also-auto-indent-first-line)) :help "When auto-indenting also, auto indent the first line menu" :active (eq yas-indent-line 'auto) :style toggle :selected yas-also-auto-indent-first-line]) ("Prompting method" ["System X-widget" (setq yas-prompt-functions (cons #'yas-x-prompt (remove #'yas-x-prompt yas-prompt-functions))) :help "Use your windowing system's (gtk, mac, windows, etc...) default menu" :active t :style radio :selected (eq (car yas-prompt-functions) #'yas-x-prompt)] ["Dropdown-list" (setq yas-prompt-functions (cons #'yas-dropdown-prompt (remove #'yas-dropdown-prompt yas-prompt-functions))) :help "Use a special dropdown list" :active t :style radio :selected (eq (car yas-prompt-functions) #'yas-dropdown-prompt)] ["Ido" (setq yas-prompt-functions (cons #'yas-ido-prompt (remove #'yas-ido-prompt yas-prompt-functions))) :help "Use an ido-style minibuffer prompt" :active t :style radio :selected (eq (car yas-prompt-functions) #'yas-ido-prompt)] ["Completing read" (setq yas-prompt-functions (cons #'yas-completing-prompt (remove #'yas-completing-prompt yas-prompt-functions))) :help "Use a normal minibuffer prompt" :active t :style radio :selected (eq (car yas-prompt-functions) #'yas-completing-prompt)]) ("Misc" ["Wrap region in exit marker" (setq yas-wrap-around-region (not yas-wrap-around-region)) :help "If non-nil automatically wrap the selected text in the $0 snippet exit" :style toggle :selected yas-wrap-around-region] ["Allow stacked expansions " (setq yas-triggers-in-field (not yas-triggers-in-field)) :help "If non-nil allow snippets to be triggered inside other snippet fields" :style toggle :selected yas-triggers-in-field] ["Revive snippets on undo " (setq yas-snippet-revival (not yas-snippet-revival)) :help "If non-nil allow snippets to become active again after undo" :style toggle :selected yas-snippet-revival] ["Good grace " (setq yas-good-grace (not yas-good-grace)) :help "If non-nil don't raise errors in bad embedded elisp in snippets" :style toggle :selected yas-good-grace]) "----" ["Load snippets..." yas-load-directory :help "Load snippets from a specific directory"] ["Reload everything" yas-reload-all :help "Cleanup stuff, reload snippets, rebuild menus"] ["About" yas-about :help "Display some information about YASnippet"])) | |
| 144 | #@178 An internal list of modes for which to also lookup snippets. | |
| 145 | ||
| 146 | This variable probably makes more sense as buffer-local, so | |
| 147 | ensure your use `make-local-variable' when you set it. | |
| 148 | (defvar yas--extra-modes nil (#$ . 21660)) | |
| 149 | (byte-code "\302\303\304\305#\210\306\305\211\203, @\303N\203% \304N\204% \307\304\303N#\210 A\211\204 *\310\303\304\311#\207" [prop --dolist-tail-- defvaralias yas-extra-modes yas--extra-modes nil (saved-value saved-variable-comment) put make-obsolete-variable "0.9.1"] 6) | |
| 150 | #@55 A hash table of mode symbols to `yas--table' objects. | |
| 151 | (defvar yas--tables (make-hash-table) (#$ . 22170)) | |
| 152 | #@348 A hash table of mode symbols do lists of direct parent mode symbols. | |
| 153 | ||
| 154 | This list is populated when reading the ".yas-parents" files | |
| 155 | found when traversing snippet directories with | |
| 156 | `yas-load-directory'. | |
| 157 | ||
| 158 | There might be additional parenting information stored in the | |
| 159 | `derived-mode-parent' property of some mode symbols, but that is | |
| 160 | not recorded here. | |
| 161 | (defvar yas--parents (make-hash-table) (#$ . 22283)) | |
| 162 | #@466 Keymap alist supporting direct snippet keybindings. | |
| 163 | ||
| 164 | This variable is placed in `emulation-mode-map-alists'. | |
| 165 | ||
| 166 | Its elements looks like (TABLE-NAME . KEYMAP). They're | |
| 167 | instantiated on `yas-reload-all' but KEYMAP is added to only when | |
| 168 | loading snippets. `yas--direct-TABLE-NAME' is then a variable | |
| 169 | set buffer-locally when entering `yas-minor-mode'. KEYMAP binds | |
| 170 | all defined direct keybindings to `yas-maybe-expand-from-keymap' | |
| 171 | which decides on the snippet to expand. | |
| 172 | (defvar yas--direct-keymaps nil (#$ . 22690)) | |
| 173 | #@63 Force reload the direct keybinding for active snippet tables. | |
| 174 | (defalias 'yas-direct-keymaps-reload #[nil "\302\303\304 \"\207" [yas--direct-keymaps yas--tables nil maphash #[(name table) "\303\304\305\"!\306 !B\nB\211\207" [name table yas--direct-keymaps intern format "yas--direct-%s" yas--table-direct-keymap] 4]] 3 (#$ . 23207) nil]) | |
| 175 | #@76 Compute list of mode symbols that are active for `yas-expand' and friends. | |
| 176 | (defalias 'yas--modes-to-activate #[(&optional mode) "\203 C\202 \305\n!B\306 \307\f \"\210 \237*\207" [mode major-mode yas--extra-modes explored yas--dfs reverse #[(mode) "\306N\206 \307\310!\205 K\311 \"BB\312\n:\203> \n@\211\2037 \f>\2047 9\2037 \fB !\210\nA\211\202 *\312\207" [mode yas--parents #1=#:--cl-var-- neighbour explored yas--dfs derived-mode-parent fundamental-mode fboundp gethash nil] 6] mapc] 3 (#$ . 23553)]) | |
| 177 | #@46 Hook run when `yas-minor-mode' is turned on. | |
| 178 | (defvar yas-minor-mode-hook nil (#$ . 24084)) | |
| 179 | (defalias 'yas--auto-fill-wrapper #[nil "\205 \302=?\205 \302\211\207" [auto-fill-function yas--original-auto-fill-function yas--auto-fill] 2]) | |
| 180 | #@97 Non-nil if Yas minor mode is enabled. | |
| 181 | Use the command `yas-minor-mode' to change this variable. | |
| 182 | (defvar yas-minor-mode nil (#$ . 24332)) | |
| 183 | (make-variable-buffer-local 'yas-minor-mode) | |
| 184 | #@332 Toggle YASnippet mode. | |
| 185 | ||
| 186 | When YASnippet mode is enabled, `yas-expand', normally bound to | |
| 187 | the TAB key, expands snippets of code depending on the major | |
| 188 | mode. | |
| 189 | ||
| 190 | With no argument, this command toggles the mode. | |
| 191 | positive prefix argument turns on the mode. | |
| 192 | Negative prefix argument turns off the mode. | |
| 193 | ||
| 194 | Key bindings: | |
| 195 | \{yas-minor-mode-map} | |
| 196 | (defalias 'yas-minor-mode #[(&optional arg) "\306 \307=\203 \n?\202 \310 !\311V\211\203m \312\313!\203m \314\315 \"\203* \210\202. \315 B\316\317\320\321\322$\210\323 \321 \211 \203^ @\324\325\326\f\"! ,\327,\321\"\210\330,!\322L\210) A\211\204> *\331 \210\332 \210\316\333\332\"\210\202\207 \334\317\320\322#\210\334\333\332\"\210\335\336!\203\202 -\337\315 \"\340\341\n\203\221 \342\202\222 \343\"\210\344\345!\203\271 \306 \203\246 \306 \232\203\271 \346 .\347\350\n\203\263 \351\202\264 \352.#\210))\353 \210\n\207" [#1=#:last-message arg yas-minor-mode emulation-mode-map-alists mode --dolist-tail-- current-message toggle prefix-numeric-value 0 featurep yasnippet memql yas--direct-keymaps add-hook post-command-hook yas--post-command-handler nil t yas--modes-to-activate intern format "yas--direct-%s" set-default make-local-variable yas--load-pending-jits yas--auto-fill-wrapper auto-fill-mode-hook remove-hook local-variable-p yas--original-auto-fill-function remove run-hooks yas-minor-mode-hook yas-minor-mode-on-hook yas-minor-mode-off-hook called-interactively-p any " in current buffer" message "Yas minor mode %sabled%s" "en" "dis" force-mode-line-update name auto-fill-function local] 6 (#$ . 24521) (list (or current-prefix-arg 'toggle))]) | |
| 197 | (defvar yas-minor-mode-hook nil) | |
| 198 | (byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\211%\207" [yas-minor-mode-map yas-minor-mode-hook variable-documentation put "Hook run after entering or leaving `yas-minor-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 yas-minor-mode " yas" boundp nil] 6) | |
| 199 | #@164 Activates the snippets for the given `mode' in the buffer. | |
| 200 | ||
| 201 | The function can be called in the hook of a minor mode to | |
| 202 | activate snippets associated with that mode. | |
| 203 | (defalias 'yas-activate-extra-mode #[(mode) "\205 \301\302\303!\"\210\304 \207" [mode add-to-list make-local-variable yas--extra-modes yas--load-pending-jits] 3 (#$ . 26560) (let (modes symbol) (maphash #'(lambda (k _) (setq modes (cons (list k) modes))) yas--parents) (setq symbol (completing-read "Activate mode: " modes nil t)) (list (if (not (string= "" symbol)) (progn (intern symbol)))))]) | |
| 204 | #@62 Deactivates the snippets for the given `mode' in the buffer. | |
| 205 | (defalias 'yas-deactivate-extra-mode #[(mode) "\302\301!\210\303 \"\211\207" [mode yas--extra-modes make-local-variable remove] 3 (#$ . 27128) (list (intern (completing-read "Deactivate mode: " (mapcar #'list yas--extra-modes) nil t)))]) | |
| 206 | (byte-code "\302\303\304\305#\210\306\305\211\203, @\303N\203% \304N\204% \307\304\303N#\210 A\211\204 *\310\303\304\311#\207" [prop --dolist-tail-- defvaralias yas-dont-activate yas-dont-activate-functions nil (saved-value saved-variable-comment) put make-obsolete-variable "0.9.2"] 6) | |
| 207 | #@664 Special hook to control which buffers `yas-global-mode' affects. | |
| 208 | Functions are called with no argument, and should return non-nil to prevent | |
| 209 | `yas-global-mode' from enabling yasnippet in this buffer. | |
| 210 | ||
| 211 | In Emacsen < 24, this variable is buffer-local. Because | |
| 212 | `yas-minor-mode-on' is called by `yas-global-mode' after | |
| 213 | executing the buffer's major mode hook, setting this variable | |
| 214 | there is an effective way to define exceptions to the "global" | |
| 215 | activation behaviour. | |
| 216 | ||
| 217 | In Emacsen >= 24, only the global value is used. To define | |
| 218 | per-mode exceptions to the "global" activation behaviour, call | |
| 219 | `yas-minor-mode' with a negative argument directily in the major | |
| 220 | mode's hook. | |
| 221 | (defvar yas-dont-activate-functions (list 'minibufferp) (#$ . 27733)) | |
| 222 | (byte-code "\301V\204\n \302\303!\210\301\207" [emacs-major-version 23 make-variable-buffer-local yas-dont-activate] 2) | |
| 223 | #@81 Turn on YASnippet minor mode. | |
| 224 | ||
| 225 | Honour `yas-dont-activate-functions', which see. | |
| 226 | (defalias 'yas-minor-mode-on #[nil "<\206 \301!?\206 \302\300!?\205 \303\304!\207" [yas-dont-activate-functions functionp run-hook-with-args-until-success yas-minor-mode 1] 2 (#$ . 28593) nil]) | |
| 227 | (defvar yas-minor-mode-major-mode nil) | |
| 228 | (byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313\314\315& \207" [make-variable-buffer-local yas-minor-mode-major-mode custom-declare-variable yas-global-mode nil "Non-nil if Yas-Global mode is enabled.\nSee the `yas-global-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 `yas-global-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group yas-minor :type boolean] 12) | |
| 229 | #@328 Toggle Yas minor mode in all buffers. | |
| 230 | With prefix ARG, enable Yas-Global mode if ARG is positive; | |
| 231 | otherwise, disable it. If called from Lisp, enable the mode if | |
| 232 | ARG is omitted or nil. | |
| 233 | ||
| 234 | Yas minor mode is enabled in all buffers where | |
| 235 | `yas-minor-mode-on' would do it. | |
| 236 | See `yas-minor-mode' for more information on Yas minor mode. | |
| 237 | (defalias 'yas-global-mode #[(&optional arg) "\306 \307\302 \310=\203 \311\302!?\202 \312 !\313V\"\210\n\203/ \314\315\316\"\210\314\317\320\"\210\314\321\322\"\210\202> \323\315\316\"\210\323\317\320\"\210\323\321\322\"\210\324 \325\211 \203h \f@r q\210\n\203X \326 \210\202` \203` \305\327!\210)\fA\211\204G *\330\331\311\302!\203u \332\202v \333\"\210\334\335!\203\243 \336\302!\210\306 \203\216 \306 \232\203\243 \337 %\340\341\311\302!\203\235 \342\202\236 \343%#\210))\344 \210\311\302!\207" [#1=#:last-message arg yas-global-mode buf --dolist-tail-- yas-minor-mode current-message set-default toggle default-value prefix-numeric-value 0 add-hook after-change-major-mode-hook yas-global-mode-enable-in-buffers find-file-hook yas-global-mode-check-buffers change-major-mode-hook yas-global-mode-cmhh remove-hook buffer-list nil yas-minor-mode-on -1 run-hooks yas-global-mode-hook yas-global-mode-on-hook yas-global-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Yas-Global mode %sabled%s" "en" "dis" force-mode-line-update local] 5 (#$ . 29470) (list (or current-prefix-arg 'toggle))]) | |
| 238 | (defvar yas-global-mode-hook nil) | |
| 239 | (byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [yas-global-mode-map yas-global-mode-hook variable-documentation put "Hook run after entering or leaving `yas-global-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 yas-global-mode nil boundp] 6) | |
| 240 | (defvar yas-minor-mode-set-explicitly nil nil) | |
| 241 | (make-variable-buffer-local 'yas-minor-mode-set-explicitly) | |
| 242 | (defalias 'yas-minor-mode-set-explicitly #[nil "\301\211\207" [yas-minor-mode-set-explicitly t] 2]) | |
| 243 | (byte-code "\300\301\302\303#\210\304\305\301\"\207" [put yas-minor-mode-set-explicitly definition-name yas-global-mode add-hook yas-minor-mode-hook] 4) | |
| 244 | (defvar yas-global-mode-buffers nil) | |
| 245 | (defalias 'yas-global-mode-enable-in-buffers #[nil "\306\211\205< \n@\307 !\2034 r q\210 \2041 \f =\2041 \203. \310\311!\210\312 \210\2021 \312 \210 )\nA\211\204 \306*\207" [yas-global-mode-buffers buf --dolist-tail-- yas-minor-mode-set-explicitly yas-minor-mode-major-mode major-mode nil buffer-live-p yas-minor-mode -1 yas-minor-mode-on] 3]) | |
| 246 | (put 'yas-global-mode-enable-in-buffers 'definition-name 'yas-global-mode) | |
| 247 | (defalias 'yas-global-mode-check-buffers #[nil "\301 \210\302\303\304\305\"\207" [yas-global-mode-buffers yas-global-mode-enable-in-buffers nil remove-hook post-command-hook yas-global-mode-check-buffers] 3]) | |
| 248 | (put 'yas-global-mode-check-buffers 'definition-name 'yas-global-mode) | |
| 249 | (defalias 'yas-global-mode-cmhh #[nil "p\211 \235\203 \210\202 B)\302\303\304\"\207" [#1=#:x yas-global-mode-buffers add-hook post-command-hook yas-global-mode-check-buffers] 4]) | |
| 250 | (put 'yas-global-mode-cmhh 'definition-name 'yas-global-mode) | |
| 251 | #@52 Run `yas-reload-all' when `yas-global-mode' is on. | |
| 252 | (defalias 'yas--global-mode-reload-with-jit-maybe #[nil "\205 \301 \207" [yas-global-mode yas-reload-all] 1 (#$ . 32710)]) | |
| 253 | (add-hook 'yas-global-mode-hook 'yas--global-mode-reload-with-jit-maybe) | |
| 254 | (defvar yas--font-lock-keywords (byte-code "\304\305\306\307!rq\210\310\216\311\211\3121 \313 0\202 \210\202 \210*\314 \210 \242\315=\2030 A@\2021 +\316#\207" [#1=#:temp-buffer emacs-lisp-mode-hook prog-mode-hook font-lock-keywords append (("^#.*$" . font-lock-comment-face)) generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] nil (error) emacs-lisp-mode font-lock-set-defaults t (("\\$\\([0-9]+\\)" (0 font-lock-keyword-face) (1 font-lock-string-face t)) ("\\${\\([0-9]+\\):?" (0 font-lock-keyword-face) (1 font-lock-warning-face t)) ("\\(\\$(\\)" 1 font-lock-preprocessor-face) ("}" (0 font-lock-keyword-face)))] 4)) | |
| 255 | #@48 The keymap used when `snippet-mode' is active. | |
| 256 | (defvar snippet-mode-map (byte-code "\301 \302\303\304\305\306\307\310\"B$\210)\207" [map make-sparse-keymap easy-menu-do-define nil "Menu used when snippet-mode is active." "Snippet" mapcar #[(ent) "\3028\203 \303 \3028A@#\210\304@A@\305#\207" [ent map 2 define-key vector t] 4] (("Load this snippet" yas-load-snippet-buffer "\f") ("Load and quit window" yas-load-snippet-buffer-and-close "") ("Try out this snippet" yas-tryout-snippet ""))] 8) (#$ . 33636)) | |
| 257 | (byte-code "\301\302!\203\205 \303\304!\210\305\306N\204 \307\305\306\310#\210\311\312!\204\" \307\312\313\314#\210\315\316 !\210\312\306N\2045 \307\312\306\317\320!#\210\311\321!\204F \307\321\313\314#\210\322\323 !\210\321\306N\204T \307\321\306\317\324!#\210\311\300!\204i \307\300\313\314#\210\325\326\300\304\"\210!\210\300\306N\204w \307\300\306\317\327!#\210\307\314\330\302#\210\331\314\332\"\210\202\333\304!\210\305\306N\204\225 \307\305\306\310#\210\311\312!\204\241 \307\312\313\314#\210\334\316 !\210\312\306N\204\264 \307\312\306\317\320!#\210\311\321!\204\305 \307\321\313\314#\210\335\323 !\210\321\306N\204\323 \307\321\306\317\324!#\210\311\300!\204\350 \307\300\313\314#\210\336\326\300\304\"\210!\210\300\306N\204\366 \307\300\306\317\327!#\210\307\314\330\304#\210\331\314\337\"\210\304\207" [snippet-mode-abbrev-table fboundp prog-mode (lambda (#1=#:def-tmp-var) (defvar snippet-mode-hook #1#)) nil snippet-mode-hook variable-documentation put "Hook run after entering Snippet mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp snippet-mode-map definition-name snippet-mode (lambda (#1#) (defvar snippet-mode-map #1#)) make-sparse-keymap purecopy "Keymap for `snippet-mode'." snippet-mode-syntax-table (lambda (#1#) (defvar snippet-mode-syntax-table #1#)) make-syntax-table "Syntax table for `snippet-mode'." (lambda (#1#) (defvar snippet-mode-abbrev-table #1#)) define-abbrev-table "Abbrev table for `snippet-mode'." derived-mode-parent defalias #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036 \321 =\203< \322\f\323 \"\210)\324%\325\"\204V %&=\204V \326%\325&C#\210\327 !\210\330\f!\210%&\331'\306\332!\210\333\306\334!\210\335 \306\336!\210\337 \340\341\342\333\307$\210)\343\344!\207" [delay-mode-hooks major-mode mode-name snippet-mode-map snippet-mode-syntax-table parent make-local-variable t prog-mode snippet-mode "Snippet" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table (yas--font-lock-keywords) require-final-newline nil comment-start "#" comment-start-skip "#+[ ]*" add-hook after-save-hook yas-maybe-load-snippet-buffer run-mode-hooks snippet-mode-hook snippet-mode-abbrev-table local-abbrev-table font-lock-defaults] 6 "A mode for editing yasnippets\n\nIn addition to any hooks its parent mode `prog-mode' might have run,\nthis mode runs the hook `snippet-mode-hook', as the final or penultimate step\nduring initialization.\n\n\\{snippet-mode-map}" nil] (lambda (#1#) (defvar snippet-mode-hook #1#)) (lambda (#1#) (defvar snippet-mode-map #1#)) (lambda (#1#) (defvar snippet-mode-syntax-table #1#)) (lambda (#1#) (defvar snippet-mode-abbrev-table #1#)) #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 \315\306\316!\210\317\306\320!\210\321\306\322!\210\323\324\325\326\317\307$\210)\327\330!\207" [delay-mode-hooks major-mode mode-name snippet-mode-map snippet-mode-syntax-table snippet-mode-abbrev-table make-local-variable t kill-all-local-variables snippet-mode "Snippet" use-local-map set-syntax-table (yas--font-lock-keywords) require-final-newline nil comment-start "#" comment-start-skip "#+[ ]*" add-hook after-save-hook yas-maybe-load-snippet-buffer run-mode-hooks snippet-mode-hook local-abbrev-table font-lock-defaults] 5 "A mode for editing yasnippets\n\nThis mode runs the hook `snippet-mode-hook', as the final or penultimate step\nduring initialization.\n\n\\{snippet-mode-map}" nil]] 5) | |
| 258 | #@149 Return non-nil if current buffer should be in `snippet-mode'. | |
| 259 | Meaning it's visiting a file under one of the mode directories in | |
| 260 | `yas-snippet-dirs'. | |
| 261 | (defalias 'yas-snippet-mode-buffer-p #[nil "\205 \301\302 \303\304$\207" [buffer-file-name cl-member yas-snippet-dirs :test file-in-directory-p] 5 (#$ . 37892)]) | |
| 262 | (add-to-list 'magic-fallback-mode-alist '(yas-snippet-mode-buffer-p . snippet-mode)) | |
| 263 | #@48 compiler-macro for inlining `yas--template-p'. | |
| 264 | (defalias 'yas--template-p--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--template-p (and (memq (type-of cl-x) cl-struct-yas--template-tags) t)) nil] 7 (#$ . 38296)]) | |
| 265 | (put 'yas--template-p 'compiler-macro 'yas--template-p--cmacro) | |
| 266 | (defalias 'yas--template-p #[(cl-x) "\302! >\205 \303\207" [cl-x cl-struct-yas--template-tags type-of t] 2]) | |
| 267 | (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put yas--template-p side-effect-free error-free put yas--template cl-deftype-satisfies] 5) | |
| 268 | #@50 compiler-macro for inlining `yas--template-key'. | |
| 269 | (defalias 'yas--template-key--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--template-key (or (yas--template-p cl-x) (signal 'wrong-type-argument (list 'yas--template cl-x))) (aref cl-x 1)) nil] 7 (#$ . 38910)]) | |
| 270 | (put 'yas--template-key 'compiler-macro 'yas--template-key--cmacro) | |
| 271 | #@597 Access slot "key" of `(yas--template (:constructor yas--make-template) (:constructor yas--define-snippets-2 (table key content &optional xname condition group expand-env load-file xkeybinding xuuid save-file &aux (name (or xname (and load-file (file-name-nondirectory load-file)) (and save-file (file-name-nondirectory save-file)) key)) (keybinding (yas--read-keybinding xkeybinding)) (uuid (or xuuid name)) (old (gethash uuid (yas--table-uuidhash table))) (menu-binding-pair (and old (yas--template-menu-binding-pair old))) (perm-group (and old (yas--template-perm-group old))))))' struct CL-X. | |
| 272 | (defalias 'yas--template-key #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--template-tags type-of signal wrong-type-argument yas--template 1] 4 (#$ . 39311)]) | |
| 273 | (byte-code "\300\301\302\303#\300\207" [function-put yas--template-key side-effect-free t] 4) | |
| 274 | #@54 compiler-macro for inlining `yas--template-content'. | |
| 275 | (defalias 'yas--template-content--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--template-content (or (yas--template-p cl-x) (signal 'wrong-type-argument (list 'yas--template cl-x))) (aref cl-x 2)) nil] 7 (#$ . 40196)]) | |
| 276 | (put 'yas--template-content 'compiler-macro 'yas--template-content--cmacro) | |
| 277 | #@601 Access slot "content" of `(yas--template (:constructor yas--make-template) (:constructor yas--define-snippets-2 (table key content &optional xname condition group expand-env load-file xkeybinding xuuid save-file &aux (name (or xname (and load-file (file-name-nondirectory load-file)) (and save-file (file-name-nondirectory save-file)) key)) (keybinding (yas--read-keybinding xkeybinding)) (uuid (or xuuid name)) (old (gethash uuid (yas--table-uuidhash table))) (menu-binding-pair (and old (yas--template-menu-binding-pair old))) (perm-group (and old (yas--template-perm-group old))))))' struct CL-X. | |
| 278 | (defalias 'yas--template-content #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--template-tags type-of signal wrong-type-argument yas--template 2] 4 (#$ . 40617)]) | |
| 279 | (byte-code "\300\301\302\303#\300\207" [function-put yas--template-content side-effect-free t] 4) | |
| 280 | #@51 compiler-macro for inlining `yas--template-name'. | |
| 281 | (defalias 'yas--template-name--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--template-name (or (yas--template-p cl-x) (signal 'wrong-type-argument (list 'yas--template cl-x))) (aref cl-x 3)) nil] 7 (#$ . 41514)]) | |
| 282 | (put 'yas--template-name 'compiler-macro 'yas--template-name--cmacro) | |
| 283 | #@598 Access slot "name" of `(yas--template (:constructor yas--make-template) (:constructor yas--define-snippets-2 (table key content &optional xname condition group expand-env load-file xkeybinding xuuid save-file &aux (name (or xname (and load-file (file-name-nondirectory load-file)) (and save-file (file-name-nondirectory save-file)) key)) (keybinding (yas--read-keybinding xkeybinding)) (uuid (or xuuid name)) (old (gethash uuid (yas--table-uuidhash table))) (menu-binding-pair (and old (yas--template-menu-binding-pair old))) (perm-group (and old (yas--template-perm-group old))))))' struct CL-X. | |
| 284 | (defalias 'yas--template-name #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--template-tags type-of signal wrong-type-argument yas--template 3] 4 (#$ . 41920)]) | |
| 285 | (byte-code "\300\301\302\303#\300\207" [function-put yas--template-name side-effect-free t] 4) | |
| 286 | #@56 compiler-macro for inlining `yas--template-condition'. | |
| 287 | (defalias 'yas--template-condition--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--template-condition (or (yas--template-p cl-x) (signal 'wrong-type-argument (list 'yas--template cl-x))) (aref cl-x 4)) nil] 7 (#$ . 42808)]) | |
| 288 | (put 'yas--template-condition 'compiler-macro 'yas--template-condition--cmacro) | |
| 289 | #@603 Access slot "condition" of `(yas--template (:constructor yas--make-template) (:constructor yas--define-snippets-2 (table key content &optional xname condition group expand-env load-file xkeybinding xuuid save-file &aux (name (or xname (and load-file (file-name-nondirectory load-file)) (and save-file (file-name-nondirectory save-file)) key)) (keybinding (yas--read-keybinding xkeybinding)) (uuid (or xuuid name)) (old (gethash uuid (yas--table-uuidhash table))) (menu-binding-pair (and old (yas--template-menu-binding-pair old))) (perm-group (and old (yas--template-perm-group old))))))' struct CL-X. | |
| 290 | (defalias 'yas--template-condition #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--template-tags type-of signal wrong-type-argument yas--template 4] 4 (#$ . 43239)]) | |
| 291 | (byte-code "\300\301\302\303#\300\207" [function-put yas--template-condition side-effect-free t] 4) | |
| 292 | #@57 compiler-macro for inlining `yas--template-expand-env'. | |
| 293 | (defalias 'yas--template-expand-env--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--template-expand-env (or (yas--template-p cl-x) (signal 'wrong-type-argument (list 'yas--template cl-x))) (aref cl-x 5)) nil] 7 (#$ . 44142)]) | |
| 294 | (put 'yas--template-expand-env 'compiler-macro 'yas--template-expand-env--cmacro) | |
| 295 | #@604 Access slot "expand-env" of `(yas--template (:constructor yas--make-template) (:constructor yas--define-snippets-2 (table key content &optional xname condition group expand-env load-file xkeybinding xuuid save-file &aux (name (or xname (and load-file (file-name-nondirectory load-file)) (and save-file (file-name-nondirectory save-file)) key)) (keybinding (yas--read-keybinding xkeybinding)) (uuid (or xuuid name)) (old (gethash uuid (yas--table-uuidhash table))) (menu-binding-pair (and old (yas--template-menu-binding-pair old))) (perm-group (and old (yas--template-perm-group old))))))' struct CL-X. | |
| 296 | (defalias 'yas--template-expand-env #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--template-tags type-of signal wrong-type-argument yas--template 5] 4 (#$ . 44578)]) | |
| 297 | (byte-code "\300\301\302\303#\300\207" [function-put yas--template-expand-env side-effect-free t] 4) | |
| 298 | #@56 compiler-macro for inlining `yas--template-load-file'. | |
| 299 | (defalias 'yas--template-load-file--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--template-load-file (or (yas--template-p cl-x) (signal 'wrong-type-argument (list 'yas--template cl-x))) (aref cl-x 6)) nil] 7 (#$ . 45484)]) | |
| 300 | (put 'yas--template-load-file 'compiler-macro 'yas--template-load-file--cmacro) | |
| 301 | #@603 Access slot "load-file" of `(yas--template (:constructor yas--make-template) (:constructor yas--define-snippets-2 (table key content &optional xname condition group expand-env load-file xkeybinding xuuid save-file &aux (name (or xname (and load-file (file-name-nondirectory load-file)) (and save-file (file-name-nondirectory save-file)) key)) (keybinding (yas--read-keybinding xkeybinding)) (uuid (or xuuid name)) (old (gethash uuid (yas--table-uuidhash table))) (menu-binding-pair (and old (yas--template-menu-binding-pair old))) (perm-group (and old (yas--template-perm-group old))))))' struct CL-X. | |
| 302 | (defalias 'yas--template-load-file #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--template-tags type-of signal wrong-type-argument yas--template 6] 4 (#$ . 45915)]) | |
| 303 | (byte-code "\300\301\302\303#\300\207" [function-put yas--template-load-file side-effect-free t] 4) | |
| 304 | #@56 compiler-macro for inlining `yas--template-save-file'. | |
| 305 | (defalias 'yas--template-save-file--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--template-save-file (or (yas--template-p cl-x) (signal 'wrong-type-argument (list 'yas--template cl-x))) (aref cl-x 7)) nil] 7 (#$ . 46818)]) | |
| 306 | (put 'yas--template-save-file 'compiler-macro 'yas--template-save-file--cmacro) | |
| 307 | #@603 Access slot "save-file" of `(yas--template (:constructor yas--make-template) (:constructor yas--define-snippets-2 (table key content &optional xname condition group expand-env load-file xkeybinding xuuid save-file &aux (name (or xname (and load-file (file-name-nondirectory load-file)) (and save-file (file-name-nondirectory save-file)) key)) (keybinding (yas--read-keybinding xkeybinding)) (uuid (or xuuid name)) (old (gethash uuid (yas--table-uuidhash table))) (menu-binding-pair (and old (yas--template-menu-binding-pair old))) (perm-group (and old (yas--template-perm-group old))))))' struct CL-X. | |
| 308 | (defalias 'yas--template-save-file #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--template-tags type-of signal wrong-type-argument yas--template 7] 4 (#$ . 47249)]) | |
| 309 | (byte-code "\300\301\302\303#\300\207" [function-put yas--template-save-file side-effect-free t] 4) | |
| 310 | #@57 compiler-macro for inlining `yas--template-keybinding'. | |
| 311 | (defalias 'yas--template-keybinding--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--template-keybinding (or (yas--template-p cl-x) (signal 'wrong-type-argument (list 'yas--template cl-x))) (aref cl-x 8)) nil] 7 (#$ . 48152)]) | |
| 312 | (put 'yas--template-keybinding 'compiler-macro 'yas--template-keybinding--cmacro) | |
| 313 | #@604 Access slot "keybinding" of `(yas--template (:constructor yas--make-template) (:constructor yas--define-snippets-2 (table key content &optional xname condition group expand-env load-file xkeybinding xuuid save-file &aux (name (or xname (and load-file (file-name-nondirectory load-file)) (and save-file (file-name-nondirectory save-file)) key)) (keybinding (yas--read-keybinding xkeybinding)) (uuid (or xuuid name)) (old (gethash uuid (yas--table-uuidhash table))) (menu-binding-pair (and old (yas--template-menu-binding-pair old))) (perm-group (and old (yas--template-perm-group old))))))' struct CL-X. | |
| 314 | (defalias 'yas--template-keybinding #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--template-tags type-of signal wrong-type-argument yas--template 8] 4 (#$ . 48588)]) | |
| 315 | (byte-code "\300\301\302\303#\300\207" [function-put yas--template-keybinding side-effect-free t] 4) | |
| 316 | #@51 compiler-macro for inlining `yas--template-uuid'. | |
| 317 | (defalias 'yas--template-uuid--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--template-uuid (or (yas--template-p cl-x) (signal 'wrong-type-argument (list 'yas--template cl-x))) (aref cl-x 9)) nil] 7 (#$ . 49494)]) | |
| 318 | (put 'yas--template-uuid 'compiler-macro 'yas--template-uuid--cmacro) | |
| 319 | #@598 Access slot "uuid" of `(yas--template (:constructor yas--make-template) (:constructor yas--define-snippets-2 (table key content &optional xname condition group expand-env load-file xkeybinding xuuid save-file &aux (name (or xname (and load-file (file-name-nondirectory load-file)) (and save-file (file-name-nondirectory save-file)) key)) (keybinding (yas--read-keybinding xkeybinding)) (uuid (or xuuid name)) (old (gethash uuid (yas--table-uuidhash table))) (menu-binding-pair (and old (yas--template-menu-binding-pair old))) (perm-group (and old (yas--template-perm-group old))))))' struct CL-X. | |
| 320 | (defalias 'yas--template-uuid #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--template-tags type-of signal wrong-type-argument yas--template 9] 4 (#$ . 49900)]) | |
| 321 | (byte-code "\300\301\302\303#\300\207" [function-put yas--template-uuid side-effect-free t] 4) | |
| 322 | #@64 compiler-macro for inlining `yas--template-menu-binding-pair'. | |
| 323 | (defalias 'yas--template-menu-binding-pair--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--template-menu-binding-pair (or (yas--template-p cl-x) (signal 'wrong-type-argument (list 'yas--template cl-x))) (aref cl-x 10)) nil] 7 (#$ . 50788)]) | |
| 324 | (put 'yas--template-menu-binding-pair 'compiler-macro 'yas--template-menu-binding-pair--cmacro) | |
| 325 | #@611 Access slot "menu-binding-pair" of `(yas--template (:constructor yas--make-template) (:constructor yas--define-snippets-2 (table key content &optional xname condition group expand-env load-file xkeybinding xuuid save-file &aux (name (or xname (and load-file (file-name-nondirectory load-file)) (and save-file (file-name-nondirectory save-file)) key)) (keybinding (yas--read-keybinding xkeybinding)) (uuid (or xuuid name)) (old (gethash uuid (yas--table-uuidhash table))) (menu-binding-pair (and old (yas--template-menu-binding-pair old))) (perm-group (and old (yas--template-perm-group old))))))' struct CL-X. | |
| 326 | (defalias 'yas--template-menu-binding-pair #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--template-tags type-of signal wrong-type-argument yas--template 10] 4 (#$ . 51260)]) | |
| 327 | (byte-code "\300\301\302\303#\300\207" [function-put yas--template-menu-binding-pair side-effect-free t] 4) | |
| 328 | #@52 compiler-macro for inlining `yas--template-group'. | |
| 329 | (defalias 'yas--template-group--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--template-group (or (yas--template-p cl-x) (signal 'wrong-type-argument (list 'yas--template cl-x))) (aref cl-x 11)) nil] 7 (#$ . 52188)]) | |
| 330 | (put 'yas--template-group 'compiler-macro 'yas--template-group--cmacro) | |
| 331 | #@599 Access slot "group" of `(yas--template (:constructor yas--make-template) (:constructor yas--define-snippets-2 (table key content &optional xname condition group expand-env load-file xkeybinding xuuid save-file &aux (name (or xname (and load-file (file-name-nondirectory load-file)) (and save-file (file-name-nondirectory save-file)) key)) (keybinding (yas--read-keybinding xkeybinding)) (uuid (or xuuid name)) (old (gethash uuid (yas--table-uuidhash table))) (menu-binding-pair (and old (yas--template-menu-binding-pair old))) (perm-group (and old (yas--template-perm-group old))))))' struct CL-X. | |
| 332 | (defalias 'yas--template-group #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--template-tags type-of signal wrong-type-argument yas--template 11] 4 (#$ . 52600)]) | |
| 333 | (byte-code "\300\301\302\303#\300\207" [function-put yas--template-group side-effect-free t] 4) | |
| 334 | #@57 compiler-macro for inlining `yas--template-perm-group'. | |
| 335 | (defalias 'yas--template-perm-group--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--template-perm-group (or (yas--template-p cl-x) (signal 'wrong-type-argument (list 'yas--template cl-x))) (aref cl-x 12)) nil] 7 (#$ . 53492)]) | |
| 336 | (put 'yas--template-perm-group 'compiler-macro 'yas--template-perm-group--cmacro) | |
| 337 | #@604 Access slot "perm-group" of `(yas--template (:constructor yas--make-template) (:constructor yas--define-snippets-2 (table key content &optional xname condition group expand-env load-file xkeybinding xuuid save-file &aux (name (or xname (and load-file (file-name-nondirectory load-file)) (and save-file (file-name-nondirectory save-file)) key)) (keybinding (yas--read-keybinding xkeybinding)) (uuid (or xuuid name)) (old (gethash uuid (yas--table-uuidhash table))) (menu-binding-pair (and old (yas--template-menu-binding-pair old))) (perm-group (and old (yas--template-perm-group old))))))' struct CL-X. | |
| 338 | (defalias 'yas--template-perm-group #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--template-tags type-of signal wrong-type-argument yas--template 12] 4 (#$ . 53929)]) | |
| 339 | (byte-code "\300\301\302\303#\300\207" [function-put yas--template-perm-group side-effect-free t] 4) | |
| 340 | #@52 compiler-macro for inlining `yas--template-table'. | |
| 341 | (defalias 'yas--template-table--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--template-table (or (yas--template-p cl-x) (signal 'wrong-type-argument (list 'yas--template cl-x))) (aref cl-x 13)) nil] 7 (#$ . 54836)]) | |
| 342 | (put 'yas--template-table 'compiler-macro 'yas--template-table--cmacro) | |
| 343 | #@599 Access slot "table" of `(yas--template (:constructor yas--make-template) (:constructor yas--define-snippets-2 (table key content &optional xname condition group expand-env load-file xkeybinding xuuid save-file &aux (name (or xname (and load-file (file-name-nondirectory load-file)) (and save-file (file-name-nondirectory save-file)) key)) (keybinding (yas--read-keybinding xkeybinding)) (uuid (or xuuid name)) (old (gethash uuid (yas--table-uuidhash table))) (menu-binding-pair (and old (yas--template-menu-binding-pair old))) (perm-group (and old (yas--template-perm-group old))))))' struct CL-X. | |
| 344 | (defalias 'yas--template-table #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--template-tags type-of signal wrong-type-argument yas--template 13] 4 (#$ . 55248)]) | |
| 345 | (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put yas--template-table side-effect-free t defalias copy-yas--template copy-sequence] 4) | |
| 346 | #@196 compiler-macro for inlining `yas--make-template'. | |
| 347 | ||
| 348 | (fn CL-WHOLE &cl-quote &key KEY CONTENT NAME CONDITION EXPAND-ENV LOAD-FILE SAVE-FILE KEYBINDING UUID MENU-BINDING-PAIR GROUP PERM-GROUP TABLE) | |
| 349 | (defalias 'yas--make-template--cmacro #[(cl-whole &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@ \306\313\"A@ \306\314\"A@ \306\315\"A@ \306\316\"A@ \306\317\"A@ \306\320\"A@ \306\321\"A@ !\306\322\"A@ \"\306\323\"A@ # $$\203\226 $@\324>\203} $AA\211$\202h \325>A@\203\214 \326\211$\202h \327\330$@\"\210\202f )\331\332\333\326%\326 \n \f !\"#&. \207" [#1# key content name condition expand-env plist-member :key :content :name :condition :expand-env :load-file :save-file :keybinding :uuid :menu-binding-pair :group :perm-group :table (:key :content :name :condition :expand-env :load-file :save-file :keybinding :uuid :menu-binding-pair :group :perm-group :table :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:key :content :name :condition :expand-env :load-file :save-file :keybinding :uuid :menu-binding-pair :group :perm-group :table)" cl--defsubst-expand (key content name condition expand-env load-file save-file keybinding uuid menu-binding-pair group perm-group table) (cl-block yas--make-template (record 'yas--template key content name condition expand-env load-file save-file keybinding uuid menu-binding-pair group perm-group table)) load-file save-file keybinding uuid menu-binding-pair group perm-group table #2=#:--cl-keys-- cl-whole] 20 (#$ . 56193)]) | |
| 350 | (put 'yas--make-template 'compiler-macro 'yas--make-template--cmacro) | |
| 351 | #@176 Constructor for objects of type `yas--template'. | |
| 352 | ||
| 353 | (fn &key KEY CONTENT NAME CONDITION EXPAND-ENV LOAD-FILE SAVE-FILE KEYBINDING UUID MENU-BINDING-PAIR GROUP PERM-GROUP TABLE) | |
| 354 | (defalias 'yas--make-template #[(&rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@ \306\313\"A@ \306\314\"A@ \306\315\"A@ \306\316\"A@ \306\317\"A@ \306\320\"A@ \306\321\"A@ \306\322\"A@ !\306\323\"A@ \" ##\203\226 #@\324>\203} #AA\211#\202h \325>A@\203\214 \326\211#\202h \327\330#@\"\210\202f )\331\332 \n \f !\"&. \207" [#1# key content name condition expand-env plist-member :key :content :name :condition :expand-env :load-file :save-file :keybinding :uuid :menu-binding-pair :group :perm-group :table (:key :content :name :condition :expand-env :load-file :save-file :keybinding :uuid :menu-binding-pair :group :perm-group :table :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:key :content :name :condition :expand-env :load-file :save-file :keybinding :uuid :menu-binding-pair :group :perm-group :table)" record yas--template load-file save-file keybinding uuid menu-binding-pair group perm-group table #2=#:--cl-keys--] 16 (#$ . 57839)]) | |
| 355 | (byte-code "\300\301\302\303#\300\207" [function-put yas--make-template side-effect-free t] 4) | |
| 356 | #@155 Constructor for objects of type `yas--template'. | |
| 357 | ||
| 358 | (fn TABLE KEY CONTENT &optional XNAME CONDITION GROUP EXPAND-ENV LOAD-FILE XKEYBINDING XUUID SAVE-FILE) | |
| 359 | (defalias 'yas--define-snippets-2 #[(table key content &optional xname condition group expand-env load-file xkeybinding xuuid save-file &rest #1=#:--cl-rest--) "\206 \203 \306 !\206 \n\203 \306\n!\206 \307 ! \206% \f \310\311!\"\211 \205K \312!>\204G \313\314\315D\"\210\316H \205h \312!>\204d \313\314\315D\"\210\317H \203z \313\320\321\322 G\\D\"\210\323\315 \f \n &.\207" [xname load-file save-file key name xkeybinding file-name-nondirectory yas--read-keybinding gethash yas--table-uuidhash type-of signal wrong-type-argument yas--template 10 12 wrong-number-of-arguments yas--define-snippets-2 11 record keybinding xuuid uuid table old cl-struct-yas--template-tags menu-binding-pair perm-group #1# content condition expand-env group] 16 (#$ . 59165)]) | |
| 360 | (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \207" [function-put yas--define-snippets-2 side-effect-free t cl-struct-define yas--template "A template for a snippet." cl-structure-object record nil ((cl-tag-slot) (key) (content) (name) (condition) (expand-env) (load-file) (save-file) (keybinding) (uuid) (menu-binding-pair) (group) (perm-group) (table)) cl-struct-yas--template-tags] 11) | |
| 361 | #@45 compiler-macro for inlining `yas--table-p'. | |
| 362 | (defalias 'yas--table-p--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--table-p (and (memq (type-of cl-x) cl-struct-yas--table-tags) t)) nil] 7 (#$ . 60556)]) | |
| 363 | (put 'yas--table-p 'compiler-macro 'yas--table-p--cmacro) | |
| 364 | (defalias 'yas--table-p #[(cl-x) "\302! >\205 \303\207" [cl-x cl-struct-yas--table-tags type-of t] 2]) | |
| 365 | (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put yas--table-p side-effect-free error-free put yas--table cl-deftype-satisfies] 5) | |
| 366 | #@48 compiler-macro for inlining `yas--table-name'. | |
| 367 | (defalias 'yas--table-name--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--table-name (or (yas--table-p cl-x) (signal 'wrong-type-argument (list 'yas--table cl-x))) (aref cl-x 1)) nil] 7 (#$ . 61140)]) | |
| 368 | (put 'yas--table-name 'compiler-macro 'yas--table-name--cmacro) | |
| 369 | #@97 Access slot "name" of `(yas--table (:constructor yas--make-snippet-table (name)))' struct CL-X. | |
| 370 | (defalias 'yas--table-name #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--table-tags type-of signal wrong-type-argument yas--table 1] 4 (#$ . 61524)]) | |
| 371 | (byte-code "\300\301\302\303#\300\207" [function-put yas--table-name side-effect-free t] 4) | |
| 372 | #@48 compiler-macro for inlining `yas--table-hash'. | |
| 373 | (defalias 'yas--table-hash--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--table-hash (or (yas--table-p cl-x) (signal 'wrong-type-argument (list 'yas--table cl-x))) (aref cl-x 2)) nil] 7 (#$ . 61899)]) | |
| 374 | (put 'yas--table-hash 'compiler-macro 'yas--table-hash--cmacro) | |
| 375 | #@97 Access slot "hash" of `(yas--table (:constructor yas--make-snippet-table (name)))' struct CL-X. | |
| 376 | (defalias 'yas--table-hash #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--table-tags type-of signal wrong-type-argument yas--table 2] 4 (#$ . 62283)]) | |
| 377 | (byte-code "\300\301\302\303#\300\207" [function-put yas--table-hash side-effect-free t] 4) | |
| 378 | #@52 compiler-macro for inlining `yas--table-uuidhash'. | |
| 379 | (defalias 'yas--table-uuidhash--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--table-uuidhash (or (yas--table-p cl-x) (signal 'wrong-type-argument (list 'yas--table cl-x))) (aref cl-x 3)) nil] 7 (#$ . 62658)]) | |
| 380 | (put 'yas--table-uuidhash 'compiler-macro 'yas--table-uuidhash--cmacro) | |
| 381 | #@101 Access slot "uuidhash" of `(yas--table (:constructor yas--make-snippet-table (name)))' struct CL-X. | |
| 382 | (defalias 'yas--table-uuidhash #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--table-tags type-of signal wrong-type-argument yas--table 3] 4 (#$ . 63063)]) | |
| 383 | (byte-code "\300\301\302\303#\300\207" [function-put yas--table-uuidhash side-effect-free t] 4) | |
| 384 | #@51 compiler-macro for inlining `yas--table-parents'. | |
| 385 | (defalias 'yas--table-parents--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--table-parents (or (yas--table-p cl-x) (signal 'wrong-type-argument (list 'yas--table cl-x))) (aref cl-x 4)) nil] 7 (#$ . 63450)]) | |
| 386 | (put 'yas--table-parents 'compiler-macro 'yas--table-parents--cmacro) | |
| 387 | #@100 Access slot "parents" of `(yas--table (:constructor yas--make-snippet-table (name)))' struct CL-X. | |
| 388 | (defalias 'yas--table-parents #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--table-tags type-of signal wrong-type-argument yas--table 4] 4 (#$ . 63850)]) | |
| 389 | (byte-code "\300\301\302\303#\300\207" [function-put yas--table-parents side-effect-free t] 4) | |
| 390 | #@57 compiler-macro for inlining `yas--table-direct-keymap'. | |
| 391 | (defalias 'yas--table-direct-keymap--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--table-direct-keymap (or (yas--table-p cl-x) (signal 'wrong-type-argument (list 'yas--table cl-x))) (aref cl-x 5)) nil] 7 (#$ . 64234)]) | |
| 392 | (put 'yas--table-direct-keymap 'compiler-macro 'yas--table-direct-keymap--cmacro) | |
| 393 | #@106 Access slot "direct-keymap" of `(yas--table (:constructor yas--make-snippet-table (name)))' struct CL-X. | |
| 394 | (defalias 'yas--table-direct-keymap #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--table-tags type-of signal wrong-type-argument yas--table 5] 4 (#$ . 64664)]) | |
| 395 | (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put yas--table-direct-keymap side-effect-free t defalias copy-yas--table copy-sequence] 4) | |
| 396 | #@119 compiler-macro for inlining `make-yas--table'. | |
| 397 | ||
| 398 | (fn CL-WHOLE &cl-quote &key NAME HASH UUIDHASH PARENTS DIRECT-KEYMAP) | |
| 399 | (defalias 'make-yas--table--cmacro #[(cl-whole &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"\206 \311A@\306\312\"\206 \313A@\306\314\"A@ \306\315\"\206, \316A@ \203b @\317>\203I AA\211\2024 \320>A@\203X \321\211\2024 \322\323@\"\210\2022 )\324\325\326\321\321 \n \f &\n-\207" [#1# name hash uuidhash parents direct-keymap plist-member :name :hash (nil (make-hash-table :test 'equal)) :uuidhash (nil (make-hash-table :test 'equal)) :parents :direct-keymap (nil (make-sparse-keymap)) (:name :hash :uuidhash :parents :direct-keymap :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :hash :uuidhash :parents :direct-keymap)" cl--defsubst-expand (name hash uuidhash parents direct-keymap) (cl-block make-yas--table (record 'yas--table name hash uuidhash parents direct-keymap)) #2=#:--cl-keys-- cl-whole] 12 (#$ . 65116)]) | |
| 400 | (put 'make-yas--table 'compiler-macro 'make-yas--table--cmacro) | |
| 401 | #@99 Constructor for objects of type `yas--table'. | |
| 402 | ||
| 403 | (fn &key NAME HASH UUIDHASH PARENTS DIRECT-KEYMAP) | |
| 404 | (defalias 'make-yas--table #[(&rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"\206 \311\312\313\314\"DA@\306\315\"\206$ \311\312\313\314\"DA@\306\316\"A@ \306\317\"\2069 \311\320 DA@ \203o @\321>\203V AA\211\202A \322>A@\203e \311\211\202A \323\324@\"\210\202? )\325\326 \n \f &-\207" [#1# name hash uuidhash parents direct-keymap plist-member :name :hash nil make-hash-table :test equal :uuidhash :parents :direct-keymap make-sparse-keymap (:name :hash :uuidhash :parents :direct-keymap :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:name :hash :uuidhash :parents :direct-keymap)" record yas--table #2=#:--cl-keys--] 8 (#$ . 66188)]) | |
| 405 | #@56 compiler-macro for inlining `yas--make-snippet-table'. | |
| 406 | (defalias 'yas--make-snippet-table--cmacro #[(_cl-whole-arg name) "\301\302\303\304\211\211&\207" [name cl--defsubst-expand (name) (cl-block yas--make-snippet-table (record 'yas--table name (make-hash-table :test 'equal) (make-hash-table :test 'equal) nil (make-sparse-keymap))) nil] 7 (#$ . 66982)]) | |
| 407 | (put 'yas--make-snippet-table 'compiler-macro 'yas--make-snippet-table--cmacro) | |
| 408 | #@47 Constructor for objects of type `yas--table'. | |
| 409 | (defalias 'yas--make-snippet-table #[(name) "\301\302\303\304\305\"\303\304\305\"\306\307 &\207" [name record yas--table make-hash-table :test equal nil make-sparse-keymap] 7 (#$ . 67426)]) | |
| 410 | (cl-struct-define 'yas--table "A table to store snippets for a particular mode.\n\nHas the following fields:\n\n`yas--table-name'\n\n A symbol name normally corresponding to a major mode, but can\n also be a pseudo major-mode to be used in\n `yas-activate-extra-mode', for example.\n\n`yas--table-hash'\n\n A hash table (KEY . NAMEHASH), known as the \"keyhash\". KEY is\n a string or a vector, where the former is the snippet's trigger\n and the latter means it's a direct keybinding. NAMEHASH is yet\n another hash of (NAME . TEMPLATE) where NAME is the snippet's\n name and TEMPLATE is a `yas--template' object.\n\n`yas--table-direct-keymap'\n\n A keymap for the snippets in this table that have direct\n keybindings. This is kept in sync with the keyhash, i.e., all\n the elements of the keyhash that are vectors appear here as\n bindings to `yas-maybe-expand-from-keymap'.\n\n`yas--table-uuidhash'\n\n A hash table mapping snippets uuid's to the same `yas--template'\n objects. A snippet uuid defaults to the snippet's name." 'cl-structure-object 'record nil '((cl-tag-slot) (name) (hash (make-hash-table :test 'equal)) (uuidhash (make-hash-table :test 'equal)) (parents nil) (direct-keymap (make-sparse-keymap))) 'cl-struct-yas--table-tags 'yas--table t) | |
| 411 | #@48 Find the snippet template in MODE by its UUID. | |
| 412 | (defalias 'yas--get-template-by-uuid #[(mode uuid) "\305 #\211\205 \305 \306\n!\f>\204 \307\310\311\nD\"\210\n\312H\")\207" [mode yas--tables table uuid cl-struct-yas--table-tags gethash type-of signal wrong-type-argument yas--table 3] 7 (#$ . 68945)]) | |
| 413 | #@50 Remove from TABLE a template identified by UUID. | |
| 414 | (defalias 'yas--remove-template-by-uuid #[(table uuid) "\306\307 !\n>\204 \310\311\312 D\"\210 \313H\"\211\205\254 \307 !\f>\204) \310\311\314 D\"\210 \313H \315 \316\317\307 !\n>\204A \310\311\312 D\"\210 \320H\"\210\315 \211 \203\225 @\321!\203u \322\307 !\n>\204m \310\311\312 D\"\210 \323H\315#\210\324\307 !\n>\204\207 \310\311\312 D\"\210 \320H\"\210A\211\204Q *\324\307 !\n>\204\247 \310\311\312 D\"\210 \313H\"*)\207" [uuid table cl-struct-yas--table-tags template cl-struct-yas--template-tags name gethash type-of signal wrong-type-argument yas--table 3 yas--template nil maphash #[(k v) "\306 \"\211\2054 \307\n!\f>\204 \310\311\312\nD\"\210\n\313H\232\2054 \314 \"\210\315 !\316U\2054 B\211)\207" [name v template uuid cl-struct-yas--template-tags k gethash type-of signal wrong-type-argument yas--template 9 remhash hash-table-count 0 empty-keys] 6] 2 vectorp define-key 5 remhash empty-keys key --dolist-tail--] 7 (#$ . 69256)]) | |
| 415 | (defconst yas-maybe-expand-from-keymap '(menu-item "" yas-expand-from-keymap :filter yas--maybe-expand-from-keymap-filter)) | |
| 416 | #@115 Store in TABLE the snippet template TEMPLATE. | |
| 417 | ||
| 418 | KEY can be a string (trigger key) of a vector (direct | |
| 419 | keybinding). | |
| 420 | (defalias 'yas--add-template #[(table template) "\306! >\204 \307\310\311D\"\210\312H\306! >\204! \307\310\311D\"\210\313H\306! >\2043 \307\310\311D\"\210\314H\315! \316\317\f D\"\317 \211 \203\276 @\320 \321\306 ! >\204i \307\310\322 D\"\210 \323H\"\206\217 \320\324\325\326\"\306 ! >\204\212 \307\310\322 D\"\210 \323H##\210\327!\203\265 \330\306 ! >\204\253 \307\310\322 D\"\210 \331H #\210 A\211 \204L *\320\306! >\204\317 \307\310\311D\"\210\332H\306 ! >\204\345 \307\310\322 D\"\210 \312H#,\207" [template cl-struct-yas--template-tags _menu-binding-pair keybinding key name type-of signal wrong-type-argument yas--template 3 1 8 yas--template-menu-binding-pair-get-create remove nil puthash gethash yas--table 2 make-hash-table :test equal vectorp define-key 5 9 k --dolist-tail-- table cl-struct-yas--table-tags yas-maybe-expand-from-keymap] 11 (#$ . 70411)]) | |
| 421 | #@115 Add or update TEMPLATE in TABLE. | |
| 422 | ||
| 423 | Also takes care of adding and updating to the associated menu. | |
| 424 | Return TEMPLATE. | |
| 425 | (defalias 'yas--update-template #[(table template) "\303\304 !\n>\204 \305\306\307 D\"\210 \310H\"\210\311 \"\210\312 \"\210 \207" [table template cl-struct-yas--template-tags yas--remove-template-by-uuid type-of signal wrong-type-argument yas--template 9 yas--add-template yas--update-template-menu] 6 (#$ . 71451)]) | |
| 426 | #@41 Update every menu-related for TEMPLATE. | |
| 427 | (defalias 'yas--update-template-menu #[(table template) "\306!\307! >\204 \310\311\312D\"\210\313H\307! >\204$ \310\311\312D\"\210\314H\211 A\315=\204s \f@A\211 \307! >\204E \310\311\312D\"\210\316H\240\210)\f@ &\n\203Y \317\n!\206a \205a 'P (&\320&A\321(#\241\210(\210*+\322!?\205H\323\324)!\325\324\307)!*>\204\224 \310\311\326)D\"\210)\327H\"\"\307! >\204\251 \310\311\312D\"\210\330H +\211 \204\270 \331\332!\210\333\307! >\204\312 \310\311\312D\"\210\334H\"\210+\335 ,\211 -\203-@,\336\337\340,!!\"\211 .\203\366 \341.!\204 \342 .\343\337\340,!!\344,.E#\210.)-A\211-\204\332 *\343\337\340\307! >\204.\310\311\312D\"\210\334H!!\307! >\204B\310\311\312D\"\210\345H@#*\207" [template cl-struct-yas--template-tags keybinding key menu-binding-pair #1=#:v yas--template-menu-binding-pair-get-create type-of signal wrong-type-argument yas--template 1 8 :none 3 key-description cl--set-getf :keys yas--template-menu-managed-by-yas-define-menu yas--menu-keymap-get-create yas--table-mode mapcar yas--table 4 11 cl--assertion-failed menu-keymap yas--delete-from-keymap 9 nil lookup-key vector make-symbol keymapp make-sparse-keymap define-key menu-item 10 #2=#:v yas-trigger-symbol #3=#:val table cl-struct-yas--table-tags group subgroup --dolist-tail-- subgroup-keymap] 9 (#$ . 71893)]) | |
| 428 | #@30 Return NAMEHASH as an alist. | |
| 429 | (defalias 'yas--namehash-templates-alist #[(namehash) "\302\303\304 \"\210)\207" [alist namehash nil maphash #[(k v) " B\nB\211\207" [k v alist] 2]] 3 (#$ . 73289)]) | |
| 430 | #@143 Fetch templates in TABLE by KEY. | |
| 431 | ||
| 432 | Return a list of cons (NAME . TEMPLATE) where NAME is a | |
| 433 | string and TEMPLATE is a `yas--template' structure. | |
| 434 | (defalias 'yas--fetch #[(table key) "\305! >\204 \306\307\310D\"\210\311H\211\205 \312 \n\"\211 \205% \313\314\f!!*\207" [table cl-struct-yas--table-tags keyhash key namehash type-of signal wrong-type-argument yas--table 2 gethash yas--filter-templates-by-condition yas--namehash-templates-alist] 5 (#$ . 73495)]) | |
| 435 | (defalias 'yas--eval-condition #[(condition) "\3031 \212\214\304 \305\216\306 !,0\207\307\310\311\312\n!#\210)\313\207" [save-match-data-internal condition err (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] eval yas--message 1 "Error in condition evaluation: %s" error-message-string nil] 5]) | |
| 436 | #@283 Filter the templates using the applicable condition. | |
| 437 | ||
| 438 | TEMPLATES is a list of cons (NAME . TEMPLATE) where NAME is a | |
| 439 | string and TEMPLATE is a `yas--template' structure. | |
| 440 | ||
| 441 | This function implements the rules described in | |
| 442 | `yas-buffer-local-condition'. See that variables documentation. | |
| 443 | (defalias 'yas--filter-templates-by-condition #[(templates) "\302 \211\303=\203 \202 \304\305 \")\207" [requirement templates yas--require-template-specific-condition-p always cl-remove-if-not #[(pair) "\303\304A! >\204 \305\306\307AD\"\210A\310H\n\"\207" [pair cl-struct-yas--template-tags requirement yas--template-can-expand-p type-of signal wrong-type-argument yas--template 4] 5]] 4 (#$ . 74311)]) | |
| 444 | #@105 Decide if this buffer requests/requires snippet-specific | |
| 445 | conditions to filter out potential expansions. | |
| 446 | (defalias 'yas--require-template-specific-condition-p #[nil "\302=\203 \302\207:\203 \303!\206 \211\2057 \304=\203# \304\2027 :\2057 @\305=\2057 A9\2057 A)\207" [yas-buffer-local-condition local-condition always yas--eval-condition t require-snippet-condition] 3 (#$ . 75011)]) | |
| 447 | #@58 Evaluate CONDITION and REQUIREMENT and return a boolean. | |
| 448 | (defalias 'yas--template-can-expand-p #[(condition requirement) "?\206 \303!\n\304\267\202 \202 \n =)\207" [condition result requirement yas--eval-condition #s(hash-table size 1 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (t 15))] 2 (#$ . 75412)]) | |
| 449 | (defalias 'yas--table-templates #[(table) "\205 \303\304\305\306!\n>\204 \307\310\311D\"\210\312H\"\210\313 !)\207" [table acc cl-struct-yas--table-tags nil maphash #[(_key namehash) "\301\302\"\207" [namehash maphash #[(name template) " B\nB\211\207" [name template acc] 2]] 3] type-of signal wrong-type-argument yas--table 2 yas--filter-templates-by-condition] 6]) | |
| 450 | #@153 Find `yas--template' objects for any trigger keys preceding point. | |
| 451 | Returns (TEMPLATES START END). This function respects | |
| 452 | `yas-key-syntaxes', which see. | |
| 453 | (defalias 'yas--templates-for-key-at-point #[nil "\212`\306\211 \203\\ \n\204\\ @=\204 \fb\210 @\211;\203- \307 !\210 A\202I \310 !\203A \f!\311=\204I A\202I A\312\313 \"\210\314`\f\" \212\fb\210\315\316\317 \"*\202 \n\205d \n`\fE-\207" [yas-key-syntaxes method templates methods original possible-key nil skip-syntax-backward functionp again yas--warning "Invalid element `%s' in `yas-key-syntaxes'" buffer-substring-no-properties cl-mapcan #[(table) "\302 \"\207" [table possible-key yas--fetch] 3] yas--get-snippet-tables] 5 (#$ . 76128)]) | |
| 454 | #@51 Get trigger keys of all active snippets in TABLE. | |
| 455 | (defalias 'yas--table-all-keys #[(table) "\303\304\305\306 !\n>\204 \307\310\311 D\"\210 \312H\"\210)\207" [acc table cl-struct-yas--table-tags nil maphash #[(key namehash) "\303\304!!\205 \nB\211\207" [namehash key acc yas--filter-templates-by-condition yas--namehash-templates-alist] 3] type-of signal wrong-type-argument yas--table 2] 6 (#$ . 76847)]) | |
| 456 | (defalias 'yas--table-mode #[(table) "\302\303! >\204 \304\305\306D\"\210\307H!\207" [table cl-struct-yas--table-tags intern type-of signal wrong-type-argument yas--table 1] 5]) | |
| 457 | #@94 Tries to work around Emacs Bug#30931. | |
| 458 | Helper function for `yas--save-restriction-and-widen'. | |
| 459 | (defalias 'yas--remove-misc-free-from-undo #[(old-undo-list) ":\205J \211\n:\205I \n =?\205I \n\211A\242\211 :\203C \f@\211 ;\204B \306 !\204B \250\204B 9\204B \fA\250\203B \n\241\210))\n\202 *\207" [buffer-undo-list prev undo-list old-undo-list entry head markerp] 3 (#$ . 77447)]) | |
| 460 | #@91 Equivalent to (save-restriction (widen) BODY). | |
| 461 | Also tries to work around Emacs Bug#30931. | |
| 462 | (defalias 'yas--save-restriction-and-widen '(macro . #[(&rest body) "\301\302\303\304\305BB\306BBE\207" [body let ((gc-cons-threshold most-positive-fixnum) (old-undo-list buffer-undo-list)) prog1 save-restriction (widen) ((yas--remove-misc-free-from-undo old-undo-list))] 6 (#$ . 77839)])) | |
| 463 | (byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put yas--save-restriction-and-widen edebug-form-spec (body) function-put lisp-indent-function 0] 4) | |
| 464 | #@49 Evaluate FORM and convert the result to string. | |
| 465 | (defalias 'yas--eval-for-string #[(form) "\306>?\205 \30714 \212\n \214~\210\310 \311\216\312!\211 \205* \313\314\",\315\f!\210+0\2029 \211 A))\207" [yas-good-grace debug-on-error most-positive-fixnum buffer-undo-list old-undo-list gc-cons-threshold (t inline) (debug error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] eval format "%s" yas--remove-misc-free-from-undo save-match-data-internal form result oops] 4 (#$ . 78387)]) | |
| 466 | (defalias 'yas--eval-for-effect #[(form) "\301\302\303\"!\207" [form yas--safely-call-fun apply-partially eval] 4]) | |
| 467 | #@178 Read STRING as a elisp expression and return it. | |
| 468 | ||
| 469 | In case STRING in an invalid expression and NIL-ON-ERROR is nil, | |
| 470 | return an expression that when evaluated will issue an error. | |
| 471 | (defalias 'yas--read-lisp #[(string &optional nil-on-error) "\3031 \304!0\207\n?\205 \305\306 DD)\207" [string err nil-on-error (error) read error error-message-string] 3 (#$ . 79047)]) | |
| 472 | #@59 Read KEYBINDING as a snippet keybinding, return a vector. | |
| 473 | (defalias 'yas--read-keybinding #[(keybinding) "\205/ \302\303\"?\205/ \3041# \302\305\"\203 \306!\206! \307\310\"0\207\311\312\313\314 !$\210)\315\207" [keybinding err string-match "keybinding" (error) "^\\[.*\\]$" read read-kbd-macro need-vector yas--message 2 "warning: keybinding \"%s\" invalid since %s." error-message-string nil] 7 (#$ . 79420)]) | |
| 474 | #@56 Get or create the snippet table corresponding to MODE. | |
| 475 | (defalias 'yas--table-get-create #[(mode) "\305 \"\211\204> \306\307\310!\311\312\313\"\311\312\313\"\314\315 &\316\n #\210\317\320\321\"!\322\n! >\2047 \323\324\307\nD\"\210\n\325HB\fB\n)\207" [mode yas--tables table cl-struct-yas--table-tags yas--direct-keymaps gethash record yas--table symbol-name make-hash-table :test equal nil make-sparse-keymap puthash intern format "yas--direct-%s" type-of signal wrong-type-argument 5] 8 (#$ . 79845)]) | |
| 476 | #@194 Get snippet tables for MODE. | |
| 477 | ||
| 478 | MODE defaults to the current buffer's `major-mode'. | |
| 479 | ||
| 480 | Return a list of `yas--table' objects. The list of modes to | |
| 481 | consider is returned by `yas--modes-to-activate' | |
| 482 | (defalias 'yas--get-snippet-tables #[(&optional mode) "\301\302\303\304\305!\"\"\207" [mode remove nil mapcar #[(name) "\302 \"\207" [name yas--tables gethash] 3] yas--modes-to-activate] 6 (#$ . 80362)]) | |
| 483 | #@153 Get or create the menu keymap for MODE and its PARENTS. | |
| 484 | ||
| 485 | This may very well create a plethora of menu keymaps and arrange | |
| 486 | them all in `yas--menu-table' | |
| 487 | (defalias 'yas--menu-keymap-get-create #[(mode &optional parents) "\305 \"\206 \306\307 #\310\311 \"\210\312\f\313!\314\315!\n\316\317\320DD\257#\210\n)\207" [mode yas--menu-table menu-keymap parents yas--minor-mode-menu gethash puthash make-sparse-keymap mapc yas--menu-keymap-get-create define-key vector menu-item symbol-name :visible yas--show-menu-p quote] 10 (#$ . 80768)]) | |
| 488 | #@646 Parse the template in the current buffer. | |
| 489 | ||
| 490 | Optional FILE is the absolute file name of the file being | |
| 491 | parsed. | |
| 492 | ||
| 493 | Optional GROUP is the group where the template is to go, | |
| 494 | otherwise we attempt to calculate it from FILE. | |
| 495 | ||
| 496 | Return a snippet-definition, i.e. a list | |
| 497 | ||
| 498 | (KEY TEMPLATE NAME CONDITION GROUP VARS LOAD-FILE KEYBINDING UUID) | |
| 499 | ||
| 500 | If the buffer contains a line of "# --" then the contents above | |
| 501 | this line are ignored. Directives can set most of these with the syntax: | |
| 502 | ||
| 503 | # directive-name : directive-value | |
| 504 | ||
| 505 | Here's a list of currently recognized directives: | |
| 506 | ||
| 507 | * type | |
| 508 | * name | |
| 509 | * contributor | |
| 510 | * condition | |
| 511 | * group | |
| 512 | * key | |
| 513 | * expand-env | |
| 514 | * binding | |
| 515 | * uuid | |
| 516 | (defalias 'yas--parse-template #[(&optional file) "eb\210\306 \205\f \307 !\310\211 \310\211 \" \205 \311 ! #\310\211 $ %\310 &\312\313\310\314#\203\271 \315`d\"`eb\210\312\316 \314#\203\276 \317\320!\321\230\203O \317\322!&\317\320!\323\230\203e \317\322!\324\230\203c \325\202d \306\317\320!\326\230\203q \317\322!\317\320!\327\230\203} \317\322!\317\320!\330\230\203\214 \331\317\322!!\"\317\320!\332\230\203\231 \317\322!#\317\320!\333\230\203\251 \331\317\322!\334\"$\317\320!\335\230\203: \317\322!%\202: \315ed\" \204\317 %\204\317 \205\316 \307 !\325=\203\334 \331\336\f\337Q!#\203\350 \340#\341\"# \f\n\"#$ %&\257 .\n\207" [type file name key template bound snippet file-name-nondirectory nil yas--calculate-group re-search-forward "^# --\\s-*\n" t buffer-substring-no-properties "^# *\\([^ ]+?\\) *: *\\(.*?\\)[[:space:]]*$" match-string-no-properties 1 "uuid" 2 "type" "command" command "key" "name" "condition" yas--read-lisp "group" "expand-env" nil-on-error "binding" "(progn" ")" split-string "\\." condition group expand-env binding uuid] 10 (#$ . 81316)]) | |
| 517 | #@49 Calculate the group for snippet file path FILE. | |
| 518 | (defalias 'yas--calculate-group #[(file) "\304\305\"\211\205 \306 \"\211\205 \307\n!\211\205! \310\311\312\313 !#+\207" [file dominating-dir extra-path extra-dir locate-dominating-file ".yas-make-groups" file-relative-name file-name-directory replace-regexp-in-string "/" "." directory-file-name] 6 (#$ . 83069)]) | |
| 519 | #@58 Return subdirs or files of DIRECTORY according to FILEP. | |
| 520 | (defalias 'yas--subdirs #[(directory &optional filep) "\301\302\303\304\"\"\207" [directory cl-remove-if #[(file) "\302\303\304!\"\206' \302\305\304!\"\206' \302\306\304!\"\206' \203# \307!\207\307!?\207" [file filep string-match "\\`\\." file-name-nondirectory "\\`#.*#\\'" "~\\'" file-directory-p] 4] directory-files t] 5 (#$ . 83444)]) | |
| 521 | (defalias 'yas--make-menu-binding #[(template) "\303\304! >\204 \305\306\307D\"\210\310H!\311\312\313\314\315\nD\304! >\204+ \305\306\307D\"\210\316HEF)\207" [template cl-struct-yas--template-tags mode yas--table-mode type-of signal wrong-type-argument yas--template 13 lambda nil (interactive) yas--expand-or-visit-from-menu quote 9] 9]) | |
| 522 | (defalias 'yas--expand-or-visit-from-menu #[(mode uuid) "\306!\211\205 \307\n\310 ! >\204 \311\312\313 D\"\210 \314H\"\211 \205m \203, \315\f!\202m \316 \2039 \317 \320 B\202< ``B \321\310\f!>\204O \311\312\322\fD\"\210\f\323H@A\310\f!>\204h \311\312\322\fD\"\210\f\324H$)*\207" [mode table uuid cl-struct-yas--table-tags yas--current-template yas-visit-from-menu yas--table-get-create gethash type-of signal wrong-type-argument yas--table 3 yas--visit-snippet-file-1 region-active-p region-beginning region-end yas-expand-snippet yas--template 2 5 where cl-struct-yas--template-tags] 9]) | |
| 523 | #@56 Return a yasnippet key from a description string TEXT. | |
| 524 | (defalias 'yas--key-from-desc #[(text) "\301\302\303#\207" [text replace-regexp-in-string "\\(\\w+\\).*" "\\1"] 4 (#$ . 84803)]) | |
| 525 | #@140 Interactively choose a template from the list TEMPLATES. | |
| 526 | ||
| 527 | TEMPLATES is a list of `yas--template'. | |
| 528 | ||
| 529 | Optional PROMPT sets the prompt to use. | |
| 530 | (defalias 'yas--prompt-for-template #[(templates &optional prompt) "\205 \302\303\"\304\305 \"\207" [templates yas-prompt-functions sort #[(t1 t2) "\303! >\204 \304\305\306D\"\210\307HG\303\n! >\204\" \304\305\306\nD\"\210\n\307HGW\207" [t1 cl-struct-yas--template-tags t2 type-of signal wrong-type-argument yas--template 3] 5] cl-some #[(fn) " \206 \303\n\304#\207" [fn prompt templates "Choose a snippet: " yas--template-name] 4]] 3 (#$ . 84995)]) | |
| 531 | #@98 Interactively choose a template key from the list KEYS. | |
| 532 | ||
| 533 | Optional PROMPT sets the prompt to use. | |
| 534 | (defalias 'yas--prompt-for-keys #[(keys &optional prompt) "\205 \302\303 \"\207" [keys yas-prompt-functions cl-some #[(fn) " \206 \303\n\"\207" [fn prompt keys "Choose a snippet key: "] 3]] 3 (#$ . 85600)]) | |
| 535 | #@93 Interactively choose a table from the list TABLES. | |
| 536 | ||
| 537 | Optional PROMPT sets the prompt to use. | |
| 538 | (defalias 'yas--prompt-for-table #[(tables &optional prompt) "\205 \302\303 \"\207" [tables yas-prompt-functions cl-some #[(fn) " \206 \303\n\304#\207" [fn prompt tables "Choose a snippet table: " yas--table-name] 4]] 3 (#$ . 85914)]) | |
| 539 | #@39 Display choices in a x-window prompt. | |
| 540 | (defalias 'yas-x-prompt #[(prompt choices &optional display-fn) "\205F \205F \305 \210\306\307\310!\203+ \310`!\3118\262\211@\312\\\nA\313\\D\314 )D\202, \315 \316\317\320 \f\203< \321\f \"\202= #BD\"\206F \322 \207" [window-system choices x-y prompt display-fn redisplay x-popup-menu fboundp posn-at-point 2 10 20 selected-window t "title" cl-mapcar #[(c d) "\302P B\207" [d c " "] 2] mapcar keyboard-quit] 11 (#$ . 86251)]) | |
| 541 | (defalias 'yas-maybe-ido-prompt #[(prompt choices &optional display-fn) "\304\300!\205 \205 \305 \n #\207" [ido-mode prompt choices display-fn boundp yas-ido-prompt] 4]) | |
| 542 | (defalias 'yas-ido-prompt #[(prompt choices &optional display-fn) "\303\304!\210\305 \n\306$\207" [prompt choices display-fn require ido yas-completing-prompt ido-completing-read] 5]) | |
| 543 | (defalias 'yas-dropdown-prompt #[(_prompt choices &optional display-fn) "\304\305!\205$ \203 \306 \"\202 \305\n!\211\203! 8\202# \307 *\207" [display-fn choices formatted-choices n fboundp dropdown-list mapcar keyboard-quit] 4]) | |
| 544 | (defalias 'yas-completing-prompt #[(prompt choices &optional display-fn completion-fn) "\203 \306 \"\202\f \206 \307\f\n\310\311\310\211& \n=\203% \2021 \312 \n\313\314$\206/ \315 8*\207" [display-fn choices formatted-choices completion-fn prompt chosen mapcar completing-read nil require-match cl-position :test string= 0] 7]) | |
| 545 | (defalias 'yas-no-prompt #[(_prompt choices &optional _display-fn) "@\207" [choices] 1]) | |
| 546 | (defvar yas--creating-compiled-snippets nil) | |
| 547 | #@35 Helper for `yas-define-snippets'. | |
| 548 | (defalias 'yas--define-snippets-1 #[(snippet snippet-table) "\302\303\304 #\"\207" [snippet-table snippet yas--update-template apply yas--define-snippets-2] 6 (#$ . 87799)]) | |
| 549 | #@827 Define SNIPPETS for MODE. | |
| 550 | ||
| 551 | SNIPPETS is a list of snippet definitions, each taking the | |
| 552 | following form | |
| 553 | ||
| 554 | (KEY TEMPLATE NAME CONDITION GROUP EXPAND-ENV LOAD-FILE KEYBINDING UUID SAVE-FILE) | |
| 555 | ||
| 556 | Within these, only KEY and TEMPLATE are actually mandatory. | |
| 557 | ||
| 558 | TEMPLATE might be a Lisp form or a string, depending on whether | |
| 559 | this is a snippet or a snippet-command. | |
| 560 | ||
| 561 | CONDITION, EXPAND-ENV and KEYBINDING are Lisp forms, they have | |
| 562 | been `yas--read-lisp'-ed and will eventually be | |
| 563 | `yas--eval-for-string'-ed. | |
| 564 | ||
| 565 | The remaining elements are strings. | |
| 566 | ||
| 567 | FILE is probably of very little use if you're programatically | |
| 568 | defining snippets. | |
| 569 | ||
| 570 | UUID is the snippet's "unique-id". Loading a second snippet | |
| 571 | file with the same uuid would replace the previous snippet. | |
| 572 | ||
| 573 | You can use `yas--parse-template' to return such lists based on | |
| 574 | the current buffers contents. | |
| 575 | (defalias 'yas-define-snippets #[(mode snippets) "\203I \306\307c\210\n\306\211 \2037 \f@\310 \311\312 GZ\306\"\"\313 8 \313 \233\306\240\210\314 \233 \240\210)\fA\211\204 *\315\316\317D\317\nDE!c\210\320c)\207\321!\306 \n\306\211 \203k \f@\322 \"\fA\211\204Z **\207" [yas--creating-compiled-snippets print-length snippets snippet --dolist-tail-- load-file nil ";;; Snippet definitions:\n;;;\n" append make-list 10 6 9 pp-to-string yas-define-snippets quote "\n\n" yas--table-get-create yas--define-snippets-1 mode template snippet-table] 6 (#$ . 88016)]) | |
| 576 | #@43 Return TEMPLATE's LOAD-FILE or SAVE-FILE. | |
| 577 | (defalias 'yas--template-get-file #[(template) "\303! >\204 \304\305\306D\"\210\307H\206F \303! >\204$ \304\305\306D\"\210\310H\211\203D \311\312\313\303! >\204> \304\305\306D\"\210\312H\n$\210\n)\207" [template cl-struct-yas--template-tags file type-of signal wrong-type-argument yas--template 6 7 yas--message 3 "%s has no load file, using save file, %s, instead."] 8 (#$ . 89427)]) | |
| 578 | (defalias 'yas--load-yas-setup-file #[(file) "\204\f \304 \305\n\306X#\207 \307P\310 !\205 \311c\210\312 !\210db)\207" [yas--creating-compiled-snippets file yas-verbosity elfile load noerror 4 ".el" file-exists-p ";;; contents of the .yas-setup.el support file:\n;;;\n" insert-file-contents] 5]) | |
| 579 | #@44 Add PARENTS to the list of MODE's parents. | |
| 580 | (defalias 'yas--define-parents #[(mode parents) "\303\304\305 \306\n\"\"!\n#\207" [mode parents yas--parents puthash cl-remove-duplicates append gethash] 8 (#$ . 90170)]) | |
| 581 | #@170 Load snippets in directory hierarchy TOP-LEVEL-DIR. | |
| 582 | ||
| 583 | Below TOP-LEVEL-DIR each directory should be a mode name. | |
| 584 | ||
| 585 | With prefix argument USE-JIT do jit-loading of snippets. | |
| 586 | (defalias 'yas-load-directory #[(top-level-dir &optional use-jit interactive) "\204 \306\307 !\306\211 \203\220 \f@\310 \311P!\211 @ A \312\"\210\313!\210\314\315 # \203F \316\"\210\202J \210)\203\210 \317 \306 :\203\207 @rq\210 =\203} \320\321\322$\210\nB)A\211\202Y *+\fA\211\204 *\n \306 :\203\264 @rq\210\323 \210) A\211 \202\231 + \205\277 \320\324\325 #\207" [yas-snippet-dirs top-level-dir impatient-buffers dir --dolist-tail-- major-mode-and-parents nil yas--subdirs yas--compute-major-mode-and-parents "/dummy" yas--define-parents yas--menu-keymap-get-create apply-partially yas--load-directory-1 yas--schedule-jit buffer-list yas--message 4 "Discovered there was already %s in %s" yas--load-pending-jits 3 "Loaded snippets from %s." mode-sym parents fun use-jit #1=#:--cl-var-- buffer major-mode #2=#:--cl-var-- interactive] 6 (#$ . 90393) (list (read-directory-name "Select the root directory: " nil nil t) current-prefix-arg t)]) | |
| 587 | #@52 Recursively load snippet templates from DIRECTORY. | |
| 588 | (defalias 'yas--load-directory-1 #[(directory mode-sym) "\2037 \306\307 \"\211\310\311\312!! \313\216r q\210\314\315 \"c\210\316 \"\210\314\317\320 \"c)r q\210\321\322\211\f\322\323%\210-\207\324\306\325 \"!?\205d \326\306\327 \"\330 \331X#\205V \332\333\334 #\210\335?\205d \332\333\336 #\210\316 \"\207" [yas--creating-compiled-snippets directory output-file #1=#:temp-buffer #2=#:temp-file mode-sym expand-file-name ".yas-compiled-snippets.el" get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] format ";;; Compiled snippets and support files for `%s'\n" yas--load-directory-2 ";;; Do not edit! File generated at %s\n" current-time-string write-region nil 0 file-exists-p ".yas-skip" load ".yas-compiled-snippets" noerror 3 yas--message 4 "Loaded compiled snippets from %s" t "Loading snippet files from %s" yas-verbosity] 8 (#$ . 91580)]) | |
| 589 | (defalias 'yas--load-directory-2 #[(directory mode-sym) "\306\307\310\"!\210\311\312\313!r q\210\314\216\315\316\"\311 \211 \203= @\317\f!\2036 \320 \210\321\f!\210\322\f!\nB A\211\204 -\n\203H \323\n\"\210\315!\311 \211 \205f @\324\"\210 A\211\204S \311,\207" [directory default-directory snippet-defs #1=#:temp-buffer file --dolist-tail-- yas--load-yas-setup-file expand-file-name ".yas-setup" nil generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] yas--subdirs no-subdirs-just-files file-readable-p erase-buffer insert-file-contents yas--parse-template yas-define-snippets yas--load-directory-2 mode-sym subdir] 5]) | |
| 590 | #@87 Reload the directories listed in `yas-snippet-dirs' or | |
| 591 | prompt the user to select one. | |
| 592 | (defalias 'yas--load-snippet-dirs #[(&optional nojit) "\306 \204 \307\310!\210\202X \n \235\203 \311\n\312\"\210\313\301 !\306\211 \203W \f@\314 !\203H \310 ?\"\210 \203? \315\316\317 #\210\202P \315\316\320 #\210\202P \315\321\322 #B\fA\211\204# *)\207" [errors yas-snippet-dirs yas--default-user-snippets-dir directory --dolist-tail-- nojit nil call-interactively yas-load-directory make-directory t reverse file-directory-p yas--message 4 "Loaded %s" "Prepared just-in-time loading for %s" 1 "Check your `yas-snippet-dirs': %s is not a directory"] 5 (#$ . 93242)]) | |
| 593 | #@267 Reload all snippets and rebuild the YASnippet menu. | |
| 594 | ||
| 595 | When NO-JIT is non-nil force immediate reload of all known | |
| 596 | snippets under `yas-snippet-dirs', otherwise use just-in-time | |
| 597 | loading. | |
| 598 | ||
| 599 | When called interactively, use just-in-time loading when given a | |
| 600 | prefix argument. | |
| 601 | (defalias 'yas-reload-all #[(&optional no-jit interactive) "\3062\213 \307\310\311\312 \"\2035 \n\203/ \313\314!\203\" \315\316\"\210\2025 \317\320\321\"\210\322\306\307\"\210\2025 \315\323\312 \"\210\324 \324 \325\326 \"\210\324 \324 $\327%!\330 \210\331\332!\210\333\334$\f E\" &\317&\204g \203k \335\202l \336%\203u \337\202v \340 \203~ \341\202\210 &\203\207 \342\202\210 \343#+0\207" [snippet-editing-buffers errors interactive yas--tables yas--parents yas--menu-table abort nil cl-remove-if-not #[(buffer) "rq\210 )\207" [buffer yas--editing-template] 1] buffer-list y-or-n-p "Some buffers editing live snippets, close them and proceed with reload? " mapc kill-buffer yas--message 1 "Aborted reload..." throw #[(buffer) "rq\210\301\302!)\207" [buffer kill-local-variable yas--editing-template] 2] make-hash-table maphash #[(menu-symbol _keymap) "\302\303 !\304#\207" [yas--minor-mode-menu menu-symbol define-key vector nil] 4] yas--load-snippet-dirs yas-direct-keymaps-reload run-hooks yas-after-reload-hook cl-every #[(table) "\301!\302U\207" [table hash-table-count 0] 2] 2 3 "Snippets loaded %s." "Prepared just-in-time loading of snippets %s." "with some errors. Check *Messages*" "(but no snippets found)" "successfully" yas--scheduled-jit-loads no-jit no-snippets] 5 (#$ . 93913) (list (not current-prefix-arg) t)]) | |
| 602 | #@35 Hooks run after `yas-reload-all'. | |
| 603 | (defvar yas-after-reload-hook nil (#$ . 95533)) | |
| 604 | (defalias 'yas--load-pending-jits #[nil "\305 \306\211\205> @\307\310\n\"!\211\306 \211\203/ @\311\312\313\f$\210\f \210 A\211\204 *\314\n\"\210) A\211\204 \306*\207" [mode --dolist-tail-- yas--scheduled-jit-loads funs fun yas--modes-to-activate nil reverse gethash yas--message 4 "Loading for `%s', just-in-time: %s!" remhash] 6]) | |
| 605 | #@26 Escape TEXT for snippet. | |
| 606 | (defalias 'yas-escape-text #[(text) "\205 \301\302\303#\207" [text replace-regexp-in-string "[\\$]" "\\\\\\&"] 4 (#$ . 95968)]) | |
| 607 | #@148 Create .yas-compiled-snippets.el files under subdirs of TOP-LEVEL-DIR. | |
| 608 | ||
| 609 | This works by stubbing a few functions, then calling | |
| 610 | `yas-load-directory'. | |
| 611 | (defalias 'yas-compile-directory #[(top-level-dir) "\302\303 \304\")\207" [yas--creating-compiled-snippets top-level-dir t yas-load-directory nil] 3 (#$ . 96131) "DTop level snippet directory?"]) | |
| 612 | #@42 Compile every dir in `yas-snippet-dirs'. | |
| 613 | (defalias 'yas-recompile-all #[nil "\300\301\302 \"\207" [mapc yas-compile-directory yas-snippet-dirs] 3 (#$ . 96481) nil]) | |
| 614 | #@77 Alist of mode-symbols to forms to be evaled when `yas-minor-mode' kicks in. | |
| 615 | (defvar yas--scheduled-jit-loads (make-hash-table) (#$ . 96652)) | |
| 616 | (defalias 'yas--schedule-jit #[(mode fun) "\n\305 \f\306 \"B #*\207" [mode #1=#:v yas--scheduled-jit-loads #2=#:v fun puthash gethash] 6]) | |
| 617 | (defalias 'yas-about #[nil "\306\307\3101 \311\312\313\314\315$)@0\202 \210\202 \206j \316\317!\203h \320\321!\203h \320\322!\203h \3231c \324\n\236A\322\325 @!\f>\204H \326\327\330 @D\"\210 @\331H! \332\333 \"\203] \334 Q\202^ *0\202e \210\335\206j \"\207" [yas--loaddir default-directory package-alist yas-pkg cl-struct-package-desc-tags version message "yasnippet (version %s) -- pluskid/joaotavora/npostavs" (error) process-lines "git" "describe" "--tags" "--dirty" featurep package fboundp package-desc-version package-version-join (error) yasnippet type-of signal wrong-type-argument package-desc 2 string-match "\\`20..[01][0-9][0-3][0-9][.][0-9]\\{3,4\\}\\'" "-snapshot" nil yas--version] 7 nil nil]) | |
| 618 | #@133 Get TEMPLATE's menu binding or assign it a new one. | |
| 619 | ||
| 620 | TYPE may be `:stay', signaling this menu binding should be | |
| 621 | static in the menu. | |
| 622 | (defalias 'yas--template-menu-binding-pair-get-create #[(template &optional type) "\304! >\204 \305\306\307D\"\210\310H\206[ \304! >\204$ \305\306\307D\"\210\211\310\311\304! >\2048 \305\306\307D\"\210\312H\206P \304! >\204M \305\306\307D\"\210\313H\314!\315\316\257 BI)\207" [template cl-struct-yas--template-tags #1=#:v type type-of signal wrong-type-argument yas--template 10 menu-item 3 9 yas--make-menu-binding :keys nil] 8 (#$ . 97663)]) | |
| 623 | #@76 Non-nil if TEMPLATE's menu entry was included in a `yas-define-menu' call. | |
| 624 | (defalias 'yas--template-menu-managed-by-yas-define-menu #[(template) "\302! >\204 \303\304\305D\"\210\306HA\207" [template cl-struct-yas--template-tags type-of signal wrong-type-argument yas--template 10] 4 (#$ . 98261)]) | |
| 625 | (defalias 'yas--show-menu-p #[(mode) "\302=\203 \303 \304\305\306 \"\"\207\205 \307\207" [yas-use-menu mode abbreviate cl-find mapcar yas--table-mode yas--get-snippet-tables t] 5]) | |
| 626 | #@66 Recursively delete items with UUID from KEYMAP and its submenus. | |
| 627 | (defalias 'yas--delete-from-keymap #[(keymap uuid) "\302\303A\"\210\304\305\306 !!\307#\210\310\311A\"\241\207" [keymap uuid mapc #[(item) "\243:\205 \302\303A8!\205 \304\303A8 \"\207" [item uuid keymapp 2 yas--delete-from-keymap] 3] define-key vector make-symbol nil cl-delete-if #[(item) "<\204 \301\207A?\206 \302\303A8!\205 \303A8A?\207" [item nil keymapp 2] 3]] 5 (#$ . 98754)]) | |
| 628 | #@635 Define a snippet menu for MODE according to MENU, omitting OMIT-ITEMS. | |
| 629 | ||
| 630 | MENU is a list, its elements can be: | |
| 631 | ||
| 632 | - (yas-item UUID) : Creates an entry the snippet identified with | |
| 633 | UUID. The menu entry for a snippet thus identified is | |
| 634 | permanent, i.e. it will never move (be reordered) in the menu. | |
| 635 | ||
| 636 | - (yas-separator) : Creates a separator | |
| 637 | ||
| 638 | - (yas-submenu NAME SUBMENU) : Creates a submenu with NAME, | |
| 639 | SUBMENU has the same form as MENU. NAME is also added to the | |
| 640 | list of groups of the snippets defined thereafter. | |
| 641 | ||
| 642 | OMIT-ITEMS is a list of snippet uuids that will always be | |
| 643 | omitted from MODE's menu, even if they're manually loaded. | |
| 644 | (defalias 'yas-define-menu #[(mode menu &optional omit-items) "\306!\307 !\n>\204 \310\311\312 D\"\210 \313H\314 \315!\f $\210 \316 \211 \205x @\317 \"\206N \320\321\322\316\211\211\211\211\211\211\211\316\211\211 & # \307!>\204b \310\311\322D\"\210\211 \323\316\324BI\210*A\211\204* \316,\207" [mode table cl-struct-yas--table-tags hash menu omit-items yas--table-get-create type-of signal wrong-type-argument yas--table 3 yas--define-menu-1 yas--menu-keymap-get-create nil gethash puthash record yas--template 10 :none uuid --dolist-tail-- template cl-struct-yas--template-tags #1=#:v] 18 (#$ . 99226)]) | |
| 645 | #@31 Helper for `yas-define-menu'. | |
| 646 | (defalias 'yas--define-menu-1 #[(table menu-keymap menu uuidhash &optional group-list) "\306!\307\211\307\211 \307 :\203\272 @\211\211A\242 \211A\242 @ \n\310=\2049 \203e \n\311=\203e \312 \"\206Y \313 \314\315\307\211\211\211\211\211\211\211 \307\211!\"& # #\316#\317\"@)\202\257 \n\320=\204v \203\223 \n\321=\203\223 \322 $\323\"$\f \324! C\"%\210\325 $E)\202\257 \n\326=\204\244 \203\250 \n\327=\203\250 \330\202\257 \331\332\333\n#\210\307C\244 A\211\202 \334\335 \" %&\211 '%'AB\241\210.\307\207" [menu #1=#:--cl-var-- type name submenu #2=#:--cl-var-- reverse nil yas-item yas/item gethash puthash record yas--template yas--template-menu-binding-pair-get-create :stay yas-submenu yas/submenu make-sparse-keymap yas--define-menu-1 append menu-item yas-separator yas/separator (menu-item "----") yas--message 1 "Don't know anything about menu entry %s" apply vector menu-entries yas-alias-to-yas/prefix-p uuidhash group-list table template subkeymap #3=#:v menu-keymap #4=#:v] 19 (#$ . 100504)]) | |
| 647 | #@302 Define a snippet. Expanding KEY into TEMPLATE. | |
| 648 | ||
| 649 | NAME is a description to this template. Also update the menu if | |
| 650 | `yas-use-menu' is t. CONDITION is the condition attached to | |
| 651 | this snippet. If you attach a condition to a snippet, then it | |
| 652 | will only be expanded when the condition evaluated to non-nil. | |
| 653 | (defalias 'yas--define #[(mode key template &optional name condition group) "\306 \n \f \257C\"\207" [mode key template name condition group yas-define-snippets] 7 (#$ . 101584)]) | |
| 654 | #@94 Integrate with hippie expand. | |
| 655 | ||
| 656 | Just put this function in `hippie-expand-try-functions-list'. | |
| 657 | (defalias 'yas-hippie-try-expand #[(first-time\?) "\205 \204 \303\304 )\207\305\306!\210\307\207" [yas-minor-mode first-time\? yas-fallback-behavior return-nil yas-expand undo 1 nil] 2 (#$ . 102073)]) | |
| 658 | #@203 Define a function FUNC with doc DOC and body BODY. | |
| 659 | BODY is executed at most once every snippet expansion attempt, to check | |
| 660 | expansion conditions. | |
| 661 | ||
| 662 | It doesn't make any sense to call FUNC programatically. | |
| 663 | (defalias 'yas-define-condition-cache '(macro . #[(func doc &rest body) "\303\304 \203 ;\203 \305P\202 \nB\304\306\307\310\311D\312BBDC\313\314\315\306\316\317\nBDC\320\311D\321BB\322BBBFE\257\207" [func doc body defun nil "\n\nFor use in snippets' conditions. Within each\nsnippet-expansion routine like `yas-expand', computes actual\nvalue for the first time then always returns a cached value." let timestamp-and-value get quote ('yas--condition-cache) if (equal (car timestamp-and-value) yas--condition-cache-timestamp) (cdr timestamp-and-value) new-value progn put ('yas--condition-cache (cons yas--condition-cache-timestamp new-value)) (new-value)] 14 (#$ . 102379)])) | |
| 664 | (defalias 'yas-expand 'yas-expand-from-trigger-key) | |
| 665 | #@258 Expand a snippet before point. | |
| 666 | ||
| 667 | If no snippet expansion is possible, fall back to the behaviour | |
| 668 | defined in `yas-fallback-behavior'. | |
| 669 | ||
| 670 | Optional argument FIELD is for non-interactive use and is an | |
| 671 | object satisfying `yas--field-p' to restrict the expansion to. | |
| 672 | (defalias 'yas-expand-from-trigger-key #[(&optional field) "\306 \307\n\203 \n\235\203% \f\203\" \214\310\f!\311\f!}\210\312 )\202$ \312 \203O \313 @\314 \2036 \315 \2027 A@^\314 \203E \316 \202G \317 8]#\202Q \320 )\207" [yas--condition-cache-timestamp templates-and-pos yas-expand-only-for-last-commands last-command field most-positive-fixnum current-time nil yas--field-start yas--field-end yas--templates-for-key-at-point yas--expand-or-prompt-for-template use-region-p region-beginning region-end 2 yas--fallback most-negative-fixnum] 6 (#$ . 103326) nil]) | |
| 673 | (defalias 'yas--maybe-expand-from-keymap-filter #[(cmd) "\305 \306\307 \203 \310 G\202 \311\"\312\313\314 \"\211\205\" \f\206\" +\207" [yas--condition-cache-timestamp current-prefix-arg vec templates cmd current-time cl-subseq this-command-keys-vector this-command-keys 0 cl-mapcan #[(table) "\302 \"\207" [table vec yas--fetch] 3] yas--get-snippet-tables] 4]) | |
| 674 | #@65 Directly expand some snippets, searching `yas--direct-keymaps'. | |
| 675 | (defalias 'yas-expand-from-keymap #[nil "\302 \303\304!\211\205 \305 !)\207" [yas--condition-cache-timestamp templates current-time yas--maybe-expand-from-keymap-filter nil yas--expand-or-prompt-for-template] 3 (#$ . 104531) nil]) | |
| 676 | #@206 Expand one of TEMPLATES from START to END. | |
| 677 | ||
| 678 | Prompt the user if TEMPLATES has more than one element, else | |
| 679 | expand immediately. Common gateway for | |
| 680 | `yas-expand-from-trigger-key' and `yas-expand-from-keymap'. | |
| 681 | (defalias 'yas--expand-or-prompt-for-template #[(templates &optional start end) "A\203 \305\306\307\"!\206 @A\211\205> \310\311 !\n>\204& \312\313\314 D\"\210 \315H \f\311 !\n>\204: \312\313\314 D\"\210 \316H$)\207" [templates yas--current-template cl-struct-yas--template-tags start end yas--prompt-for-template mapcar cdr yas-expand-snippet type-of signal wrong-type-argument yas--template 2 5] 9 (#$ . 104836)]) | |
| 682 | #@118 Fallback after expansion has failed. | |
| 683 | ||
| 684 | Common gateway for `yas-expand-from-trigger-key' and | |
| 685 | `yas-expand-from-keymap'. | |
| 686 | (defalias 'yas--fallback #[nil "\306=\203 \307\207\310=\203 \311\312!\207\313=\203> \310\307\314 \315\316\317\n#\210\n\2033 \320\n!\2043 \321\322!\210\n\n\205< \323\n!+\207<\203s A\203s @\324=\203s A@AA\310\307 \f\203f \324 \f\"\202q \320 !\205q \323 !,\207\307\207" [yas-fallback-behavior yas-minor-mode beyond-yasnippet this-command args command-or-fn return-nil nil yas--fallback error "yasnippet fallback loop!\nThis can happen when you bind `yas-expand' outside of the `yas-minor-mode-map'." call-other-command yas--keybinding-beyond-yasnippet yas--message 4 "Falling back to %s" commandp cl--assertion-failed (or (null beyond-yasnippet) (commandp beyond-yasnippet)) call-interactively apply] 4 (#$ . 105469)]) | |
| 687 | #@59 Get current keys's binding as if YASsnippet didn't exist. | |
| 688 | (defalias 'yas--keybinding-beyond-yasnippet #[nil "\303\211\304 \305\n\306\"\206 \305\307\n!\306\"+\207" [yas-minor-mode yas--direct-keymaps keys nil this-single-command-keys key-binding t yas--fallback-translate-input] 4 (#$ . 106327)]) | |
| 689 | #@173 Emulate `read-key-sequence', at least what I think it does. | |
| 690 | ||
| 691 | Keys should be an untranslated key vector. Returns a translated | |
| 692 | vector of keys. FIXME not thoroughly tested. | |
| 693 | (defalias 'yas--fallback-translate-input #[(keys) "\306\307\nGW\203U \211 \nGW\2032 \f\2032 \310\f!\2032 \311\n H\312\313\f\"\"A T\211\202 \314 \f9\203? \315\f!\202M \316\f!\203I \f\202M \n O\" *\202 *\207" [i retval keys local-function-key-map translated j [] 0 keymapp assoc remove keymap vconcat vector vectorp] 6 (#$ . 106634)]) | |
| 694 | #@166 Get `yas--template' objects in TABLES, applicable for buffer and point. | |
| 695 | ||
| 696 | Honours `yas-choose-tables-first', `yas-choose-keys-first' and | |
| 697 | `yas-buffer-local-condition' | |
| 698 | (defalias 'yas--all-templates #[(tables) "\203 \304 !C\305\306\n\203\" \307\310\311 \"!\211\205 \310\312 \")\202* \313\310\314 \"\315\316#\"\207" [yas-choose-tables-first tables yas-choose-keys-first key yas--prompt-for-table mapcar cdr yas--prompt-for-keys cl-mapcan yas--table-all-keys #[(table) "\302 \"\207" [table key yas--fetch] 3] cl-remove-duplicates yas--table-templates :test equal] 7 (#$ . 107160)]) | |
| 699 | #@47 Get the snippet called NAME in MODE's tables. | |
| 700 | (defalias 'yas--lookup-snippet-1 #[(name mode) "\304\211\305\n\306\307 !!\310\311\312\313&*\207" [yas-choose-keys-first yas-choose-tables-first name mode nil cl-find yas--all-templates yas--get-snippet-tables :key yas--template-name :test string=] 7 (#$ . 107748)]) | |
| 701 | #@229 Get the snippet named NAME in MODE's tables. | |
| 702 | ||
| 703 | MODE defaults to the current buffer's `major-mode'. If NOERROR | |
| 704 | is non-nil, then don't signal an error if there isn't any snippet | |
| 705 | called NAME. | |
| 706 | ||
| 707 | Honours `yas-buffer-local-condition'. | |
| 708 | (defalias 'yas-lookup-snippet #[(name &optional mode noerror) "\303 \"\206 \n\203 \304\207\305\306\"\207" [name mode noerror yas--lookup-snippet-1 nil error "No snippet named: %s"] 3 (#$ . 108070)]) | |
| 709 | #@170 Choose a snippet to expand, pop-up a list of choices according | |
| 710 | to `yas-prompt-functions'. | |
| 711 | ||
| 712 | With prefix argument NO-CONDITION, bypass filtering of snippets | |
| 713 | by condition. | |
| 714 | (defalias 'yas-insert-snippet #[(&optional no-condition) "\306 \203 \307\202\f \n\310\311 !\211\205# A\203! \312 !\206# @ \313 \2031 \314 \315 B\2024 ``B \f\203h \316\317\f!>\204J \320\321\322\fD\"\210\f\323H @ A\317\f!>\204a \320\321\322\fD\"\210\f\324H$\202l \325\326\327\",\207" [yas--condition-cache-timestamp no-condition yas-buffer-local-condition templates yas--current-template where current-time always yas--all-templates yas--get-snippet-tables yas--prompt-for-template region-active-p region-beginning region-end yas-expand-snippet type-of signal wrong-type-argument yas--template 2 5 yas--message 1 "No snippets can be inserted here!" cl-struct-yas--template-tags] 9 (#$ . 108508) "P"]) | |
| 715 | #@163 Choose a snippet to edit, selection like `yas-insert-snippet'. | |
| 716 | ||
| 717 | Only success if selected snippet was loaded from a file. Put the | |
| 718 | visited file in `snippet-mode'. | |
| 719 | (defalias 'yas-visit-snippet-file #[nil "\303\304\305 !\211\205 \306 \307\"\206 @\211\203 \310\n!\202\" \311\312!+\207" [yas-buffer-local-condition templates template always yas--all-templates yas--get-snippet-tables yas--prompt-for-template "Choose a snippet template to edit: " yas--visit-snippet-file-1 message "No snippets tables active!"] 4 (#$ . 109394) nil]) | |
| 720 | #@38 Helper for `yas-visit-snippet-file'. | |
| 721 | (defalias 'yas--visit-snippet-file-1 #[(template) "\306!\211\203 \307 !\203 \310 !\210\311 \210\312\302!\210\211\202n \203* \313\314 \"\202n\315\316\317\320! >\204< \321\322\323D\"\210\324H\"!\210\325 \320! >\204S \321\322\323D\"\210\326H<\203a \316\327!c\210\330\316\331\320! >\204r \321\322\323D\"\210\332H\"c\210\316\333\320! >\204\211 \321\322\323D\"\210\324H\"c\210\320! >\204\236 \321\322\323D\"\210\334H\203\273 \316\335\320! >\204\265 \321\322\323D\"\210\334H\"c\210\320! >\204\312 \321\322\323D\"\210\336H\203\347 \316\337\320! >\204\341 \321\322\323D\"\210\336H\"c\210\320! >\204\366 \321\322\323D\"\210\340H\203\316\341\320! >\204 \321\322\323D\"\210\340H\"c\210\342c\210\f\330=\2033\343\320! >\204,\321\322\323D\"\210\326H!\202E\320! >\204B\321\322\323D\"\210\326Hc\210)\311 \210\312\302!\210\312\305!\210\344\320! >\204e\321\322\323D\"\210\345H!@A@\211)\207" [template file yas--editing-template cl-struct-yas--template-tags type default-directory yas--template-get-file file-readable-p find-file-other-window snippet-mode make-local-variable message "Original file %s no longer exists!" switch-to-buffer format "*%s*" type-of signal wrong-type-argument yas--template 3 snippet 2 "# type: command\n" command "# key: %s\n" 1 "# name: %s\n" 8 "# binding: %s\n" 5 "# expand-env: %s\n" 4 "# condition: %s\n" "# --\n" pp-to-string yas--guess-snippet-directories 13] 8 (#$ . 109935)]) | |
| 722 | #@50 Guess possible snippet subdirectories for TABLE. | |
| 723 | (defalias 'yas--guess-snippet-directories-1 #[(table) "\302\303! >\204 \304\305\306D\"\210\307H!\310\311\303! >\204% \304\305\306D\"\210\312H\"B\207" [table cl-struct-yas--table-tags file-name-as-directory type-of signal wrong-type-argument yas--table 1 cl-mapcan yas--guess-snippet-directories-1 4] 7 (#$ . 111429)]) | |
| 724 | #@255 Try to guess suitable directories based on the current active | |
| 725 | tables (or optional TABLE). | |
| 726 | ||
| 727 | Returns a list of elements (TABLE . DIRS) where TABLE is a | |
| 728 | `yas--table' object and DIRS is a list of all possible directories | |
| 729 | where snippets of table might exist. | |
| 730 | (defalias 'yas--guess-snippet-directories #[(&optional table) "\301 \206 C\211@\n\203 \nC\202 \306 \n\204, \307 ! \310 \" B)\311\312 \"*\207" [yas--default-user-snippets-dir yas-snippet-dirs table tables main-dir major-mode yas--get-snippet-tables yas--table-get-create delq mapcar #[(table) "\301\302\303!\"B\207" [table mapcar #[(subdir) "\302 \"\207" [subdir main-dir expand-file-name] 3] yas--guess-snippet-directories-1] 5] major-mode-table] 3 (#$ . 111810)]) | |
| 731 | #@74 Return a dir inside TABLE-AND-DIRS, prompts for creation if none exists. | |
| 732 | (defalias 'yas--make-directory-maybe #[(table-and-dirs &optional main-table-string) "\305\306A\"\206T A@\307\310 !!\204 \311\312\313 \"!\210\314\315\316 \317\320@!\n\"\203- \321\202. \322 \2063 \321\323@!\f>\204D \324\325\326@D\"\210@\327H%!\205S \330 \331\"\210 )\207" [table-and-dirs candidate yas--tables main-table-string cl-struct-yas--table-tags cl-some #[(dir) "\301!\205 \207" [dir file-directory-p] 2] file-writable-p file-name-directory error yas--format "%s is not writable." y-or-n-p format "Guessed directory (%s) for%s%s table \"%s\" does not exist! Create? " gethash yas--table-mode "" " brand new" type-of signal wrong-type-argument yas--table 1 make-directory also-make-parents] 10 (#$ . 112552)]) | |
| 733 | (defconst yas-new-snippet-buffer-name "+new-snippet+") | |
| 734 | #@133 Pops a new buffer for writing a snippet. | |
| 735 | ||
| 736 | Expands a snippet-writing snippet, unless the optional prefix arg | |
| 737 | NO-TEMPLATE is non-nil. | |
| 738 | (defalias 'yas-new-snippet #[(&optional no-template) "\306 \206 \307 \205 \310\311 \312 \"\313\n!\210\314 \210\315 \210\316 \210\317\320!\210\321\303!\210\322\323 \"\321\304!\210 @A@ ?\205D \205D \324!*\207" [yas-selected-text guessed-directories yas-new-snippet-buffer-name yas--guessed-modes default-directory no-template yas--guess-snippet-directories region-active-p buffer-substring-no-properties region-beginning region-end switch-to-buffer erase-buffer kill-all-local-variables snippet-mode yas-minor-mode 1 make-local-variable mapcar #[(d) "\301@!\207" [d yas--table-mode] 2] yas-expand-snippet yas-new-snippet-default] 4 (#$ . 113413) "P"]) | |
| 739 | #@280 Given FILE, find the nearest snippet directory for a given mode. | |
| 740 | ||
| 741 | Returns a list (MODE-SYM PARENTS), the mode's symbol and a list | |
| 742 | representing one or more of the mode's parents. | |
| 743 | ||
| 744 | Note that MODE-SYM need not be the symbol of a real major mode, | |
| 745 | neither do the elements of PARENTS. | |
| 746 | (defalias 'yas--compute-major-mode-and-parents #[(file) "\205 \306\307\310\311\"\206 \306\312!!!\211\313P \205 \314 !\211\205& \315 ! \316\n!\205E \317\315\320\321\322! r q\210\323\216\324\n!\210\325ed\"+!\" \f\205R \f\326\f\"B-\207" [file file-dir parents-file-name major-mode-name major-mode-sym #1=#:temp-buffer directory-file-name cl-some #[(special) "\302 \"\207" [file special locate-dominating-file] 3] (".yas-setup.el" ".yas-make-groups" ".yas-parents") file-name-directory "/.yas-parents" file-name-nondirectory intern file-readable-p mapcar split-string generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] insert-file-contents buffer-substring-no-properties remove parents] 7 (#$ . 114214)]) | |
| 747 | #@77 Supporting variable for `yas-load-snippet-buffer' and `yas--visit-snippet'. | |
| 748 | (defvar yas--editing-template nil (#$ . 115255)) | |
| 749 | #@59 Holds the current template being expanded into a snippet. | |
| 750 | (defvar yas--current-template nil (#$ . 115386)) | |
| 751 | #@61 List of guessed modes supporting `yas-load-snippet-buffer'. | |
| 752 | (defvar yas--guessed-modes nil (#$ . 115499)) | |
| 753 | #@56 Ask user for a snippet table, help with some guessing. | |
| 754 | (defalias 'yas--read-table #[nil "\304\305!\203 \203 \306\202 \307\n\204 \310\302!\210\311 !\312 \313\314\n\203) \n@\202* \315\"\316\317\n\"\320\211\211\211\n@\205< \317\n@!&!)\207" [ido-mode prompt yas--guessed-modes buffer-file-name featurep ido ido-completing-read completing-read make-local-variable yas--compute-major-mode-and-parents intern format "Choose or enter a table (yas guesses %s): " "nothing" mapcar symbol-name nil] 10 (#$ . 115611)]) | |
| 755 | #@219 Parse and load current buffer's snippet definition into TABLE. | |
| 756 | TABLE is a symbol name passed to `yas--table-get-create'. When | |
| 757 | called interactively, prompt for the table name. | |
| 758 | Return the `yas--template' object created | |
| 759 | (defalias 'yas-load-snippet-buffer #[(table &optional interactive) "\2030 \306\307\310! >\204 \311\312\313D\"\210\314H!\310! >\204( \311\312\313D\"\210\315H\"\210\202L \n\204< \316\302!\210\317 !\320\f! \316\300!\210\306\307 !\f\") \203\255 \321\322\323\310! >\204b \311\312\313D\"\210\322H\310\211! >\204u \311\312\313D\"\210\315H!>\204\227 \311\312\324\310! >\204\221 \311\312\313D\"\210\315HD\"\210\310! >\204\246 \311\312\313D\"\210\315H\325H$\210\207" [yas--editing-template cl-struct-yas--template-tags yas--guessed-modes buffer-file-name table interactive yas--define-snippets-1 yas--parse-template type-of signal wrong-type-argument yas--template 6 13 make-local-variable yas--compute-major-mode-and-parents yas--table-get-create yas--message 3 "Snippet \"%s\" loaded for %s." yas--table 1 cl-struct-yas--table-tags] 11 (#$ . 116133) (list (yas--read-table) t)]) | |
| 760 | #@47 Added to `after-save-hook' in `snippet-mode'. | |
| 761 | (defalias 'yas-maybe-load-snippet-buffer #[nil "\306\307\310\311!!!!\312\313\314 !\315\n!#\316 !\f>\204# \317\320\321 D\"\210 \322H \2033 \323 \"\202H \324\316 !\f>\204C \317\320\321 D\"\210 \325H \"\232?\205Q \326 \327\"+\207" [default-directory mode buffer-file-name current-snippet cl-struct-yas--template-tags uuid intern file-name-sans-extension file-name-nondirectory directory-file-name apply yas--define-snippets-2 yas--table-get-create yas--parse-template type-of signal wrong-type-argument yas--template 9 yas--get-template-by-uuid yas--lookup-snippet-1 3 yas-load-snippet-buffer t] 6 (#$ . 117253)]) | |
| 762 | #@376 Load and save the snippet, then `quit-window' if saved. | |
| 763 | Loading is performed by `yas-load-snippet-buffer'. If the | |
| 764 | snippet is new, ask the user whether (and where) to save it. If | |
| 765 | the snippet already has a file, just save it. | |
| 766 | ||
| 767 | The prefix argument KILL is passed to `quit-window'. | |
| 768 | ||
| 769 | Don't use this from a Lisp program, call `yas-load-snippet-buffer' | |
| 770 | and `kill-buffer' instead. | |
| 771 | (defalias 'yas-load-snippet-buffer-and-close #[(table &optional kill) "\306\307\"\310 \203\240 \311\312\313\314\211 !\n>\204 \315\316\317 D\"\210 \320H! >\204> \315\316\321\314 !\n>\2048 \315\316\317 D\"\210 \320HD\"\210\314 !\n>\204M \315\316\317 D\"\210 \320H\322H\"!\203\240 \323\314 !\n>\204g \315\316\317 D\"\210 \320H!@A@\314 !\n>\204} \315\316\317 D\"\210 \324H \204\234 \f\203\234 \325\326\327\211\211\f% \330\331 !\307\"\210\332 \210*\333 !)\207" [table template cl-struct-yas--template-tags cl-struct-yas--table-tags default-file-name default-directory yas-load-snippet-buffer t buffer-modified-p y-or-n-p format "[yas] Loaded for %s. Also save snippet buffer?" type-of signal wrong-type-argument yas--template 13 yas--table 1 yas--guess-snippet-directories 3 read-file-name "File to save snippet in: " nil rename-buffer file-name-nondirectory save-buffer quit-window buffer-file-name kill] 10 (#$ . 117923) (list (yas--read-table) current-prefix-arg)]) | |
| 772 | #@109 Test current buffer's snippet template in other buffer. | |
| 773 | DEBUG is for debugging the YASnippet engine itself. | |
| 774 | (defalias 'yas-tryout-snippet #[(&optional debug) "\306!\307 @\203 \310 @!\203 @\206$ @\206$ \311\312\313\314!!! \n\205G \310\f!\205G \315\316\n@\nA@\317\n8\320\321\n8\320\211\211\211\211\211\211\211&\211 \203\317 \322\323\324 !(>\204^ \325\326\316 D\"\210 \327H\" )\330\331)!!\210\332\331)!!\210\320*\3331 \f 0\202\203 \210\202\204 \210\334\335!\210\320+\336\324 !(>\204\234 \325\326\316 D\"\210 \317Hed\324 !(>\204\261 \325\326\316 D\"\210 \321H$\210,\205\313 \337\340\320\341#\205\313 \342\343\344\"\210\345\343!)\202\323 \346\335\347\",\207" [buffer-file-name major-mode-and-parent parsed yas--guessed-modes test-mode yas--current-template yas--compute-major-mode-and-parents yas--parse-template fboundp intern read-from-minibuffer yas--format "Please input a mode: " record yas--template 2 nil 5 format "*testing snippet: %s*" type-of signal wrong-type-argument 3 kill-buffer get-buffer-create switch-to-buffer (error) yas-minor-mode 1 yas-expand-snippet require yasnippet-debug t yas-debug-snippets "*YASnippet trace*" snippet-navigation display-buffer yas--message "Cannot test snippet for unknown major mode" cl-struct-yas--template-tags buffer-name buffer-undo-list buffer-read-only debug] 16 (#$ . 119278) "P"]) | |
| 775 | #@62 Return all active trigger keys for current buffer and point. | |
| 776 | (defalias 'yas-active-keys #[nil "\300\301\302\303\304\305 \"\"\306\307#\207" [cl-remove-duplicates cl-remove-if-not stringp cl-mapcan yas--table-all-keys yas--get-snippet-tables :test string=] 6 (#$ . 120632)]) | |
| 777 | (defalias 'yas--template-fine-group #[(template) "\302\303! >\204 \304\305\306D\"\210\307H\206( \303! >\204% \304\305\306D\"\210\310H!@\207" [template cl-struct-yas--template-tags last type-of signal wrong-type-argument yas--template 11 12] 5]) | |
| 778 | #@37 Display snippet tables by NAMEHASH. | |
| 779 | (defalias 'yas-describe-table-by-namehash #[nil "r\302\303!q\210\304\305 \210\306c\210\307\310 \"\210)\311\312!\210\312b\210\313p!)\207" [inhibit-read-only yas--tables get-buffer-create "*YASnippet Tables by NAMEHASH*" t erase-buffer "YASnippet tables by NAMEHASH: \n" maphash #[(_mode table) "\302\303\304! >\204 \305\306\307D\"\210\310H\"c\210\311\312\304! >\204( \305\306\307D\"\210\313H\"\207" [table cl-struct-yas--table-tags format "\nSnippet table `%s':\n\n" type-of signal wrong-type-argument yas--table 1 maphash #[(key _v) "\304\305\306\307\310\311\312\n! >\204 \313\314\315\nD\"\210\n\316H\"\"\210 )#c\207" [key names table cl-struct-yas--table-tags format " key %s maps snippets: %s\n" nil maphash #[(k _v) " B\211\207" [k names] 2] gethash type-of signal wrong-type-argument yas--table 2] 11] 2] 6] view-mode 1 display-buffer] 3 (#$ . 121163) nil]) | |
| 780 | #@34 Display snippets for each table. | |
| 781 | (defalias 'yas-describe-tables #[(&optional with-nonactive) "p\306 r\307\310!q\210\311 \203 \312\313\f\"\210\314 \210\315c\210\316 \211 \2037 @\317 \"\210A\211\204% *\320 \210)\321 \210\322b\210\323p!+\207" [tables original-buffer inhibit-read-only with-nonactive yas--tables table yas--get-snippet-tables get-buffer-create "*YASnippet Tables*" t maphash #[(_k v) "\303 \n\"\203 \n\202 \nB\211)\207" [v #1=#:var tables memql] 3] erase-buffer "YASnippet tables:\n" nil yas--describe-pretty-table yas--create-snippet-xrefs help-mode 1 display-buffer --dolist-tail--] 4 (#$ . 122083) "P"]) | |
| 782 | (defalias 'yas--describe-pretty-table #[(table &optional original-buffer) "\303\304\305! >\204 \306\307\310D\"\210\311H\"c\210\305! >\204& \306\307\310D\"\210\312H\203I \303\313\314\315\305! >\204? \306\307\310D\"\210\312H\"\"c\210\202L \316c\210\317\320\321\"\316\261\210\322c\210\323\324\325\"\326\327\305! >\204m \306\307\310D\"\210\330H\"\210\326\331\n\")\207" [table cl-struct-yas--table-tags groups-hash format "\nSnippet table `%s'" type-of signal wrong-type-argument yas--table 1 4 " parents: %s\n" mapcar yas--table-name "\n" make-string 100 45 "group state name key binding\n" make-hash-table :test equal maphash #[(_k v) "\304!\206 \305\306!\n>\204 \307\310\311D\"\210\312H\205' \313 \314 \"B #)\207" [v group cl-struct-yas--template-tags groups-hash yas--template-fine-group "(top level)" type-of signal wrong-type-argument yas--template 3 puthash gethash] 6] 3 #[(group templates) "\306\307\310\311\312%\313\314\315\"\316\261\210 \317\211\205\344 @\306\320\321\322\323\n!\f>\204. \324\325\326\nD\"\210\n\327H\"\330\n#\331\310\311\312% \313G\311\"\323\n!\f>\204R \324\325\326\nD\"\210\n\332H\211 (\203u )\203u r)q\210\333(!\203p \334\202q \335)\202v \336) *\337\323\n!\f>\204\211 \324\325\326\nD\"\210\n\340H!\211 +\341\230?\205\227 \311 ,\342*\342 \343\344 \"\203\252 \345\202\253 \342\342\306\323\n!\f>\204\274 \324\325\326\nD\"\210\n\346H\206\303 \341\347\310,\312%,\206\317 \341\306+\347\310\317\312%\316\261 \210- A\211\204 \317*\207" [group templates p --dolist-tail-- cl-struct-yas--template-tags name truncate-string-to-width 25 0 32 "..." make-string 100 45 "\n" nil propertize format "\\\\snippet `%s'" type-of signal wrong-type-argument yas--template 3 yasnippet 50 4 yas--eval-condition "(y)" "(s)" "(a)" key-description 8 "" " " string-match "\\.\\.\\.$" "'" 1 15 condition original-buffer condition-string key-description-string template-key-padding] 16]] 8]) | |
| 783 | #@186 As `yas-key-syntaxes' element, look for whitespace delimited key. | |
| 784 | ||
| 785 | A newline will be considered whitespace even if the mode syntax | |
| 786 | marks it as something else (typically comment ender). | |
| 787 | (defalias 'yas-try-key-from-whitespace #[(_start-point) "\300\301x\207" ["^[:space:]\n" nil] 2 (#$ . 124726)]) | |
| 788 | #@67 Like `yas-longest-key-from-whitespace' but take the shortest key. | |
| 789 | (defalias 'yas-shortest-key-until-whitespace #[(_start-point) "\300`Sx\301U?\205 \302\207" ["^[:space:]\n" 0 again] 2 (#$ . 125028)]) | |
| 790 | #@202 As `yas-key-syntaxes' element, look for longest key between point and whitespace. | |
| 791 | ||
| 792 | A newline will be considered whitespace even if the mode syntax | |
| 793 | marks it as something else (typically comment ender). | |
| 794 | (defalias 'yas-longest-key-from-whitespace #[(start-point) "`U\203 \301!\210\202 \302u\210`TX?\205 \303\207" [start-point yas-try-key-from-whitespace nil again] 2 (#$ . 125236)]) | |
| 795 | #@63 Non-nil if field has been modified by user or transformation. | |
| 796 | (defvar yas-modified-p nil (#$ . 125628)) | |
| 797 | #@41 Non-nil if user is about to exit field. | |
| 798 | (defvar yas-moving-away-p nil (#$ . 125738)) | |
| 799 | #@30 Contains current field text. | |
| 800 | (defvar yas-text nil (#$ . 125829)) | |
| 801 | #@166 Search PATTERN in STR and return SUBEXPth match. | |
| 802 | ||
| 803 | If found, the content of subexp group SUBEXP (default 0) is | |
| 804 | returned, or else the original STR will be returned. | |
| 805 | (defalias 'yas-substr #[(str pattern &optional subexp) "\206 \305\306 \307\216\310 \f\"\203 \311 \f\"\202 \f+\207" [subexp grp save-match-data-internal pattern str 0 match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match match-string-no-properties] 3 (#$ . 125901)]) | |
| 806 | #@114 Prompt for a string in POSSIBILITIES and return it. | |
| 807 | ||
| 808 | The last element of POSSIBILITIES may be a list of strings. | |
| 809 | (defalias 'yas-choose-value #[(&rest possibilities) "\206 ?\205$ \306\n!\211@\211 <\203 \f@\240\210 \fA\241\210*\307\310 \"\207" [yas-moving-away-p yas-modified-p possibilities last-link last-elem yas-prompt-functions last cl-some #[(fn) "\302 \"\207" [fn possibilities "Choose: "] 3]] 4 (#$ . 126394)]) | |
| 810 | #@276 A snippet-aware version of `completing-read'. | |
| 811 | This can be used to query the user for the initial value of a | |
| 812 | snippet field. The arguments are the same as `completing-read'. | |
| 813 | ||
| 814 | (fn PROMPT COLLECTION &optional PREDICATE REQUIRE-MATCH INITIAL-INPUT HIST DEF INHERIT-INPUT-METHOD) | |
| 815 | (defalias 'yas-completing-read #[(&rest args) "\206 ?\205 \303\304\n\"\207" [yas-moving-away-p yas-modified-p args apply completing-read] 3 (#$ . 126825)]) | |
| 816 | #@29 Helper for `yas-auto-next'. | |
| 817 | (defalias 'yas--auto-next #[nil "\300\301\302\303#\210\304 \207" [remove-hook post-command-hook yas--auto-next t yas-next-field] 4 (#$ . 127266)]) | |
| 818 | #@58 Automatically advance to next field after eval'ing BODY. | |
| 819 | (defalias 'yas-auto-next '(macro . #[(&rest body) "\301\302\303\304\305\"BE\207" [body unless yas-moving-away-p prog1 append ((add-hook 'post-command-hook #'yas--auto-next nil t))] 6 (#$ . 127447)])) | |
| 820 | (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put yas-auto-next lisp-indent-function 0 put edebug-form-spec t] 5) | |
| 821 | (defalias 'yas-key-to-value #[(alist) "\206 ?\205! \304\305!\211;\205 \306\n \307\310\311\312&A\206 \n)\207" [yas-moving-away-p yas-modified-p key alist read-key-sequence "" cl-find :key car :test string=] 8]) | |
| 822 | #@49 Signal `yas-exception' with TEXT as the reason. | |
| 823 | (defalias 'yas-throw #[(text) "\301\302C\"\207" [text signal yas-exception] 3 (#$ . 128058)]) | |
| 824 | (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put yas-exception error-conditions (error yas-exception) error-message "[yas] Exception"] 4) | |
| 825 | #@92 Verify that the current field value is in POSSIBILITIES. | |
| 826 | Otherwise signal `yas-exception'. | |
| 827 | (defalias 'yas-verify-value #[(possibilities) "\205 \n\235?\205 \303\304\305\n\"!\207" [yas-moving-away-p yas-text possibilities yas-throw format "Field only allows %s"] 4 (#$ . 128357)]) | |
| 828 | #@120 Get the string for field with NUMBER. | |
| 829 | ||
| 830 | Use this in primary and mirror transformations to get the text of | |
| 831 | other fields. | |
| 832 | (defalias 'yas-field-value #[(number) "\303 @\211\205\f \304 \"\211\205 \305\n!*\207" [snippet number field yas-active-snippets yas--snippet-find-field yas--field-text-for-display] 4 (#$ . 128647)]) | |
| 833 | #@62 Return `yas-text' if that exists and is non-empty, else nil. | |
| 834 | (defalias 'yas-text #[nil "\205\f \301\230?\205\f \207" [yas-text ""] 2 (#$ . 128975)]) | |
| 835 | #@71 Return `yas-selected-text' if that exists and is non-empty, else nil. | |
| 836 | (defalias 'yas-selected-text #[nil "\205\f \301\230?\205\f \207" [yas-selected-text ""] 2 (#$ . 129133)]) | |
| 837 | (defalias 'yas--get-field-once #[(number &optional transform-fn) "?\205 \203 \303\n!!\207\303\n!\207" [yas-modified-p transform-fn number yas-field-value] 3]) | |
| 838 | (defalias 'yas-default-from-field #[(number) "?\205 \302 !\207" [yas-modified-p number yas-field-value] 2]) | |
| 839 | #@72 Return non-nil if the point is inside a string according to font-lock. | |
| 840 | (defalias 'yas-inside-string #[nil "\300`S\301\"\302\232\207" [get-char-property face font-lock-string-face] 3 (#$ . 129592)]) | |
| 841 | (defalias 'yas-unimplemented #[(&optional missing-feature) "\203 \302\303\304 \206\f \305\"!\205 \306!\207\307\310 \206 \305\"\207" [yas--current-template missing-feature y-or-n-p format "This snippet is unimplemented (missing %s) Visit the snippet definition? " "something" yas--visit-snippet-file-1 message "No implementation. Missing %s"] 4]) | |
| 842 | #@38 Overlays the currently active field. | |
| 843 | (defvar yas--active-field-overlay nil (#$ . 130147)) | |
| 844 | #@35 List of currently active snippets | |
| 845 | (defvar yas--active-snippets nil (#$ . 130243)) | |
| 846 | (make-variable-buffer-local 'yas--active-snippets) | |
| 847 | #@48 Two overlays protect the current active field. | |
| 848 | (defvar yas--field-protection-overlays nil (#$ . 130382)) | |
| 849 | #@60 The selected region deleted on the last snippet expansion. | |
| 850 | (defvar yas-selected-text nil (#$ . 130493)) | |
| 851 | #@49 The column where the snippet expansion started. | |
| 852 | (defvar yas--start-column nil (#$ . 130603)) | |
| 853 | (byte-code "\300\301!\210\300\302!\210\303\301\304\305#\210\303\302\304\305#\207" [make-variable-buffer-local yas--active-field-overlay yas--field-protection-overlays put permanent-local t] 4) | |
| 854 | #@47 compiler-macro for inlining `yas--snippet-p'. | |
| 855 | (defalias 'yas--snippet-p--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--snippet-p (and (memq (type-of cl-x) cl-struct-yas--snippet-tags) t)) nil] 7 (#$ . 130895)]) | |
| 856 | (put 'yas--snippet-p 'compiler-macro 'yas--snippet-p--cmacro) | |
| 857 | (defalias 'yas--snippet-p #[(cl-x) "\302! >\205 \303\207" [cl-x cl-struct-yas--snippet-tags type-of t] 2]) | |
| 858 | (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put yas--snippet-p side-effect-free error-free put yas--snippet cl-deftype-satisfies] 5) | |
| 859 | #@56 compiler-macro for inlining `yas--snippet-expand-env'. | |
| 860 | (defalias 'yas--snippet-expand-env--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--snippet-expand-env (or (yas--snippet-p cl-x) (signal 'wrong-type-argument (list 'yas--snippet cl-x))) (aref cl-x 1)) nil] 7 (#$ . 131500)]) | |
| 861 | (put 'yas--snippet-expand-env 'compiler-macro 'yas--snippet-expand-env--cmacro) | |
| 862 | #@105 Access slot "expand-env" of `(yas--snippet (:constructor yas--make-snippet (expand-env)))' struct CL-X. | |
| 863 | (defalias 'yas--snippet-expand-env #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--snippet-tags type-of signal wrong-type-argument yas--snippet 1] 4 (#$ . 131930)]) | |
| 864 | (byte-code "\300\301\302\303#\300\207" [function-put yas--snippet-expand-env side-effect-free t] 4) | |
| 865 | #@52 compiler-macro for inlining `yas--snippet-fields'. | |
| 866 | (defalias 'yas--snippet-fields--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--snippet-fields (or (yas--snippet-p cl-x) (signal 'wrong-type-argument (list 'yas--snippet cl-x))) (aref cl-x 2)) nil] 7 (#$ . 132334)]) | |
| 867 | (put 'yas--snippet-fields 'compiler-macro 'yas--snippet-fields--cmacro) | |
| 868 | #@101 Access slot "fields" of `(yas--snippet (:constructor yas--make-snippet (expand-env)))' struct CL-X. | |
| 869 | (defalias 'yas--snippet-fields #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--snippet-tags type-of signal wrong-type-argument yas--snippet 2] 4 (#$ . 132744)]) | |
| 870 | (byte-code "\300\301\302\303#\300\207" [function-put yas--snippet-fields side-effect-free t] 4) | |
| 871 | #@50 compiler-macro for inlining `yas--snippet-exit'. | |
| 872 | (defalias 'yas--snippet-exit--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--snippet-exit (or (yas--snippet-p cl-x) (signal 'wrong-type-argument (list 'yas--snippet cl-x))) (aref cl-x 3)) nil] 7 (#$ . 133136)]) | |
| 873 | (put 'yas--snippet-exit 'compiler-macro 'yas--snippet-exit--cmacro) | |
| 874 | #@99 Access slot "exit" of `(yas--snippet (:constructor yas--make-snippet (expand-env)))' struct CL-X. | |
| 875 | (defalias 'yas--snippet-exit #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--snippet-tags type-of signal wrong-type-argument yas--snippet 3] 4 (#$ . 133535)]) | |
| 876 | (byte-code "\300\301\302\303#\300\207" [function-put yas--snippet-exit side-effect-free t] 4) | |
| 877 | #@48 compiler-macro for inlining `yas--snippet-id'. | |
| 878 | (defalias 'yas--snippet-id--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--snippet-id (or (yas--snippet-p cl-x) (signal 'wrong-type-argument (list 'yas--snippet cl-x))) (aref cl-x 4)) nil] 7 (#$ . 133921)]) | |
| 879 | (put 'yas--snippet-id 'compiler-macro 'yas--snippet-id--cmacro) | |
| 880 | #@97 Access slot "id" of `(yas--snippet (:constructor yas--make-snippet (expand-env)))' struct CL-X. | |
| 881 | (defalias 'yas--snippet-id #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--snippet-tags type-of signal wrong-type-argument yas--snippet 4] 4 (#$ . 134310)]) | |
| 882 | (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put yas--snippet-id side-effect-free t gv-expander #[(_cl-do _cl-x) "\300\301\302\"\207" [error "%s is a read-only slot" yas--snippet-id] 3]] 5) | |
| 883 | #@61 compiler-macro for inlining `yas--snippet-control-overlay'. | |
| 884 | (defalias 'yas--snippet-control-overlay--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--snippet-control-overlay (or (yas--snippet-p cl-x) (signal 'wrong-type-argument (list 'yas--snippet cl-x))) (aref cl-x 5)) nil] 7 (#$ . 134809)]) | |
| 885 | (put 'yas--snippet-control-overlay 'compiler-macro 'yas--snippet-control-overlay--cmacro) | |
| 886 | #@110 Access slot "control-overlay" of `(yas--snippet (:constructor yas--make-snippet (expand-env)))' struct CL-X. | |
| 887 | (defalias 'yas--snippet-control-overlay #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--snippet-tags type-of signal wrong-type-argument yas--snippet 5] 4 (#$ . 135264)]) | |
| 888 | (byte-code "\300\301\302\303#\300\207" [function-put yas--snippet-control-overlay side-effect-free t] 4) | |
| 889 | #@58 compiler-macro for inlining `yas--snippet-active-field'. | |
| 890 | (defalias 'yas--snippet-active-field--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--snippet-active-field (or (yas--snippet-p cl-x) (signal 'wrong-type-argument (list 'yas--snippet cl-x))) (aref cl-x 6)) nil] 7 (#$ . 135683)]) | |
| 891 | (put 'yas--snippet-active-field 'compiler-macro 'yas--snippet-active-field--cmacro) | |
| 892 | #@107 Access slot "active-field" of `(yas--snippet (:constructor yas--make-snippet (expand-env)))' struct CL-X. | |
| 893 | (defalias 'yas--snippet-active-field #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--snippet-tags type-of signal wrong-type-argument yas--snippet 6] 4 (#$ . 136123)]) | |
| 894 | (byte-code "\300\301\302\303#\300\207" [function-put yas--snippet-active-field side-effect-free t] 4) | |
| 895 | #@67 compiler-macro for inlining `yas--snippet-previous-active-field'. | |
| 896 | (defalias 'yas--snippet-previous-active-field--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--snippet-previous-active-field (or (yas--snippet-p cl-x) (signal 'wrong-type-argument (list 'yas--snippet cl-x))) (aref cl-x 7)) nil] 7 (#$ . 136533)]) | |
| 897 | (put 'yas--snippet-previous-active-field 'compiler-macro 'yas--snippet-previous-active-field--cmacro) | |
| 898 | #@116 Access slot "previous-active-field" of `(yas--snippet (:constructor yas--make-snippet (expand-env)))' struct CL-X. | |
| 899 | (defalias 'yas--snippet-previous-active-field #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--snippet-tags type-of signal wrong-type-argument yas--snippet 7] 4 (#$ . 137018)]) | |
| 900 | (byte-code "\300\301\302\303#\300\207" [function-put yas--snippet-previous-active-field side-effect-free t] 4) | |
| 901 | #@56 compiler-macro for inlining `yas--snippet-force-exit'. | |
| 902 | (defalias 'yas--snippet-force-exit--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--snippet-force-exit (or (yas--snippet-p cl-x) (signal 'wrong-type-argument (list 'yas--snippet cl-x))) (aref cl-x 8)) nil] 7 (#$ . 137455)]) | |
| 903 | (put 'yas--snippet-force-exit 'compiler-macro 'yas--snippet-force-exit--cmacro) | |
| 904 | #@105 Access slot "force-exit" of `(yas--snippet (:constructor yas--make-snippet (expand-env)))' struct CL-X. | |
| 905 | (defalias 'yas--snippet-force-exit #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--snippet-tags type-of signal wrong-type-argument yas--snippet 8] 4 (#$ . 137885)]) | |
| 906 | (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put yas--snippet-force-exit side-effect-free t defalias copy-yas--snippet copy-sequence] 4) | |
| 907 | #@168 compiler-macro for inlining `make-yas--snippet'. | |
| 908 | ||
| 909 | (fn CL-WHOLE &cl-quote &key EXPAND-ENV FIELDS EXIT ID CONTROL-OVERLAY ACTIVE-FIELD PREVIOUS-ACTIVE-FIELD FORCE-EXIT) | |
| 910 | (defalias 'make-yas--snippet--cmacro #[(cl-whole &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"\206 \311A@\306\312\"A@\306\313\"\206! \314A@ \306\315\"A@ \306\316\"A@ \306\317\"A@ \306\320\"A@ \203v @\321>\203] AA\211 \202H \322>A@\203l \323\211 \202H \324\325 @\"\210\202F )\326\327\330\323 \323 \n \f & .\207" [#1# expand-env fields exit id control-overlay plist-member :expand-env :fields (nil 'nil) :exit :id (nil (yas--snippet-next-id)) :control-overlay :active-field :previous-active-field :force-exit (:expand-env :fields :exit :id :control-overlay :active-field :previous-active-field :force-exit :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:expand-env :fields :exit :id :control-overlay :active-field :previous-active-field :force-exit)" cl--defsubst-expand (expand-env fields exit id control-overlay active-field previous-active-field force-exit) (cl-block make-yas--snippet (record 'yas--snippet expand-env fields exit id control-overlay active-field previous-active-field force-exit)) active-field previous-active-field force-exit #2=#:--cl-keys-- cl-whole] 15 (#$ . 138341)]) | |
| 911 | (put 'make-yas--snippet 'compiler-macro 'make-yas--snippet--cmacro) | |
| 912 | #@148 Constructor for objects of type `yas--snippet'. | |
| 913 | ||
| 914 | (fn &key EXPAND-ENV FIELDS EXIT ID CONTROL-OVERLAY ACTIVE-FIELD PREVIOUS-ACTIVE-FIELD FORCE-EXIT) | |
| 915 | (defalias 'make-yas--snippet #[(&rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"\206 \311A@\306\312\"A@\306\313\"\206$ \314\315 DA@ \306\316\"A@ \306\317\"A@ \306\320\"A@ \306\321\"A@ \203y @\322>\203` AA\211\202K \323>A@\203o \314\211\202K \324\325@\"\210\202I )\326\327 \n \f & .\207" [#1# expand-env fields exit id control-overlay plist-member :expand-env :fields (nil nil) :exit :id nil yas--snippet-next-id :control-overlay :active-field :previous-active-field :force-exit (:expand-env :fields :exit :id :control-overlay :active-field :previous-active-field :force-exit :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:expand-env :fields :exit :id :control-overlay :active-field :previous-active-field :force-exit)" record yas--snippet active-field previous-active-field force-exit #2=#:--cl-keys--] 11 (#$ . 139745)]) | |
| 916 | #@50 compiler-macro for inlining `yas--make-snippet'. | |
| 917 | (defalias 'yas--make-snippet--cmacro #[(_cl-whole-arg expand-env) "\301\302\303\304\211\211&\207" [expand-env cl--defsubst-expand (expand-env) (cl-block yas--make-snippet (record 'yas--snippet expand-env 'nil nil (yas--snippet-next-id) nil nil nil nil)) nil] 7 (#$ . 140787)]) | |
| 918 | (put 'yas--make-snippet 'compiler-macro 'yas--make-snippet--cmacro) | |
| 919 | #@49 Constructor for objects of type `yas--snippet'. | |
| 920 | (defalias 'yas--make-snippet #[(expand-env) "\301\302\303\211\304 \303\211\211\211& \207" [expand-env record yas--snippet nil yas--snippet-next-id] 10 (#$ . 141189)]) | |
| 921 | (cl-struct-define 'yas--snippet "A snippet.\n\n..." 'cl-structure-object 'record nil '((cl-tag-slot) (expand-env) (fields 'nil) (exit nil) (id (yas--snippet-next-id) :read-only t) (control-overlay nil) (active-field) (previous-active-field) (force-exit)) 'cl-struct-yas--snippet-tags 'yas--snippet t) | |
| 922 | #@45 compiler-macro for inlining `yas--field-p'. | |
| 923 | (defalias 'yas--field-p--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--field-p (and (memq (type-of cl-x) cl-struct-yas--field-tags) t)) nil] 7 (#$ . 141712)]) | |
| 924 | (put 'yas--field-p 'compiler-macro 'yas--field-p--cmacro) | |
| 925 | (defalias 'yas--field-p #[(cl-x) "\302! >\205 \303\207" [cl-x cl-struct-yas--field-tags type-of t] 2]) | |
| 926 | (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put yas--field-p side-effect-free error-free put yas--field cl-deftype-satisfies] 5) | |
| 927 | #@50 compiler-macro for inlining `yas--field-number'. | |
| 928 | (defalias 'yas--field-number--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--field-number (or (yas--field-p cl-x) (signal 'wrong-type-argument (list 'yas--field cl-x))) (aref cl-x 1)) nil] 7 (#$ . 142297)]) | |
| 929 | (put 'yas--field-number 'compiler-macro 'yas--field-number--cmacro) | |
| 930 | #@116 Access slot "number" of `(yas--field (:constructor yas--make-field (number start end parent-field)))' struct CL-X. | |
| 931 | (defalias 'yas--field-number #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--field-tags type-of signal wrong-type-argument yas--field 1] 4 (#$ . 142693)]) | |
| 932 | (byte-code "\300\301\302\303#\300\207" [function-put yas--field-number side-effect-free t] 4) | |
| 933 | #@49 compiler-macro for inlining `yas--field-start'. | |
| 934 | (defalias 'yas--field-start--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--field-start (or (yas--field-p cl-x) (signal 'wrong-type-argument (list 'yas--field cl-x))) (aref cl-x 2)) nil] 7 (#$ . 143092)]) | |
| 935 | (put 'yas--field-start 'compiler-macro 'yas--field-start--cmacro) | |
| 936 | #@115 Access slot "start" of `(yas--field (:constructor yas--make-field (number start end parent-field)))' struct CL-X. | |
| 937 | (defalias 'yas--field-start #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--field-tags type-of signal wrong-type-argument yas--field 2] 4 (#$ . 143483)]) | |
| 938 | (byte-code "\300\301\302\303#\300\207" [function-put yas--field-start side-effect-free t] 4) | |
| 939 | #@47 compiler-macro for inlining `yas--field-end'. | |
| 940 | (defalias 'yas--field-end--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--field-end (or (yas--field-p cl-x) (signal 'wrong-type-argument (list 'yas--field cl-x))) (aref cl-x 3)) nil] 7 (#$ . 143879)]) | |
| 941 | (put 'yas--field-end 'compiler-macro 'yas--field-end--cmacro) | |
| 942 | #@113 Access slot "end" of `(yas--field (:constructor yas--make-field (number start end parent-field)))' struct CL-X. | |
| 943 | (defalias 'yas--field-end #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--field-tags type-of signal wrong-type-argument yas--field 3] 4 (#$ . 144260)]) | |
| 944 | (byte-code "\300\301\302\303#\300\207" [function-put yas--field-end side-effect-free t] 4) | |
| 945 | #@56 compiler-macro for inlining `yas--field-parent-field'. | |
| 946 | (defalias 'yas--field-parent-field--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--field-parent-field (or (yas--field-p cl-x) (signal 'wrong-type-argument (list 'yas--field cl-x))) (aref cl-x 4)) nil] 7 (#$ . 144650)]) | |
| 947 | (put 'yas--field-parent-field 'compiler-macro 'yas--field-parent-field--cmacro) | |
| 948 | #@122 Access slot "parent-field" of `(yas--field (:constructor yas--make-field (number start end parent-field)))' struct CL-X. | |
| 949 | (defalias 'yas--field-parent-field #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--field-tags type-of signal wrong-type-argument yas--field 4] 4 (#$ . 145076)]) | |
| 950 | (byte-code "\300\301\302\303#\300\207" [function-put yas--field-parent-field side-effect-free t] 4) | |
| 951 | #@51 compiler-macro for inlining `yas--field-mirrors'. | |
| 952 | (defalias 'yas--field-mirrors--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--field-mirrors (or (yas--field-p cl-x) (signal 'wrong-type-argument (list 'yas--field cl-x))) (aref cl-x 5)) nil] 7 (#$ . 145493)]) | |
| 953 | (put 'yas--field-mirrors 'compiler-macro 'yas--field-mirrors--cmacro) | |
| 954 | #@117 Access slot "mirrors" of `(yas--field (:constructor yas--make-field (number start end parent-field)))' struct CL-X. | |
| 955 | (defalias 'yas--field-mirrors #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--field-tags type-of signal wrong-type-argument yas--field 5] 4 (#$ . 145894)]) | |
| 956 | (byte-code "\300\301\302\303#\300\207" [function-put yas--field-mirrors side-effect-free t] 4) | |
| 957 | #@53 compiler-macro for inlining `yas--field-transform'. | |
| 958 | (defalias 'yas--field-transform--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--field-transform (or (yas--field-p cl-x) (signal 'wrong-type-argument (list 'yas--field cl-x))) (aref cl-x 6)) nil] 7 (#$ . 146296)]) | |
| 959 | (put 'yas--field-transform 'compiler-macro 'yas--field-transform--cmacro) | |
| 960 | #@119 Access slot "transform" of `(yas--field (:constructor yas--make-field (number start end parent-field)))' struct CL-X. | |
| 961 | (defalias 'yas--field-transform #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--field-tags type-of signal wrong-type-argument yas--field 6] 4 (#$ . 146707)]) | |
| 962 | (byte-code "\300\301\302\303#\300\207" [function-put yas--field-transform side-effect-free t] 4) | |
| 963 | #@54 compiler-macro for inlining `yas--field-modified-p'. | |
| 964 | (defalias 'yas--field-modified-p--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--field-modified-p (or (yas--field-p cl-x) (signal 'wrong-type-argument (list 'yas--field cl-x))) (aref cl-x 7)) nil] 7 (#$ . 147115)]) | |
| 965 | (put 'yas--field-modified-p 'compiler-macro 'yas--field-modified-p--cmacro) | |
| 966 | #@120 Access slot "modified-p" of `(yas--field (:constructor yas--make-field (number start end parent-field)))' struct CL-X. | |
| 967 | (defalias 'yas--field-modified-p #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--field-tags type-of signal wrong-type-argument yas--field 7] 4 (#$ . 147531)]) | |
| 968 | (byte-code "\300\301\302\303#\300\207" [function-put yas--field-modified-p side-effect-free t] 4) | |
| 969 | #@48 compiler-macro for inlining `yas--field-next'. | |
| 970 | (defalias 'yas--field-next--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--field-next (or (yas--field-p cl-x) (signal 'wrong-type-argument (list 'yas--field cl-x))) (aref cl-x 8)) nil] 7 (#$ . 147942)]) | |
| 971 | (put 'yas--field-next 'compiler-macro 'yas--field-next--cmacro) | |
| 972 | #@114 Access slot "next" of `(yas--field (:constructor yas--make-field (number start end parent-field)))' struct CL-X. | |
| 973 | (defalias 'yas--field-next #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--field-tags type-of signal wrong-type-argument yas--field 8] 4 (#$ . 148328)]) | |
| 974 | (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put yas--field-next side-effect-free t defalias copy-yas--field copy-sequence] 4) | |
| 975 | #@142 compiler-macro for inlining `make-yas--field'. | |
| 976 | ||
| 977 | (fn CL-WHOLE &cl-quote &key NUMBER START END PARENT-FIELD MIRRORS TRANSFORM MODIFIED-P NEXT) | |
| 978 | (defalias 'make-yas--field--cmacro #[(cl-whole &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@ \306\313\"\206$ \314A@ \306\315\"A@ \306\316\"A@ \306\317\"A@ \203r @\320>\203Y AA\211\202D \321>A@\203h \322\211\202D \323\324@\"\210\202B )\325\326\327\322 \322 \n \f & .\207" [#1# number start end parent-field mirrors plist-member :number :start :end :parent-field :mirrors (nil 'nil) :transform :modified-p :next (:number :start :end :parent-field :mirrors :transform :modified-p :next :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:number :start :end :parent-field :mirrors :transform :modified-p :next)" cl--defsubst-expand (number start end parent-field mirrors transform modified-p next) (cl-block make-yas--field (record 'yas--field number start end parent-field mirrors transform modified-p next)) transform modified-p next #2=#:--cl-keys-- cl-whole] 15 (#$ . 148771)]) | |
| 979 | (put 'make-yas--field 'compiler-macro 'make-yas--field--cmacro) | |
| 980 | #@122 Constructor for objects of type `yas--field'. | |
| 981 | ||
| 982 | (fn &key NUMBER START END PARENT-FIELD MIRRORS TRANSFORM MODIFIED-P NEXT) | |
| 983 | (defalias 'make-yas--field #[(&rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@ \306\313\"\206$ \314A@ \306\315\"A@ \306\316\"A@ \306\317\"A@ \203r @\320>\203Y AA\211\202D \321>A@\203h \322\211\202D \323\324@\"\210\202B )\325\326 \n \f & .\207" [#1# number start end parent-field mirrors plist-member :number :start :end :parent-field :mirrors (nil nil) :transform :modified-p :next (:number :start :end :parent-field :mirrors :transform :modified-p :next :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:number :start :end :parent-field :mirrors :transform :modified-p :next)" record yas--field transform modified-p next #2=#:--cl-keys--] 11 (#$ . 149956)]) | |
| 984 | (byte-code "\300\301\302\303#\300\207" [function-put make-yas--field side-effect-free t] 4) | |
| 985 | #@48 compiler-macro for inlining `yas--make-field'. | |
| 986 | (defalias 'yas--make-field--cmacro #[(_cl-whole-arg number start end parent-field) "\304\305\306\307\211\211 \n & \207" [number start end parent-field cl--defsubst-expand (number start end parent-field) (cl-block yas--make-field (record 'yas--field number start end parent-field 'nil nil nil nil)) nil] 10 (#$ . 150927)]) | |
| 987 | (put 'yas--make-field 'compiler-macro 'yas--make-field--cmacro) | |
| 988 | #@47 Constructor for objects of type `yas--field'. | |
| 989 | (defalias 'yas--make-field #[(number start end parent-field) "\304\305 \n \306\211\211\211& \207" [number start end parent-field record yas--field nil] 10 (#$ . 151367)]) | |
| 990 | (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \207" [function-put yas--make-field side-effect-free t cl-struct-define yas--field "A field.\n\nNUMBER is the field number.\nSTART and END are mostly buffer markers, but see \"apropos markers-to-points\".\nPARENT-FIELD is a `yas--field' this field is nested under, or nil.\nMIRRORS is a list of `yas--mirror's\nTRANSFORM is a lisp form.\nMODIFIED-P is a boolean set to true once user inputs text.\nNEXT is another `yas--field' or `yas--mirror' or `yas--exit'.\n" cl-structure-object record nil ((cl-tag-slot) (number) (start) (end) (parent-field) (mirrors 'nil) (transform nil) (modified-p nil) (next)) cl-struct-yas--field-tags] 11) | |
| 991 | #@46 compiler-macro for inlining `yas--mirror-p'. | |
| 992 | (defalias 'yas--mirror-p--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--mirror-p (and (memq (type-of cl-x) cl-struct-yas--mirror-tags) t)) nil] 7 (#$ . 152296)]) | |
| 993 | (put 'yas--mirror-p 'compiler-macro 'yas--mirror-p--cmacro) | |
| 994 | (defalias 'yas--mirror-p #[(cl-x) "\302! >\205 \303\207" [cl-x cl-struct-yas--mirror-tags type-of t] 2]) | |
| 995 | (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put yas--mirror-p side-effect-free error-free put yas--mirror cl-deftype-satisfies] 5) | |
| 996 | #@50 compiler-macro for inlining `yas--mirror-start'. | |
| 997 | (defalias 'yas--mirror-start--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--mirror-start (or (yas--mirror-p cl-x) (signal 'wrong-type-argument (list 'yas--mirror cl-x))) (aref cl-x 1)) nil] 7 (#$ . 152891)]) | |
| 998 | (put 'yas--mirror-start 'compiler-macro 'yas--mirror-start--cmacro) | |
| 999 | #@107 Access slot "start" of `(yas--mirror (:constructor yas--make-mirror (start end transform)))' struct CL-X. | |
| 1000 | (defalias 'yas--mirror-start #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--mirror-tags type-of signal wrong-type-argument yas--mirror 1] 4 (#$ . 153289)]) | |
| 1001 | (byte-code "\300\301\302\303#\300\207" [function-put yas--mirror-start side-effect-free t] 4) | |
| 1002 | #@48 compiler-macro for inlining `yas--mirror-end'. | |
| 1003 | (defalias 'yas--mirror-end--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--mirror-end (or (yas--mirror-p cl-x) (signal 'wrong-type-argument (list 'yas--mirror cl-x))) (aref cl-x 2)) nil] 7 (#$ . 153681)]) | |
| 1004 | (put 'yas--mirror-end 'compiler-macro 'yas--mirror-end--cmacro) | |
| 1005 | #@105 Access slot "end" of `(yas--mirror (:constructor yas--make-mirror (start end transform)))' struct CL-X. | |
| 1006 | (defalias 'yas--mirror-end #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--mirror-tags type-of signal wrong-type-argument yas--mirror 2] 4 (#$ . 154069)]) | |
| 1007 | (byte-code "\300\301\302\303#\300\207" [function-put yas--mirror-end side-effect-free t] 4) | |
| 1008 | #@54 compiler-macro for inlining `yas--mirror-transform'. | |
| 1009 | (defalias 'yas--mirror-transform--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--mirror-transform (or (yas--mirror-p cl-x) (signal 'wrong-type-argument (list 'yas--mirror cl-x))) (aref cl-x 3)) nil] 7 (#$ . 154455)]) | |
| 1010 | (put 'yas--mirror-transform 'compiler-macro 'yas--mirror-transform--cmacro) | |
| 1011 | #@111 Access slot "transform" of `(yas--mirror (:constructor yas--make-mirror (start end transform)))' struct CL-X. | |
| 1012 | (defalias 'yas--mirror-transform #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--mirror-tags type-of signal wrong-type-argument yas--mirror 3] 4 (#$ . 154873)]) | |
| 1013 | (byte-code "\300\301\302\303#\300\207" [function-put yas--mirror-transform side-effect-free t] 4) | |
| 1014 | #@57 compiler-macro for inlining `yas--mirror-parent-field'. | |
| 1015 | (defalias 'yas--mirror-parent-field--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--mirror-parent-field (or (yas--mirror-p cl-x) (signal 'wrong-type-argument (list 'yas--mirror cl-x))) (aref cl-x 4)) nil] 7 (#$ . 155277)]) | |
| 1016 | (put 'yas--mirror-parent-field 'compiler-macro 'yas--mirror-parent-field--cmacro) | |
| 1017 | #@114 Access slot "parent-field" of `(yas--mirror (:constructor yas--make-mirror (start end transform)))' struct CL-X. | |
| 1018 | (defalias 'yas--mirror-parent-field #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--mirror-tags type-of signal wrong-type-argument yas--mirror 4] 4 (#$ . 155710)]) | |
| 1019 | (byte-code "\300\301\302\303#\300\207" [function-put yas--mirror-parent-field side-effect-free t] 4) | |
| 1020 | #@49 compiler-macro for inlining `yas--mirror-next'. | |
| 1021 | (defalias 'yas--mirror-next--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--mirror-next (or (yas--mirror-p cl-x) (signal 'wrong-type-argument (list 'yas--mirror cl-x))) (aref cl-x 5)) nil] 7 (#$ . 156123)]) | |
| 1022 | (put 'yas--mirror-next 'compiler-macro 'yas--mirror-next--cmacro) | |
| 1023 | #@106 Access slot "next" of `(yas--mirror (:constructor yas--make-mirror (start end transform)))' struct CL-X. | |
| 1024 | (defalias 'yas--mirror-next #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--mirror-tags type-of signal wrong-type-argument yas--mirror 5] 4 (#$ . 156516)]) | |
| 1025 | (byte-code "\300\301\302\303#\300\207" [function-put yas--mirror-next side-effect-free t] 4) | |
| 1026 | #@50 compiler-macro for inlining `yas--mirror-depth'. | |
| 1027 | (defalias 'yas--mirror-depth--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--mirror-depth (or (yas--mirror-p cl-x) (signal 'wrong-type-argument (list 'yas--mirror cl-x))) (aref cl-x 6)) nil] 7 (#$ . 156905)]) | |
| 1028 | (put 'yas--mirror-depth 'compiler-macro 'yas--mirror-depth--cmacro) | |
| 1029 | #@107 Access slot "depth" of `(yas--mirror (:constructor yas--make-mirror (start end transform)))' struct CL-X. | |
| 1030 | (defalias 'yas--mirror-depth #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--mirror-tags type-of signal wrong-type-argument yas--mirror 6] 4 (#$ . 157303)]) | |
| 1031 | (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put yas--mirror-depth side-effect-free t defalias copy-yas--mirror copy-sequence] 4) | |
| 1032 | #@123 compiler-macro for inlining `make-yas--mirror'. | |
| 1033 | ||
| 1034 | (fn CL-WHOLE &cl-quote &key START END TRANSFORM PARENT-FIELD NEXT DEPTH) | |
| 1035 | (defalias 'make-yas--mirror--cmacro #[(cl-whole &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@ \306\313\"A@ \306\314\"A@ \203^ @\315>\203E AA\211\2020 \316>A@\203T \317\211\2020 \320\321@\"\210\202. )\322\323\324\317\317 \n \f & .\207" [#1# start end transform parent-field next plist-member :start :end :transform :parent-field :next :depth (:start :end :transform :parent-field :next :depth :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:start :end :transform :parent-field :next :depth)" cl--defsubst-expand (start end transform parent-field next depth) (cl-block make-yas--mirror (record 'yas--mirror start end transform parent-field next depth)) depth #2=#:--cl-keys-- cl-whole] 13 (#$ . 157746)]) | |
| 1036 | (put 'make-yas--mirror 'compiler-macro 'make-yas--mirror--cmacro) | |
| 1037 | #@103 Constructor for objects of type `yas--mirror'. | |
| 1038 | ||
| 1039 | (fn &key START END TRANSFORM PARENT-FIELD NEXT DEPTH) | |
| 1040 | (defalias 'make-yas--mirror #[(&rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@ \306\313\"A@ \306\314\"A@ \203^ @\315>\203E AA\211\2020 \316>A@\203T \317\211\2020 \320\321@\"\210\202. )\322\323 \n \f &.\207" [#1# start end transform parent-field next plist-member :start :end :transform :parent-field :next :depth (:start :end :transform :parent-field :next :depth :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:start :end :transform :parent-field :next :depth)" record yas--mirror depth #2=#:--cl-keys--] 9 (#$ . 158736)]) | |
| 1041 | (byte-code "\300\301\302\303#\300\207" [function-put make-yas--mirror side-effect-free t] 4) | |
| 1042 | #@49 compiler-macro for inlining `yas--make-mirror'. | |
| 1043 | (defalias 'yas--make-mirror--cmacro #[(_cl-whole-arg start end transform) "\303\304\305\306\211\211 \n&\207" [start end transform cl--defsubst-expand (start end transform) (cl-block yas--make-mirror (record 'yas--mirror start end transform nil nil nil)) nil] 9 (#$ . 159550)]) | |
| 1044 | (put 'yas--make-mirror 'compiler-macro 'yas--make-mirror--cmacro) | |
| 1045 | #@48 Constructor for objects of type `yas--mirror'. | |
| 1046 | (defalias 'yas--make-mirror #[(start end transform) "\303\304 \n\305\211\211&\207" [start end transform record yas--mirror nil] 8 (#$ . 159949)]) | |
| 1047 | (byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303& \207" [function-put yas--make-mirror side-effect-free t cl-struct-define yas--mirror "A mirror.\n\nSTART and END are mostly buffer markers, but see \"apropos markers-to-points\".\nTRANSFORM is a lisp form.\nPARENT-FIELD is a `yas--field' this mirror is nested under, or nil.\nNEXT is another `yas--field' or `yas--mirror' or `yas--exit'\nDEPTH is a count of how many nested mirrors can affect this mirror" cl-structure-object record nil ((cl-tag-slot) (start) (end) (transform nil) (parent-field) (next) (depth)) cl-struct-yas--mirror-tags] 11) | |
| 1048 | #@44 compiler-macro for inlining `yas--exit-p'. | |
| 1049 | (defalias 'yas--exit-p--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--exit-p (and (memq (type-of cl-x) cl-struct-yas--exit-tags) t)) nil] 7 (#$ . 160766)]) | |
| 1050 | (put 'yas--exit-p 'compiler-macro 'yas--exit-p--cmacro) | |
| 1051 | (defalias 'yas--exit-p #[(cl-x) "\302! >\205 \303\207" [cl-x cl-struct-yas--exit-tags type-of t] 2]) | |
| 1052 | (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put yas--exit-p side-effect-free error-free put yas--exit cl-deftype-satisfies] 5) | |
| 1053 | #@49 compiler-macro for inlining `yas--exit-marker'. | |
| 1054 | (defalias 'yas--exit-marker--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--exit-marker (or (yas--exit-p cl-x) (signal 'wrong-type-argument (list 'yas--exit cl-x))) (aref cl-x 1)) nil] 7 (#$ . 161341)]) | |
| 1055 | (put 'yas--exit-marker 'compiler-macro 'yas--exit-marker--cmacro) | |
| 1056 | #@91 Access slot "marker" of `(yas--exit (:constructor yas--make-exit (marker)))' struct CL-X. | |
| 1057 | (defalias 'yas--exit-marker #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--exit-tags type-of signal wrong-type-argument yas--exit 1] 4 (#$ . 161729)]) | |
| 1058 | (byte-code "\300\301\302\303#\300\207" [function-put yas--exit-marker side-effect-free t] 4) | |
| 1059 | #@47 compiler-macro for inlining `yas--exit-next'. | |
| 1060 | (defalias 'yas--exit-next--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block yas--exit-next (or (yas--exit-p cl-x) (signal 'wrong-type-argument (list 'yas--exit cl-x))) (aref cl-x 2)) nil] 7 (#$ . 162099)]) | |
| 1061 | (put 'yas--exit-next 'compiler-macro 'yas--exit-next--cmacro) | |
| 1062 | #@89 Access slot "next" of `(yas--exit (:constructor yas--make-exit (marker)))' struct CL-X. | |
| 1063 | (defalias 'yas--exit-next #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-yas--exit-tags type-of signal wrong-type-argument yas--exit 2] 4 (#$ . 162477)]) | |
| 1064 | (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put yas--exit-next side-effect-free t defalias copy-yas--exit copy-sequence] 4) | |
| 1065 | #@89 compiler-macro for inlining `make-yas--exit'. | |
| 1066 | ||
| 1067 | (fn CL-WHOLE &cl-quote &key MARKER NEXT) | |
| 1068 | (defalias 'make-yas--exit--cmacro #[(cl-whole &rest #1=#:--cl-rest--) "\305\306\"A@\305\307\"A@ \203: @\310>\203# AA\211\202 \311>A@\2031 \312\211\202 \313\314 @\"\210\202 )\315\316\317\312\f\312 \n&*\207" [#1# marker next #2=#:--cl-keys-- cl-whole plist-member :marker :next (:marker :next :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:marker :next)" cl--defsubst-expand (marker next) (cl-block make-yas--exit (record 'yas--exit marker next))] 9 (#$ . 162889)]) | |
| 1069 | (put 'make-yas--exit 'compiler-macro 'make-yas--exit--cmacro) | |
| 1070 | #@69 Constructor for objects of type `yas--exit'. | |
| 1071 | ||
| 1072 | (fn &key MARKER NEXT) | |
| 1073 | (defalias 'make-yas--exit #[(&rest #1=#:--cl-rest--) "\304\305\"A@\304\306\"A@ \203: @\307>\203# AA\211\202 \310>A@\2031 \311\211\202 \312\313 @\"\210\202 )\314\315 \n#*\207" [#1# marker next #2=#:--cl-keys-- plist-member :marker :next (:marker :next :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:marker :next)" record yas--exit] 5 (#$ . 163558)]) | |
| 1074 | (byte-code "\300\301\302\303#\300\207" [function-put make-yas--exit side-effect-free t] 4) | |
| 1075 | #@47 compiler-macro for inlining `yas--make-exit'. | |
| 1076 | (defalias 'yas--make-exit--cmacro #[(_cl-whole-arg marker) "\301\302\303\304\211\211&\207" [marker cl--defsubst-expand (marker) (cl-block yas--make-exit (record 'yas--exit marker nil)) nil] 7 (#$ . 164120)]) | |
| 1077 | (put 'yas--make-exit 'compiler-macro 'yas--make-exit--cmacro) | |
| 1078 | #@46 Constructor for objects of type `yas--exit'. | |
| 1079 | (defalias 'yas--make-exit #[(marker) "\301\302\303#\207" [marker record yas--exit nil] 4 (#$ . 164444)]) | |
| 1080 | (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put yas--make-exit side-effect-free t cl-struct-define yas--exit nil cl-structure-object record ((cl-tag-slot) (marker) (next)) cl-struct-yas--exit-tags] 11) | |
| 1081 | #@206 Evaluate BODY with bindings from ENV. | |
| 1082 | ENV is a lisp expression that evaluates to list of elements with | |
| 1083 | the form (VAR FORM), where VAR is a symbol and FORM is a lisp | |
| 1084 | expression that evaluates to its value. | |
| 1085 | (defalias 'yas--letenv '(macro . #[(env &rest body) "\303\304!\305 DC\306\307\310E\307\311E\nBBBE)\207" [envvar env body make-symbol "envvar" let cl-progv mapcar #'car (lambda (v-f) (eval (cadr v-f)))] 7 (#$ . 164847)])) | |
| 1086 | (byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put yas--letenv edebug-form-spec (form body) function-put lisp-indent-function 1] 4) | |
| 1087 | #@99 Apply FUN to all marker (sub)fields in SNIPPET. | |
| 1088 | Update each field with the result of calling FUN. | |
| 1089 | (defalias 'yas--snippet-map-markers #[(fun snippet) "\306! >\204 \307\310\311D\"\210\312H\313\211\203 @\306\n!\f>\204+ \307\310\314\nD\"\210\n\211 \312\306\n!\f>\204@ \307\310\314\nD\"\210\n\312H!I\210)\306\n!\f>\204V \307\310\314\nD\"\210\n\211 \315\306\n!\f>\204l \307\310\314\nD\"\210\n\315H!I\210)\306\n!\f>\204\202 \307\310\314\nD\"\210\n\316H\313 \211\203 @\306!>\204\243 \307\310\317D\"\210\211 \320\306!>\204\275 \307\310\317D\"\210\320H!I\210)\306!>\204\327 \307\310\317D\"\210\211 \312\306!>\204\361 \307\310\317D\"\210\312H!I\210) A\211\204\215 * A\211\204 *\306! >\204\307\310\311D\"\210\315H\211 \205T\306!>\2043\307\310\321D\"\210\211 \320\306!>\204M\307\310\321D\"\210\320H!I))\207" [snippet cl-struct-yas--snippet-tags field --dolist-tail-- cl-struct-yas--field-tags #1=#:v type-of signal wrong-type-argument yas--snippet 2 nil yas--field 3 5 yas--mirror 1 yas--exit fun #2=#:v mirror cl-struct-yas--mirror-tags #3=#:v #4=#:v snippet-exit cl-struct-yas--exit-tags #5=#:v] 8 (#$ . 165429)]) | |
| 1090 | #@50 Return non-nil if SNIPPET hasn't been committed. | |
| 1091 | (defalias 'yas--snippet-live-p #[(snippet) "\3012 \302\303\"\210\3040\207" [snippet live yas--snippet-map-markers #[(m) "\301!\203 \207\302\303\304\"\207" [m markerp throw live nil] 3] t] 3 (#$ . 166628)]) | |
| 1092 | #@211 Calculate transformed string for FIELD-OR-MIRROR from FIELD. | |
| 1093 | ||
| 1094 | If there is no transform for ht field, return nil. | |
| 1095 | ||
| 1096 | If there is a transform but it returns nil, return the empty | |
| 1097 | string iff EMPTY-ON-NIL-P is true. | |
| 1098 | (defalias 'yas--apply-transform #[(field-or-mirror field &optional empty-on-nil-p) "\306!\307!\n>\204 \310\311\312D\"\210\313H\307\f! >\2034 \307\f! >\204. \310\311\314\fD\"\210\f\315H\202F \307\f!\n>\204C \310\311\312\fD\"\210\f\316H \307\f! >\203e \307\f! >\204_ \310\311\314\fD\"\210\f\317H\202w \307\f!\n>\204t \310\311\312\fD\"\210\f\320H \205\224 \212b\210\321!\211 \206\223 \205\223 \322*,\207" [field yas-text cl-struct-yas--field-tags yas-modified-p field-or-mirror cl-struct-yas--mirror-tags yas--field-text-for-display type-of signal wrong-type-argument yas--field 7 yas--mirror 3 6 1 2 yas--eval-for-string "" transform start-point ret empty-on-nil-p] 5 (#$ . 166895)]) | |
| 1099 | #@91 Replace all occurrences from FROM to TO. | |
| 1100 | ||
| 1101 | With optional string TEXT do it in that string. | |
| 1102 | (defalias 'yas--replace-all #[(from to &optional text) "\203 \303\304 !\n\305\211%\207eb\210\306 \307\305#\205# \310\n\305\211$\210\202 \207" [text from to replace-regexp-in-string regexp-quote t search-forward nil replace-match] 6 (#$ . 167811)]) | |
| 1103 | (put 'yas--replace-all 'byte-optimizer 'byte-compile-inline-expand) | |
| 1104 | (defalias 'yas--snippet-find-field #[(snippet number) "\302\303\304! >\204 \305\306\307D\"\210\310H\"\207" [snippet cl-struct-yas--snippet-tags cl-find-if #[(field) "\303 !\n>\204 \304\305\306 D\"\210 \307H=\207" [number field cl-struct-yas--field-tags type-of signal wrong-type-argument yas--field 1] 5] type-of signal wrong-type-argument yas--snippet 2] 6]) | |
| 1105 | #@49 Sort the fields of SNIPPET in navigation order. | |
| 1106 | (defalias 'yas--snippet-sort-fields #[(snippet) "\303! >\204 \304\305\306D\"\210\211\307\310\303! >\204# \304\305\306D\"\210\307H\311\"I)\207" [snippet cl-struct-yas--snippet-tags #1=#:v type-of signal wrong-type-argument yas--snippet 2 sort yas--snippet-field-compare] 8 (#$ . 168594)]) | |
| 1107 | #@185 Compare FIELD1 and FIELD2. | |
| 1108 | ||
| 1109 | The field with a number is sorted first. If they both have a | |
| 1110 | number, compare through the number. If neither have, compare | |
| 1111 | through the field's start point | |
| 1112 | (defalias 'yas--snippet-field-compare #[(field1 field2) "\305! >\204 \306\307\310D\"\210\311H\305\n! >\204! \306\307\310\nD\"\210\n\311H\211 \203H \203A \312U\206w \f\312U?\205w \f W\202w \f\312U?\202w \203R \312U\202w \305! >\204a \306\307\310D\"\210\313H\305\n! >\204s \306\307\310\nD\"\210\n\313HW*\207" [field1 cl-struct-yas--field-tags field2 n2 n1 type-of signal wrong-type-argument yas--field 1 0 2] 6 (#$ . 168945)]) | |
| 1113 | #@45 Guess if SNIPPET's FIELD should be skipped. | |
| 1114 | (defalias 'yas--field-probably-deleted-p #[(snippet field) "\304! >\204 \305\306\307D\"\210\310H\304! >\204! \305\306\307D\"\210\311HZ\312U\205\302 \304! >\2049 \305\306\307D\"\210\313H\205\302 \304! >\204N \305\306\307D\"\210\314H\204\230 \315\304\n! >\204e \305\306\316\nD\"\210\n\310H!@=\205\302 \304! >\204} \305\306\307D\"\210\310H\317\304\n! >\204\220 \305\306\316\nD\"\210\n\320H!U\205\302 \304! >\204\247 \305\306\307D\"\210\321H\205\301 \304! >\204\274 \305\306\307D\"\210\321H\312U?\207" [field cl-struct-yas--field-tags snippet cl-struct-yas--snippet-tags type-of signal wrong-type-argument yas--field 2 3 0 7 4 last yas--snippet overlay-end 5 1] 6 (#$ . 169572)]) | |
| 1115 | #@400 Return a sorted list of active snippets. | |
| 1116 | The most recently-inserted snippets are returned first. | |
| 1117 | ||
| 1118 | Only snippets overlapping the region BEG ... END are returned. | |
| 1119 | Overlapping has the same meaning as described in `overlays-in'. | |
| 1120 | If END is omitted, it defaults to (1+ BEG). If BEG is omitted, | |
| 1121 | it defaults to point. A non-nil, non-buffer position BEG is | |
| 1122 | equivalent to a range covering the whole buffer. | |
| 1123 | (defalias 'yas-active-snippets #[(&optional beg end) "\204 `\250\204 \306!\204 ed\202 \204 Te=\203- d=\203- \n\207\307\310 \"\307 \211 \203[ @\311\f\312\"\211 \203S >\204S B) A\211\204: *\313 \314\315\316$)\207" [beg end yas--active-snippets snippets ov --dolist-tail-- markerp nil overlays-in overlay-get yas--snippet cl-sort >= :key yas--snippet-id snippet] 6 (#$ . 170322)]) | |
| 1124 | (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias yas--snippets-at-point yas-active-snippets nil make-obsolete "0.12"] 4) | |
| 1125 | #@89 Try to expand a snippet at a key before point. | |
| 1126 | ||
| 1127 | Otherwise delegate to `yas-next-field'. | |
| 1128 | (defalias 'yas-next-field-or-maybe-expand #[nil "\203 \304\305 \306\"\n\205 \307\n!?\205 \310 *\207\310 \207" [yas-triggers-in-field yas--active-field-overlay active-field yas-fallback-behavior return-nil overlay-get yas--field yas-expand-from-trigger-key yas-next-field] 4 (#$ . 171272) nil]) | |
| 1129 | #@72 Return non-nil if (yas-next-field ARG) would exit the current snippet. | |
| 1130 | (defalias 'yas-next-field-will-exit-p #[(&optional arg) "\304 @\305\306\"\211\205 \307 \n #?*\207" [yas--active-field-overlay active snippet arg yas-active-snippets overlay-get yas--field yas--find-next-field] 5 (#$ . 171666)]) | |
| 1131 | #@55 Return the Nth field after the ACTIVE one in SNIPPET. | |
| 1132 | (defalias 'yas--find-next-field #[(n snippet active) "\305\306\307! >\204 \310\311\312D\"\210\313H\"\314 !\f \315Y\203$ \n\202' \316\n!>8)\207" [snippet cl-struct-yas--snippet-tags live-fields n active cl-remove-if #[(field) " =?\205 \303\n\"\207" [field active snippet yas--field-probably-deleted-p] 3] type-of signal wrong-type-argument yas--snippet 2 abs 0 reverse] 6 (#$ . 171975)]) | |
| 1133 | #@71 Navigate to the ARGth next field. | |
| 1134 | ||
| 1135 | If there's none, exit the snippet. | |
| 1136 | (defalias 'yas-next-field #[(&optional arg) "\204 \306\307 \310\"\311\312\n! >\204 \313\314\310\nD\"\210\n\315H\312\n! >\204- \313\314\310\nD\"\210\n\316H\"@ \317\f\n# \312\f!>\204I \313\314\320\fD\"\210\f\306H \321\322\" \321\323\" \324 \325 \203\200 \211A \242\326 \211A \242DD B \202b \327\330 \331\326 DDE!.\207" [arg yas--active-field-overlay active-field cl-struct-yas--field-tags snippet target-field 1 overlay-get yas--field yas-active-snippets type-of signal wrong-type-argument 2 3 yas--find-next-field yas--snippet mapcar car #[(v-f) "\301A@!\207" [v-f eval] 2] #[nil "\203 \304\305!\203 \306\n!\210) \203 \307\n \"\207\310\n!\207" [active-field yas-moving-away-p snippet target-field t yas--field-update-display yas--update-mirrors yas--move-to-field yas-exit-snippet] 3] nil quote eval let funcall cl-struct-yas--snippet-tags #1=#:envvar #2=#:syms #3=#:vals #4=#:body #5=#:binds] 6 (#$ . 172430) nil]) | |
| 1137 | #@47 Correctly place overlays for SNIPPET's FIELD. | |
| 1138 | (defalias 'yas--place-overlays #[(snippet field) "\303 \"\210\304\305 !\n>\204 \306\307\310 D\"\210 \311HS\305 !\n>\204) \306\307\310 D\"\210 \312HT\"@=\2057 \313 \"\207" [snippet field cl-struct-yas--field-tags yas--make-move-field-protection-overlays yas-active-snippets type-of signal wrong-type-argument yas--field 2 3 yas--make-move-active-field-overlay] 7 (#$ . 173457)]) | |
| 1139 | #@78 Update SNIPPET to move to field FIELD. | |
| 1140 | ||
| 1141 | Also create some protection overlays | |
| 1142 | (defalias 'yas--move-to-field #[(snippet field) "\306! >\204 \307\310\311D\"\210\312Hb\210\313\n\"\210\314 \315\n#\210\314 \311#\210\306! >\2044 \307\310\311D\"\210\316H\211 \203\206 \f\317U\203\206 \320\306! >\204R \307\310\311D\"\210\321H!\210\306\n! >\204f \307\310\315\nD\"\210\n\211 \322\306! >\204z \307\310\311D\"\210\323H\206\201 \324I)\202\327 \306\n! >\204\225 \307\310\315\nD\"\210\n\211 \323I\210)\306! >\204\255 \307\310\311D\"\210\325H?\205\327 \326!\203\300 \327\n!\202\327 \306! >\204\317 \307\310\311D\"\210\211 \325\330I))\207" [field cl-struct-yas--field-tags snippet yas--active-field-overlay number cl-struct-yas--snippet-tags type-of signal wrong-type-argument yas--field 2 yas--place-overlays overlay-put yas--snippet 1 0 set-mark 3 8 6 t 7 yas--field-update-display yas--update-mirrors nil #1=#:v #2=#:v #3=#:v] 7 (#$ . 173891)]) | |
| 1143 | #@61 Navigate to prev field. If there's none, exit the snippet. | |
| 1144 | (defalias 'yas-prev-field #[nil "\300\301!\207" [yas-next-field -1] 2 (#$ . 174854) nil]) | |
| 1145 | (defalias 'yas-abort-snippet #[(&optional snippet) "\206 \303 @\211\205\" \304! >\204 \305\306\307D\"\210\211\310\311I))\207" [snippet cl-struct-yas--snippet-tags #1=#:v yas-active-snippets type-of signal wrong-type-argument yas--snippet 8 t] 5 nil nil]) | |
| 1146 | #@30 Goto exit-marker of SNIPPET. | |
| 1147 | (defalias 'yas-exit-snippet #[(snippet) "\205\215 \304! >\204 \305\306\307D\"\210\211\310\311I\210)\304! >\204* \305\306\307D\"\210\312H\203x \304\211! >\204@ \305\306\307D\"\210\312H! >\204a \305\306\313\304! >\204[ \305\306\307D\"\210\312HD\"\210\304! >\204p \305\306\307D\"\210\312H\314H\202\214 \315\304! >\204\210 \305\306\307D\"\210\316H!b\207" [snippet cl-struct-yas--snippet-tags #1=#:v cl-struct-yas--exit-tags type-of signal wrong-type-argument yas--snippet 8 t 3 yas--exit 1 overlay-end 5] 8 (#$ . 175273) (list (cl-first (yas-active-snippets)))]) | |
| 1148 | #@20 Exit all snippets. | |
| 1149 | (defalias 'yas-exit-all-snippets #[nil "\300\301\302\303!\"\207" [mapc #[(snippet) "\301!\210\302 \207" [snippet yas-exit-snippet yas--check-commit-snippet] 2] yas-active-snippets all] 4 (#$ . 175888) nil]) | |
| 1150 | #@79 Bind this temporarily to non-nil to prevent running `yas--on-*-modification'. | |
| 1151 | (defvar yas--inhibit-overlay-hooks nil (#$ . 176121)) | |
| 1152 | #@51 Beginning position of the last snippet committed. | |
| 1153 | (defvar yas-snippet-beg nil (#$ . 176259)) | |
| 1154 | #@45 End position of the last snippet committed. | |
| 1155 | (defvar yas-snippet-end nil (#$ . 176358)) | |
| 1156 | #@87 Commit SNIPPET, but leave point as it is. | |
| 1157 | ||
| 1158 | This renders the snippet as ordinary text. | |
| 1159 | (defalias 'yas--commit-snippet #[(snippet) "\306! >\204 \307\310\311D\"\210\312H\211\203@ \313\n!\203@ \314\n!\315\n!\316\n!\210\306! >\2048 \307\310\311D\"\210\211 \312\317I\210)\320 \203M \316 !\210 \203X \321\316 \"\210)\306! >\204h \307\310\311D\"\210\322H \f\203| \203| \323 \f\"\210)\324!\210\325 \" !\203\242 \"<\203\242 \326\327 \f\257\"B\"\202\272 \306! >\204\261 \307\310\311D\"\210\211 #\330\317I\210))\331\332\333\306! >\204\315 \307\310\311D\"\210\332H#\207" [snippet cl-struct-yas--snippet-tags control-overlay yas-snippet-beg yas-snippet-end #1=#:v type-of signal wrong-type-argument yas--snippet 5 overlay-buffer overlay-start overlay-end delete-overlay nil t mapc 7 yas--advance-end-maybe yas--markers-to-points delq apply yas--snippet-revive 2 yas--message 4 "Snippet %s exited." yas--inhibit-overlay-hooks yas--active-field-overlay yas--field-protection-overlays previous-field yas--active-snippets yas-snippet-revival buffer-undo-list #2=#:v] 8 (#$ . 176451)]) | |
| 1160 | (defvar yas--snippets-to-move nil) | |
| 1161 | (make-variable-buffer-local 'yas--snippets-to-move) | |
| 1162 | #@55 Gather snippets in BEG..END for moving to POS in BUF. | |
| 1163 | (defalias 'yas--prepare-snippets-for-move #[(beg end buf pos) "\306\307 \"r\nq\210\310e \") \205m \306 \211 \203_ @\311\312\"\210\313\314!>\204> \315\316\317D\"\210\320H!\211 \fEB\321@!\210)A\211\204 *r\nq\210\244\211)+\207" [beg end buf pos dst-base-line snippets nil yas-active-snippets count-lines yas--snippet-map-markers #[(m) "b\210\301 \210\302e`\"\303!B\304\211\223\210\207" [m beginning-of-line count-lines yas--snapshot-marker-location nil] 4] yas--snapshot-overlay-line-location type-of signal wrong-type-argument yas--snippet 5 delete-overlay to-move snippet --dolist-tail-- cl-struct-yas--snippet-tags ctrl-ov yas--snippets-to-move] 6 (#$ . 177650)]) | |
| 1164 | (defalias 'yas--on-buffer-kill #[nil "\306 \205: \307\302!\203 \n\204 \307\303!\205: \205: \310\307\304!\203% \f\206, \307\305!\205, \211!\205: \311ed\312!$)\207" [org-marker yas-minor-mode org-edit-src-from-org-mode org-src--from-org-mode org-edit-src-beg-marker org-src--beg-marker nil boundp markerp yas--prepare-snippets-for-move marker-buffer] 5]) | |
| 1165 | (add-hook 'kill-buffer-hook 'yas--on-buffer-kill) | |
| 1166 | #@57 Finish job started in `yas--prepare-snippets-for-move'. | |
| 1167 | (defalias 'yas--finish-moving-snippets #[nil "\306\211\306\211 \306 :\203E @\211\211A\242 \211A\242 @eb\210 y\210` \307\310\f\"\210 b\210\311\n!\210\312\f!\210 A\211\202 .\306\211\207" [yas--snippets-to-move #1=#:--cl-var-- ctrl-ov base-line snippet #2=#:--cl-var-- nil yas--snippet-map-markers #[(l-m-r-w) "b\210 @y\210\214\302 \303 }\210\304 A!\210) A@\207" [base-pos l-m-r-w line-beginning-position line-end-position yas--restore-marker-location] 2] yas--restore-overlay-location yas--maybe-move-to-active-field base-pos] 4 (#$ . 178830)]) | |
| 1168 | #@32 Call FUN and catch any errors. | |
| 1169 | (defalias 'yas--safely-call-fun #[(fun) "\3021 0\207\303\304\305\306 !$)\207" [fun error (debug error) yas--message 2 "Error running %s: %s" error-message-string] 6 (#$ . 179456)]) | |
| 1170 | #@85 Call HOOK's functions. | |
| 1171 | HOOK should be a symbol, a hook variable, as in `run-hooks'. | |
| 1172 | (defalias 'yas--safely-run-hook #[(hook) "\303>?\205 \304\305\306\n\"!)\207" [yas-good-grace debug-on-error hook (t hooks) yas--safely-call-fun apply-partially run-hooks] 4 (#$ . 179679)]) | |
| 1173 | #@105 Check if point exited the currently active field of the snippet. | |
| 1174 | ||
| 1175 | If so cleans up the whole snippet up. | |
| 1176 | (defalias 'yas--check-commit-snippet #[nil "\306\211\n\f\306 \211 \203\207 @\307 !>\204# \310\311\312 D\"\210 \313H \307 !>\2048 \310\311\312 D\"\210 \314H \315\316\" \315\317\" \320 \306 \203o \211A\242\321 \211A \242DD B \202Q \322\323 \324\321 DDE!\210.A\211\204 *\f\206\216 ??\205\240 \203\232 \325!\210 \326\302!)+\207" [snippet-exit-transform exited-snippets-p yas-after-exit-snippet-hook snippet-exit-hook yas--active-snippets snippet nil type-of signal wrong-type-argument yas--snippet 6 1 mapcar car #[(v-f) "\301A@!\207" [v-f eval] 2] #[nil "\306! >\204 \307\310\311D\"\210\312H\211\204! \203! \313 !\204D \306! >\2040 \307\310\311D\"\210\211 \312\314I\210) \315!\210\316\211\207 \203_ \203T \317!\204_ \212\320 \"\210\321!)\207\314\207" [snippet cl-struct-yas--snippet-tags snippet-exit-transform active-field #1=#:v yas-after-exit-snippet-hook type-of signal wrong-type-argument yas--snippet 8 yas--field-contains-point-p nil yas--commit-snippet t overlay-buffer yas--move-to-field yas--update-mirrors snippet-exit-hook exited-snippets-p yas--active-field-overlay] 5] quote eval let funcall yas--eval-for-effect yas--safely-run-hook --dolist-tail-- cl-struct-yas--snippet-tags active-field #2=#:envvar #3=#:syms #4=#:vals #5=#:body #6=#:binds] 7 (#$ . 179963)]) | |
| 1177 | #@43 Save all markers of SNIPPET as positions. | |
| 1178 | (defalias 'yas--markers-to-points #[(snippet) "\301\302\"\207" [snippet yas--snippet-map-markers #[(m) "\301!\302\211\223\210\207" [m marker-position nil] 4]] 3 (#$ . 181411)]) | |
| 1179 | #@72 Restore SNIPPET's marker positions, saved by `yas--markers-to-points'. | |
| 1180 | (defalias 'yas--points-to-markers #[(snippet) "\301\302\"\207" [snippet yas--snippet-map-markers copy-marker] 3 (#$ . 181639)]) | |
| 1181 | #@74 Try to move to SNIPPET's active (or first) field and return it if found. | |
| 1182 | (defalias 'yas--maybe-move-to-active-field #[(snippet) "\303! >\204 \304\305\306D\"\210\307H\206( \303! >\204$ \304\305\306D\"\210\310H@\211\2053 \311\n\"\210\n)\207" [snippet cl-struct-yas--snippet-tags target-field type-of signal wrong-type-argument yas--snippet 6 2 yas--move-to-field] 5 (#$ . 181845)]) | |
| 1183 | (defalias 'yas--field-contains-point-p #[(field &optional point) "\206 `\211\303 !\n>\204 \304\305\306 D\"\210 \307HY\2051 \303 !\n>\204- \304\305\306 D\"\210 \310HX)\207" [point field cl-struct-yas--field-tags type-of signal wrong-type-argument yas--field 2 3] 6]) | |
| 1184 | #@54 Return the propertized display text for field FIELD. | |
| 1185 | (defalias 'yas--field-text-for-display #[(field) "\302! >\204 \303\304\305D\"\210\306H\302! >\204! \303\304\305D\"\210\307H{\207" [field cl-struct-yas--field-tags type-of signal wrong-type-argument yas--field 2 3] 5 (#$ . 182511)]) | |
| 1186 | #@43 True if some kind of undo is in progress. | |
| 1187 | (defalias 'yas--undo-in-progress #[nil "\206 \302=\206 \303=\207" [undo-in-progress this-command undo redo] 2 (#$ . 182809)]) | |
| 1188 | #@77 Create the control overlay that surrounds the snippet and | |
| 1189 | holds the keymap. | |
| 1190 | (defalias 'yas--make-control-overlay #[(snippet start end) "\306 \307\211\310%\311\n\312 #\210\311\n\313\f#\210\311\n\314 #\210\n)\207" [start end overlay yas-keymap yas-overlay-priority snippet make-overlay nil t overlay-put keymap priority yas--snippet] 6 (#$ . 182988)]) | |
| 1191 | #@36 Return the currently active field. | |
| 1192 | (defalias 'yas-current-field #[nil "\205 \301!\205 \302\303\"\207" [yas--active-field-overlay overlay-buffer overlay-get yas--field] 3 (#$ . 183346)]) | |
| 1193 | #@111 Return CMD if at start of unmodified snippet field. | |
| 1194 | Use as a `:filter' argument for a conditional keybinding. | |
| 1195 | (defalias 'yas--maybe-clear-field-filter #[(cmd) "\303 \211\2057 \304! >\204 \305\306\307D\"\210\310H?\2057 `\311\304! >\204. \305\306\307D\"\210\312H!=\2057 \n)\207" [field cl-struct-yas--field-tags cmd yas-current-field type-of signal wrong-type-argument yas--field 7 marker-position 2] 7 (#$ . 183544)]) | |
| 1196 | #@63 Clears unmodified FIELD if at field start, skips to next tab. | |
| 1197 | (defalias 'yas-skip-and-clear-field #[(&optional field) "\301\206 \302 !\210\303\304!\207" [field yas--skip-and-clear yas-current-field yas-next-field 1] 2 (#$ . 183975) nil]) | |
| 1198 | #@44 Clears unmodified FIELD if at field start. | |
| 1199 | (defalias 'yas-clear-field #[(&optional field) "\301\206 \302 !\207" [field yas--skip-and-clear yas-current-field] 2 (#$ . 184221) nil]) | |
| 1200 | #@129 Clears unmodified field if at field start, skips to next tab. | |
| 1201 | ||
| 1202 | Otherwise deletes a character normally by calling `delete-char'. | |
| 1203 | (defalias 'yas-skip-and-clear-or-delete-char #[(&optional field) "\301\302!\203 \303\206 \304 !\210\305\306!\207\307\310!\207" [field yas--maybe-clear-field-filter t yas--skip-and-clear yas-current-field yas-next-field 1 call-interactively delete-char] 2 (#$ . 184410) nil]) | |
| 1204 | #@140 Deletes the region of FIELD and sets it's modified state to t. | |
| 1205 | If given, FROM indicates position to start at instead of FIELD's beginning. | |
| 1206 | (defalias 'yas--skip-and-clear #[(field &optional from) "\303!\210\304! >\204 \305\306\307D\"\210\310H\304! >\204% \305\306\307D\"\210\311HU?\205V \n\206C \304! >\204@ \305\306\307D\"\210\310H\304! >\204R \305\306\307D\"\210\311H|\207" [field cl-struct-yas--field-tags from yas--mark-this-and-children-modified type-of signal wrong-type-argument yas--field 2 3] 5 (#$ . 184823)]) | |
| 1207 | (defalias 'yas--mark-this-and-children-modified #[(field) "\304! >\204 \305\306\307D\"\210\211\310\311I\210)\304! >\204& \305\306\307D\"\210\312H\211\205Q \313 !\205Q \313 !=\203H \304 ! >\203H \314 !\210\315 !\211\204. \316)\207" [field cl-struct-yas--field-tags #1=#:v fom type-of signal wrong-type-argument yas--field 7 t 8 yas--fom-parent-field yas--mark-this-and-children-modified yas--fom-next nil] 5]) | |
| 1208 | #@105 Place the active field overlay in SNIPPET's FIELD. | |
| 1209 | ||
| 1210 | Move the overlay, or create it if it does not exit. | |
| 1211 | (defalias 'yas--make-move-active-field-overlay #[(snippet field) "\2032 \305!\2032 \306\307 !\n>\204 \310\311\312 D\"\210 \313H\307 !\n>\204- \310\311\312 D\"\210 \314H#\207\315\307 !\n>\204B \310\311\312 D\"\210 \313H\307 !\n>\204T \310\311\312 D\"\210 \314H\316\211\317%\320\321 #\210\320\322\323#\210\320\324\f#\210\320\325\326#\210\320\327\330#\210\320\331\332#\207" [yas--active-field-overlay field cl-struct-yas--field-tags yas-overlay-priority snippet overlay-buffer move-overlay type-of signal wrong-type-argument yas--field 2 3 make-overlay nil t overlay-put priority face yas-field-highlight-face yas--snippet modification-hooks (yas--on-field-overlay-modification) insert-in-front-hooks (yas--on-field-overlay-modification) insert-behind-hooks (yas--on-field-overlay-modification)] 7 (#$ . 185783)]) | |
| 1212 | #@114 Tell if newly modified FIELD should be cleared and skipped. | |
| 1213 | BEG, END and LENGTH like overlay modification hooks. | |
| 1214 | (defalias 'yas--skip-and-clear-field-p #[(field beg _end length) "\304U\2050 \305\n! >\204 \306\307\310\nD\"\210\n\311HU\2050 \305\n! >\204, \306\307\310\nD\"\210\n\312H?\207" [length beg field cl-struct-yas--field-tags 0 type-of signal wrong-type-argument yas--field 2 7] 5 (#$ . 186716)]) | |
| 1215 | #@184 Clears the field and updates mirrors, conditionally. | |
| 1216 | ||
| 1217 | Only clears the field if it hasn't been modified and point is at | |
| 1218 | field start. This hook does nothing if an undo is in progress. | |
| 1219 | (defalias 'yas--on-field-overlay-modification #[(overlay after\? beg end &optional length) "?\206 \206 \306\n!?\206 \307 !?\206 \310 ?\205\236 \311 \312\313 \314\" \313\n\315\" \"\316\"!\203\224 \317 #\320\216\321\"!$>\204K \322\323\315\"D\"\210\"\324H %\325\326%\" &\325\327%\" '\330 (\311 )&\203\203 &\211A&\242\331'\211A'\242DD)B)\202e \332\333)\334\331(DDE!.\202\235 \335\336\337\340#\210\341 !,\207" [after\? yas--inhibit-overlay-hooks yas--active-field-overlay overlay inhibit-modification-hooks field overlayp overlay-buffer yas--undo-in-progress nil t overlay-get yas--field yas--snippet yas--snippet-live-p match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] type-of signal wrong-type-argument 1 mapcar car #[(v-f) "\301A@!\207" [v-f eval] 2] #[nil "\306 \n $\203 \307\n\"\210\310!\f>\204 \311\312\313D\"\210\211 \314\315I\210)\316 \n\" \203\206 \203\206 \211A\242 \310!>\204U \311\312\317D\"\210\320H>\204a \321\322!\210\323\324!\"\210\310!>\204| \311\312\317D\"\210\314H)\202. *\212\325!\210)\326 !\207" [field beg end length cl-struct-yas--field-tags #1=#:v yas--skip-and-clear-field-p yas--skip-and-clear type-of signal wrong-type-argument yas--field 7 t yas-active-snippets yas--snippet 2 cl--assertion-failed (memq pfield (yas--snippet-fields psnippet)) yas--advance-end-maybe overlay-end yas--field-update-display yas--update-mirrors psnippets pfield psnippet cl-struct-yas--snippet-tags overlay snippet] 6] quote eval let funcall lwarn (yasnippet zombie) :warning "Killing zombie snippet!" delete-overlay snippet save-match-data-internal cl-struct-yas--snippet-tags #2=#:envvar #3=#:syms #4=#:vals #5=#:body #6=#:binds] 6 (#$ . 187130)]) | |
| 1220 | (defalias 'yas--auto-fill #[nil "`\306 \210`\307 \210`\310\n \"\311\211 \311 0\211 1\203} 1@0\3120!\311 2\211 1\203V 1@2\n2X\203M 2 X\203M \3132\n #\fB1A\2111\2041 *\314\3150!3>\204j \316\317\3200D\"\2100\321H\n # B1A\2111\204 *b\210\322 4\204Y\322\323\324!DC\322\323\325!DC\326 5 6 7r\327 8p\330p8\"B\2118)\311 9\211 1\2031@\2119q\2107\236 :6\236 ;\331\324!\203\355 :\203\343 :9:AB\241\210\202\355 9D7B7\331\325!\203;\203;9;AB\241\210\2029D6B6*1A\2111\204\265 +\332\333\334\335p76\336\337!\203H\340\341\342!! <\343\216< <\344\345=\"\210)r<q\210\346 +\202I\347&\210\350\351!\210\352\353\354\"\210+\202] \210)\212\306 \210`\307 \210`)\212\214\n }\210\344\355\f\"\210\344\356 \"\210)\344\357 \".\207" [orig-point end beg snippets remarkers reoverlays forward-paragraph backward-paragraph yas-active-snippets nil yas--collect-snippet-markers yas--snapshot-marker-location yas--snapshot-overlay-location type-of signal wrong-type-argument yas--snippet 5 t default-value yas--original-auto-fill-function auto-fill-function 3 buffer-list remq local-variable-p lwarn (yasnippet auto-fill bug) :error "`yas--original-auto-fill-function' unexpectedly nil in %S! Disabling auto-fill.\n %S\n `auto-fill-function': %S\n%s" fboundp backtrace--print-frame get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] mapc #[(frame) "\301\302\"\207" [frame apply backtrace--print-frame] 3] buffer-string "" auto-fill-mode -1 add-to-list warning-suppress-types (yasnippet auto-fill bug) yas--restore-marker-location yas--restore-overlay-location #[(snippet) "\306! >\204 \307\310\311D\"\210\312H\313\314\n\"\313\315\n\" \316 \317 \203; \211A\242\320\f\211A\242DDB\202\" \321\322\323\320 DDE!-\207" [snippet cl-struct-yas--snippet-tags #1=#:envvar #2=#:syms #3=#:vals #4=#:body type-of signal wrong-type-argument yas--snippet 1 mapcar car #[(v-f) "\301A@!\207" [v-f eval] 2] #[nil "\301!\207" [snippet yas--update-mirrors] 2] nil quote eval let funcall #5=#:binds] 6] snippet --dolist-tail-- m cl-struct-yas--snippet-tags yas--inhibit-overlay-hooks print-length fill-fun-values yas--fill-fun-values bufs buf yf-cell af-cell standard-output yas--watch-auto-fill-backtrace] 11]) | |
| 1221 | #@112 Place protection overlays surrounding SNIPPET's FIELD. | |
| 1222 | ||
| 1223 | Move the overlays, or create them if they do not exit. | |
| 1224 | (defalias 'yas--make-move-field-protection-overlays #[(snippet field) "\306! >\204 \307\310\311D\"\210\312H\306! >\204! \307\310\311D\"\210\313H\314 \nW\2037 \212\315 db\210\316 \210* \203U \317\320 \"\203U \321 @ S #\210\321 A@\n\211T#\202\227 \322 S \323\315\323%\322\n\211T\323\315\323%D\211\323 \211 \205\226 @\324\325\326#\210\324\327 #\210\324\330\331#\210A\211\204q \323**\207" [field cl-struct-yas--field-tags end start yas--inhibit-overlay-hooks yas--field-protection-overlays type-of signal wrong-type-argument yas--field 2 3 buffer-size t newline cl-every overlay-buffer move-overlay make-overlay nil overlay-put face yas--field-debug-face yas--snippet modification-hooks (yas--on-protection-overlay-modification) ov --dolist-tail-- snippet] 8 (#$ . 191403)]) | |
| 1225 | #@63 Commit the snippet if the protection overlay is being killed. | |
| 1226 | (defalias 'yas--on-protection-overlay-modification #[(_overlay after\? beg end &optional length) "\206 ?\206 \n \fZU\206 \306 ?\205@ \307 \310\311\312\"\210 \313 :\203> @\314!\210 A\211 \202' +\313\207" [yas--inhibit-overlay-hooks after\? length end beg snippets yas--undo-in-progress yas-active-snippets yas--message 2 "Committing snippets. Action would destroy a protection overlay." nil yas--commit-snippet #1=#:--cl-var-- snippet] 4 (#$ . 192318)]) | |
| 1227 | (add-to-list 'debug-ignored-errors "^Exit the snippet first!$") | |
| 1228 | #@431 Expand SNIPPET at current point. | |
| 1229 | ||
| 1230 | Text between START and END will be deleted before inserting | |
| 1231 | template. EXPAND-ENV is a list of (SYM VALUE) let-style dynamic | |
| 1232 | bindings considered when expanding the snippet. If omitted, use | |
| 1233 | SNIPPET's expand-env field. | |
| 1234 | ||
| 1235 | SNIPPET may be a snippet structure (e.g., as returned by | |
| 1236 | `yas-lookup-snippet'), or just a snippet body (which is a string | |
| 1237 | for normal snippets, and a list for command snippets). | |
| 1238 | (defalias 'yas-expand-snippet #[(snippet &optional start end expand-env) "\203\n \306 >\204 \307\310\311\312\211$\210\313\314!\210\n\205# \315\n!\205# \316\n\317\"\211\2052 \320 ``\321$\2052 ) \206] \322 \203B \323 \202] \f\203\\ \324\f!3>\204V \325\326\317\fD\"\210\f\327H\202] ` 4\206\210 \322 \203m \330 \202\210 \f\203\207 \324\f!3>\204\201 \325\326\317\fD\"\210\f\331H\202\210 `\211 4 V\205\225 \332 4\" 56\206\250 \322 \205\250 \f?\205\250 5 6 b\210i75\203\272 4|\210\3248!9>\203\335 \3248!9>\204\326 \325\326\3338D\"\2108\327H\202\337 8 :;\204\3248!9>\203\3248!9>\204\325\326\3338D\"\2108\334H;:<\203\335:!\202<i<\336 =\337:; `$8)\n\2054\315\n!\2054\316\n\317\"\211 >\203_\3248!?>\204L\325\326\3408D\"\2108\211 @\341>I\210)\342>\343\n!\"\210)\3248!?>\204r\325\326\3408D\"\2108\327H\204~\3448!\210\3248!?>\204\220\325\326\3408D\"\2108\327H@\211 A\203 \345\321!\210\3248!?>\204\261\325\326\3408D\"\2108\346H B\347\350B\" C\347\351B\" D\352 E\312 FC\203\351C\211AC\242\353D\211AD\242DDFBF\202\313\354\355F\356\353EDDE!\210-\324A!3>\204 \325\326\317AD\"\210A\346H\321=\203 \357A!G\321V\203 \312G)\360\361\362\3248!?>\2045\325\326\3408D\"\2108\361H#\210\336.\207" [yas-minor-mode post-command-hook yas--active-field-overlay field clear-field start yas--post-command-handler cl--assertion-failed (and yas-minor-mode (memq 'yas--post-command-handler post-command-hook)) "[yas] `yas-expand-snippet' needs properly setup `yas-minor-mode'" nil run-hooks yas-before-expand-snippet-hook overlay-buffer overlay-get yas--field yas--skip-and-clear-field-p 0 region-active-p region-beginning type-of signal wrong-type-argument 2 region-end 3 buffer-substring-no-properties yas--template 5 yas--eval-for-effect t yas--snippet-create yas--snippet 7 yas--advance-end-maybe overlay-end yas-exit-snippet sit-for 1 mapcar car #[(v-f) "\301A@!\207" [v-f eval] 2] #[nil "\302 \"\207" [snippet first-field yas--move-to-field] 3] quote eval let funcall yas--field-text-for-display yas--message 4 "snippet %d expanded." cl-struct-yas--field-tags end to-delete yas-selected-text yas--indent-original-column snippet cl-struct-yas--template-tags content expand-env yas--start-column yas--inhibit-overlay-hooks existing-field cl-struct-yas--snippet-tags #1=#:v first-field #2=#:envvar #3=#:syms #4=#:vals #5=#:body #6=#:binds deactivate-mark] 8 (#$ . 192923)]) | |
| 1239 | #@113 Commits SNIPPET, which in turn pushes an undo action for reviving it. | |
| 1240 | ||
| 1241 | Meant to exit in the `buffer-undo-list'. | |
| 1242 | (defalias 'yas--take-care-of-redo #[(snippet) "\302! >\204 \303\304\305D\"\210\306H\205 \307!\207" [snippet cl-struct-yas--snippet-tags type-of signal wrong-type-argument yas--snippet 2 yas--commit-snippet] 4 (#$ . 195800)]) | |
| 1243 | #@334 Revives SNIPPET and creates a control overlay from BEG to END. | |
| 1244 | ||
| 1245 | BEG and END are, we hope, the original snippets boundaries. | |
| 1246 | All the markers/points exiting existing inside SNIPPET should point | |
| 1247 | to their correct locations *at the time the snippet is revived*. | |
| 1248 | ||
| 1249 | After revival, push the `yas--take-care-of-redo' in the | |
| 1250 | `buffer-undo-list' | |
| 1251 | (defalias 'yas--snippet-revive #[(beg end snippet) "\306!\210\307!\205I \310! >\204 \311\312\313D\"\210\211\314\315 \f#I\210)\316\310! >\2045 \311\312\313D\"\210\314H\313#\210 <\205I \317\320E B\211\207" [snippet cl-struct-yas--snippet-tags #1=#:v beg end buffer-undo-list yas--points-to-markers yas--maybe-move-to-active-field type-of signal wrong-type-argument yas--snippet 5 yas--make-control-overlay overlay-put apply yas--take-care-of-redo] 7 (#$ . 196150)]) | |
| 1252 | #@96 Create a snippet from a template inserted at BEGIN to END. | |
| 1253 | ||
| 1254 | Returns the newly created snippet. | |
| 1255 | (defalias 'yas--snippet-create #[(content expand-env begin end) "\214\306\307\310\211\311 \310\211\211\211& \312\313\n\"\312\314\n\" \315 \310 \2039 \211A\242\316\f\211A\242DDB\202 \317\320\321\316 DDE!.\207" [expand-env snippet #1=#:envvar #2=#:syms #3=#:vals #4=#:body record yas--snippet nil yas--snippet-next-id mapcar car #[(v-f) "\301A@!\207" [v-f eval] 2] #[nil "\306\211\nb\210\307\310\n\211#\210 c\210\f G\\\n\f}\210eb\210\311 !\210\307\312ed\313$\210* <\2033 edB B\314 !\210 <\203C \315\316 E B\317 !\210\320 !>\204W \321\322\323 D\"\210 \211 \324\325 ed#I\210)db\210 B \207" [inhibit-modification-hooks buffer-undo-list begin content end snippet t run-hook-with-args before-change-functions yas--snippet-parse-create after-change-functions 0 yas--indent apply yas--take-care-of-redo yas--snippet-sort-fields type-of signal wrong-type-argument yas--snippet 5 yas--make-control-overlay cl-struct-yas--snippet-tags #5=#:v yas--active-snippets] 7] quote eval let funcall #6=#:binds] 10 (#$ . 196967)]) | |
| 1256 | (defalias 'yas--fom-start #[(fom) "\304! >\203 \304! >\204 \305\306\307D\"\210\310H\207\304!\n>\2036 \304!\n>\2042 \305\306\311D\"\210\312H\207\304! >\204E \305\306\313D\"\210\312H\207" [fom cl-struct-yas--field-tags cl-struct-yas--mirror-tags cl-struct-yas--exit-tags type-of signal wrong-type-argument yas--field 2 yas--mirror 1 yas--exit] 4]) | |
| 1257 | (defalias 'yas--fom-end #[(fom) "\304! >\203 \304! >\204 \305\306\307D\"\210\310H\207\304!\n>\2036 \304!\n>\2042 \305\306\311D\"\210\312H\207\304! >\204E \305\306\313D\"\210\314H\207" [fom cl-struct-yas--field-tags cl-struct-yas--mirror-tags cl-struct-yas--exit-tags type-of signal wrong-type-argument yas--field 3 yas--mirror 2 yas--exit 1] 4]) | |
| 1258 | (defalias 'yas--fom-next #[(fom) "\304! >\203 \304! >\204 \305\306\307D\"\210\310H\207\304!\n>\2036 \304!\n>\2042 \305\306\311D\"\210\312H\207\304! >\204E \305\306\313D\"\210\314H\207" [fom cl-struct-yas--field-tags cl-struct-yas--mirror-tags cl-struct-yas--exit-tags type-of signal wrong-type-argument yas--field 8 yas--mirror 5 yas--exit 2] 4]) | |
| 1259 | (defalias 'yas--fom-parent-field #[(fom) "\303! >\203 \303! >\204 \304\305\306D\"\210\307H\207\303!\n>\2036 \303!\n>\2042 \304\305\310D\"\210\307H\207\311\207" [fom cl-struct-yas--field-tags cl-struct-yas--mirror-tags type-of signal wrong-type-argument yas--field 4 yas--mirror nil] 4]) | |
| 1260 | #@177 Calculate adjacencies for fields or mirrors of SNIPPET. | |
| 1261 | ||
| 1262 | This is according to their relative positions in the buffer, and | |
| 1263 | has to be called before the $-constructs are deleted. | |
| 1264 | (defalias 'yas--calculate-adjacencies #[(snippet) "\306\307\310\311\f! >\204 \312\313\314\fD\"\210\f\315H\2032 \311\f! >\204, \312\313\314\fD\"\210\f\315H B\311\f! >\204A \312\313\314\fD\"\210\f\316H\310 \211 \203\221 @\211 B\311!>\204h \312\313\317D\"\210\320H\310 \211 \203\207 @\211 BA\211\204u *A\211\204M *\321 \"\211\205\237 \322\n \",\207" [fom-set-next-fom compare-fom-begs link-foms soup snippet cl-struct-yas--snippet-tags #[(fom nextfom) "\306! >\203 \306! >\204 \307\310\311D\"\210\211\312 I)\207\306!\f>\203> \306!\f>\2046 \307\310\313D\"\210\211 \314 I)\207\306!>\204N \307\310\315D\"\210\211 \316 I)\207" [fom cl-struct-yas--field-tags #1=#:v nextfom cl-struct-yas--mirror-tags #2=#:v type-of signal wrong-type-argument yas--field 8 yas--mirror 5 yas--exit 2 cl-struct-yas--exit-tags #3=#:v] 5] #[(fom1 fom2) "\303!\303 !U\203 \304!\n>\205 \305\207\303!\303 !Y\207" [fom2 fom1 cl-struct-yas--mirror-tags yas--fom-start type-of t] 3] nil type-of signal wrong-type-argument yas--snippet 3 2 yas--field 5 sort cl-reduce field --dolist-tail-- cl-struct-yas--field-tags mirror] 5 (#$ . 199484)]) | |
| 1265 | #@198 Discover if FOM is parented by some field in SNIPPET. | |
| 1266 | ||
| 1267 | Use the tightest containing field if more than one field contains | |
| 1268 | the mirror. Intended to be called *before* the dollar-regions are | |
| 1269 | deleted. | |
| 1270 | (defalias 'yas--calculate-simple-fom-parentage #[(snippet fom) "ed\306\n\307 !\f>\204 \310\311\312 D\"\210 \313H\"\314 \211 \205@\307 !>\2045 \310\311\315 D\"\210 \313H\316\n!X\203\370 \317\n!\307 !>\204R \310\311\315 D\"\210 \320HX\203\370 \307 !>\204j \310\311\315 D\"\210 \313HW\203\370 \307 !>\204\201 \310\311\315 D\"\210 \320HW\203\370 \307 !>\204\231 \310\311\315 D\"\210 \313H\307 !>\204\255 \310\311\315 D\"\210 \320H\307\n!>\203\326 \307\n!>\204\312 \310\311\315\nD\"\210\n\211 \321 I\210)\202\370 \307\n!>\203\370 \307\n!>\204\357 \310\311\322\nD\"\210\n\211 \321 I\210)A\211\204! \314,\207" [max min fom snippet cl-struct-yas--snippet-tags field remq type-of signal wrong-type-argument yas--snippet 2 nil yas--field yas--fom-start yas--fom-end 3 4 yas--mirror --dolist-tail-- cl-struct-yas--field-tags #1=#:v cl-struct-yas--mirror-tags #2=#:v] 7 (#$ . 200834)]) | |
| 1271 | #@356 Maybe advance FOM's end to NEWEND if it needs it. | |
| 1272 | ||
| 1273 | If it does, also: | |
| 1274 | ||
| 1275 | * call `yas--advance-start-maybe' on FOM's next fom. | |
| 1276 | ||
| 1277 | * in case FOM is field call `yas--advance-end-maybe' on its parent | |
| 1278 | field | |
| 1279 | ||
| 1280 | Also, if FOM is an exit-marker, always call | |
| 1281 | `yas--advance-start-maybe' on its next fom. This is because | |
| 1282 | exit-marker have identical start and end markers. | |
| 1283 | (defalias 'yas--advance-end-maybe #[(fom newend) "\203! \303! W\203! \303! \304\223\210\305\306! \"\210\307\310! \"\207\311!\n>\205/ \305\306! \"\207" [fom newend cl-struct-yas--exit-tags yas--fom-end nil yas--advance-start-maybe yas--fom-next yas--advance-end-of-parents-maybe yas--fom-parent-field type-of] 3 (#$ . 201951)]) | |
| 1284 | #@111 Maybe advance FOM's start to NEWSTART if it needs it. | |
| 1285 | ||
| 1286 | If it does, also call `yas--advance-end-maybe' on FOM. | |
| 1287 | (defalias 'yas--advance-start-maybe #[(fom newstart) "\205 \302! W\205 \302! \303\223\210\304 \"\207" [fom newstart yas--fom-start nil yas--advance-end-maybe] 3 (#$ . 202647)]) | |
| 1288 | #@181 Like `yas--advance-end-maybe' but for parent fields. | |
| 1289 | ||
| 1290 | Only works for fields and doesn't care about the start of the | |
| 1291 | next FOM. Works its way up recursively for parents of parents. | |
| 1292 | (defalias 'yas--advance-end-of-parents-maybe #[(field newend) "\205F \303! >\204 \304\305\306D\"\210\307H\nW\205F \303! >\204* \304\305\306D\"\210\307H\n\310\223\210\311\303! >\204A \304\305\306D\"\210\312H\n\"\207" [field cl-struct-yas--field-tags newend type-of signal wrong-type-argument yas--field 3 nil yas--advance-end-of-parents-maybe 4] 5 (#$ . 202947)]) | |
| 1293 | #@85 When expanding the snippet the "parse-create" functions add | |
| 1294 | cons cells to this var. | |
| 1295 | (defvar yas--dollar-regions nil (#$ . 203507)) | |
| 1296 | #@41 List of markers for manual indentation. | |
| 1297 | (defvar yas--indent-markers nil (#$ . 203644)) | |
| 1298 | #@163 Parse a recently inserted snippet template, creating all | |
| 1299 | necessary fields, mirrors and exit points. | |
| 1300 | ||
| 1301 | Meant to be called in a narrowed buffer, does various passes | |
| 1302 | (defalias 'yas--snippet-parse-create #[(snippet) "\306`\306\211\307\306\310\"\210b\210\311 \307 \210b\210\312 \210b\210\313\f!\210b\210\314\f!\210b\210\315\f!\210\316!\210)\317\f!\210 ! \" #\214~\210\320 !\210)\321\"!\210*\322\f!$>\204_ \323\324\325\fD\"\210\f\326H\211 %\203\201 \322%!&>\204z \323\324\327%D\"\210%\330H\202\202 db\210)'\331=\203\217 \332''\203\240 (\203\240 (c\210\202\272 \333'!\203\272 \334'!\203\272 \334'!\335'\306\"\210c\210\336 !\210b\210\337 \210\340\f!\210b*\207" [parse-start saved-quotes syntax-propertize-function yas--dollar-regions snippet most-positive-fixnum nil yas--protect-escapes (96) yas--save-backquotes yas--indent-parse-create yas--field-parse-create yas--simple-fom-create yas--transform-mirror-parse-create syntax-ppss-flush-cache yas--calculate-adjacencies yas--delete-regions yas--remove-misc-free-from-undo type-of signal wrong-type-argument yas--snippet 3 yas--exit 1 cua 48 characterp get-register set-register yas--restore-backquotes yas--restore-escapes yas--update-mirrors buffer-undo-list old-undo-list gc-cons-threshold cl-struct-yas--snippet-tags exit cl-struct-yas--exit-tags yas-wrap-around-region yas-selected-text] 5 (#$ . 203738)]) | |
| 1303 | #@127 Returns info for restoring MARKER's location after indent. | |
| 1304 | The returned value is a list of the form (MARKER REGEXP WS-COUNT). | |
| 1305 | (defalias 'yas--snapshot-marker-location #[(marker &optional beg end) "\204 \305 \204 \306 \307\310\n\"\311\312#\307\310\n \"\311\312# \n\313\314\315\f\nC\244 \244\313#P\nb\210\316 w\210`\nZE*\207" [beg end marker after before line-beginning-position line-end-position split-string buffer-substring-no-properties "[[:space:]\n]+" t "[[:space:]\n]*" mapconcat #[(s) " =\203 \302\207\303!\207" [s marker "\\(\\)" regexp-quote] 2] "[:space:]\n"] 6 (#$ . 205127)]) | |
| 1306 | #@225 Like `yas--snapshot-marker-location' for overlays. | |
| 1307 | The returned format is (OVERLAY (RE WS) (RE WS)). Either of | |
| 1308 | the (RE WS) lists may be nil if the start or end, respectively, | |
| 1309 | of the overlay is outside the range BEG .. END. | |
| 1310 | (defalias 'yas--snapshot-overlay-location #[(overlay beg end) "\305!\306! \nX\205 \n\fW\205 \307\n \f#A X\205- \fW\205- \307 \f#AE*\207" [overlay oend obeg beg end overlay-start overlay-end yas--snapshot-marker-location] 6 (#$ . 205732)]) | |
| 1311 | #@118 Return info for restoring OVERLAY's line based location. | |
| 1312 | The returned format is (OVERLAY (LINE RE WS) (LINE RE WS)). | |
| 1313 | (defalias 'yas--snapshot-overlay-line-location #[(overlay) "\303!b\210\304`!\305!b\210\304`!\211\306e\n@b\210\307 \"\240\210 \306e @b\210\307 \"\240\210\n E*\207" [overlay loc-end loc-beg overlay-start yas--snapshot-marker-location overlay-end count-lines line-beginning-position] 5 (#$ . 206212)]) | |
| 1314 | #@136 Move point to location saved by `yas--snapshot-marker-location'. | |
| 1315 | Buffer must be narrowed to BEG..END used to create the snapshot info. | |
| 1316 | (defalias 'yas--goto-saved-location #[(regexp ws-count) "eb\210\302!\204 \303\304\305\306$\207\307\224b\210\310\311w\210\310` Zx\207" [regexp ws-count looking-at lwarn (yasnippet re-marker) :warning "Couldn't find: %S" 1 "[:space:]\n" nil] 5 (#$ . 206640)]) | |
| 1317 | #@139 Restores marker based on info from `yas--snapshot-marker-location'. | |
| 1318 | Buffer must be narrowed to BEG..END used to create the snapshot info. | |
| 1319 | (defalias 'yas--restore-marker-location #[(re-marker) "\301\302A\"\210@`\303\223\207" [re-marker apply yas--goto-saved-location nil] 3 (#$ . 207043)]) | |
| 1320 | #@139 Restores marker based on info from `yas--snapshot-marker-location'. | |
| 1321 | Buffer must be narrowed to BEG..END used to create the snapshot info. | |
| 1322 | (defalias 'yas--restore-overlay-location #[(ov-locations) "\211G\305U\203 \211A\242\202 \306\307\310 GD\" \211A\242 @ \311\n \204. \312\n!\2024 \313\314 \"\210`\f\204> \315\n!\202D \313\314\f\"\210`#,\207" [ov-locations #1=#:--cl-rest-- overlay loc-beg loc-end 3 signal wrong-number-of-arguments nil move-overlay overlay-start apply yas--goto-saved-location overlay-end] 7 (#$ . 207341)]) | |
| 1323 | #@76 Restores overlay based on info from `yas--snapshot-overlay-line-location'. | |
| 1324 | (defalias 'yas--restore-overlay-line-location #[(ov-locations) "\214\301@\212A@@y\210\302 \303 }\210\304\305A@A\"\210`)\212\3068@y\210\302 \303 }\210\304\305\3068A\"\210`)#)\207" [ov-locations move-overlay line-beginning-position line-end-position apply yas--goto-saved-location 2] 7 (#$ . 207883)]) | |
| 1325 | #@108 Indent the lines between FROM and TO with `indent-according-to-mode'. | |
| 1326 | The SNIPPET's markers are preserved. | |
| 1327 | (defalias 'yas--indent-region #[(from to snippet) "\212 \214~\210\306\f! \307 \310\223 b\210\310\211 \311 \312 \2043 U\204u \310 \310 \211 \203k @X\203b X\203b \313#BA\211\204@ *\314\216\315 \210\316 \210*\317y\320U\203\203 `W\204 -\310\321\n!\210+\207" [most-positive-fixnum buffer-undo-list old-undo-list gc-cons-threshold snippet snippet-markers yas--collect-snippet-markers make-marker nil line-beginning-position line-end-position yas--snapshot-marker-location #[nil "\214\302 }\210\303\304 \")\207" [bol remarkers line-end-position mapc yas--restore-marker-location] 3] back-to-indentation indent-according-to-mode 1 0 yas--remove-misc-free-from-undo to from bol eol yas-also-indent-empty-lines remarkers m --dolist-tail--] 5 (#$ . 208270)]) | |
| 1328 | (defvar yas--indent-original-column nil) | |
| 1329 | (defalias 'yas--indent #[(snippet) "\212\306\211\203) \n@ \307=\204 b\210\310\311 \312 \f#\210 \306\211\223\210\nA\211\204 *\306)\212\306\210 \313\267\202_ \314y\315U\205` \316 \310\311 d\f#)\202` \204V \314y\315U\205` \310\311 d\f#\202` \306)\207" [yas--indent-markers marker --dolist-tail-- yas-indent-line snippet indent-line-function nil auto yas--indent-region line-beginning-position line-end-position #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (fixed 55 auto 74)) 1 0 #[nil "\301 \210j\207" [yas--indent-original-column beginning-of-line] 1] yas-also-auto-indent-first-line] 5]) | |
| 1330 | #@49 Make a list of all the markers used by SNIPPET. | |
| 1331 | (defalias 'yas--collect-snippet-markers #[(snippet) "\302\303\304 \"\210)\207" [markers snippet nil yas--snippet-map-markers #[(m) " B\207" [m markers] 2]] 3 (#$ . 209868)]) | |
| 1332 | (defalias 'yas--escape-string #[(escaped) "\301\302\303\"\304Q\207" [escaped "YASESCAPE" format "%d" "PROTECTGUARD"] 4]) | |
| 1333 | #@126 Protect all escaped characters with their numeric ASCII value. | |
| 1334 | ||
| 1335 | With optional string TEXT do it in string instead of buffer. | |
| 1336 | (defalias 'yas--protect-escapes #[(&optional text escaped) "\211\305\306 \206 \f\"\210\n*\207" [text text-provided-p changed-text escaped yas--escaped-characters mapc #[(escaped) "\306\307!P\310! \205 \n \203 \311\312 !\f \313\211%\2025 eb\210\314 \315\313#\2055 \316\f\313\211 $\210\202# +\211\207" [escaped text-provided-p changed-text text to from "\\" char-to-string yas--escape-string replace-regexp-in-string regexp-quote t search-forward nil replace-match] 6]] 3 (#$ . 210224)]) | |
| 1337 | #@130 Restore all escaped characters from their numeric ASCII value. | |
| 1338 | ||
| 1339 | With optional string TEXT do it in string instead of the buffer. | |
| 1340 | (defalias 'yas--restore-escapes #[(&optional text escaped) "\211\305\306 \206 \f\"\210\n*\207" [text text-provided-p changed-text escaped yas--escaped-characters mapc #[(escaped) "\306!\307! \205 \n \203 \310\311 !\f \312\211%\2023 eb\210\313 \314\312#\2053 \315\f\312\211 $\210\202! +\211\207" [escaped text-provided-p changed-text text to from yas--escape-string char-to-string replace-regexp-in-string regexp-quote t search-forward nil replace-match] 6]] 3 (#$ . 210854)]) | |
| 1341 | #@135 Save all "\=`(lisp-expression)\=`"-style expressions. | |
| 1342 | Return a list of (MARKER . STRING) entires for each backquoted | |
| 1343 | Lisp expression. | |
| 1344 | (defalias 'yas--save-backquotes #[nil "\306p\306\307\310\f\306\311#\203v \312\313!\306 ! \"\214~\210\314\224\314\225|\210)\315!!\210* #B #\316\317\320 \321\"!!)\314\224b\210 \203r \322 $ ! \"\214~\210\323c\210$`\306\223\210\323c\210)\315!!\210*$ BB)*\202 \n\203\237 \324\325\326\327%\203\234 \330%!&>\204\225 \331\332\333%D\"\210%\334H\202\235 \335$\210,\207" [saved-quotes yas--snippet-buffer yas--change-detected detect-change yas--backquote-lisp-expression-regexp transformed nil #[(_beg _end) "p=\205 \302\211\207" [yas--snippet-buffer yas--change-detected t] 2] re-search-forward t match-string-no-properties 1 0 yas--remove-misc-free-from-undo yas--eval-for-string yas--read-lisp yas--restore-escapes (96) make-marker "Y" lwarn (yasnippet backquote-change) :warning "`%s' modified buffer in a backquote expression.\n To hide this warning, add (yasnippet backquote-change) to `warning-suppress-types'." type-of signal wrong-type-argument yas--template 3 "Snippet" current-string most-positive-fixnum buffer-undo-list old-undo-list gc-cons-threshold before-change-functions marker yas--current-template cl-struct-yas--template-tags] 8 (#$ . 211478)]) | |
| 1345 | #@118 Replace markers in SAVED-QUOTES with their values. | |
| 1346 | SAVED-QUOTES is the in format returned by `yas--save-backquotes'. | |
| 1347 | (defalias 'yas--restore-backquotes #[(saved-quotes) "\306\211 :\203@ @\211\211A\242\212 b\210\f \f\214~\210\307\310!\210\nc\210\307\311!\210)\312 !\210* \306\211\223\210) A\211\202 +\306\207" [saved-quotes #1=#:--cl-var-- string marker most-positive-fixnum buffer-undo-list nil delete-char -1 1 yas--remove-misc-free-from-undo old-undo-list gc-cons-threshold] 4 (#$ . 212810)]) | |
| 1348 | (defalias 'yas--scan-sexps #[(from count) "\3061 \307 \310\216\311 p\312\216\313\314 !\210\315\316\f \".0\207\210\315\207" [save-match-data-internal #1=#:buffer #2=#:table parse-sexp-lookup-properties from count (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] syntax-table #[nil "rq\210\302 !)\207" [#1# #2# set-syntax-table] 2] set-syntax-table standard-syntax-table nil scan-sexps] 3]) | |
| 1349 | #@58 Create a marker at POS with nil `marker-insertion-type'. | |
| 1350 | (defalias 'yas--make-marker #[(pos) "\302 \303\223\304 \303\"\210 )\207" [pos marker make-marker nil set-marker-insertion-type] 3 (#$ . 213770)]) | |
| 1351 | #@51 Parse the "$>" indentation markers just inserted. | |
| 1352 | (defalias 'yas--indent-parse-create #[nil "\301\302\303\301\304#\203 \305\224\305\225|\210\306\307 !B\202 \237\211\207" [yas--indent-markers nil search-forward "$>" t 0 yas--make-marker line-beginning-position] 4 (#$ . 213981)]) | |
| 1353 | #@483 Parse most field expressions in SNIPPET, except for the simple one "$n". | |
| 1354 | ||
| 1355 | The following count as a field: | |
| 1356 | ||
| 1357 | * "${n: text}", for a numbered field with default text, as long as N is not 0; | |
| 1358 | ||
| 1359 | * "${n: text$(expression)}, the same with a Lisp expression; | |
| 1360 | this is caught with the curiously named `yas--multi-dollar-lisp-expression-regexp' | |
| 1361 | ||
| 1362 | * the same as above but unnumbered, (no N:) and number is calculated automatically. | |
| 1363 | ||
| 1364 | When multiple expressions are found, only the last one counts. | |
| 1365 | (defalias 'yas--field-parse-create #[(snippet &optional parent-field) "\212\306\307\310#\203\315 \311\312\224T\313\"\314\313!\205 \315\314\313!! \205P \316\314\317!\307\310\320#)\266\203?\205P \n\321\317\224!\321 S!\f \322\323\n \f\307\211\211\211& ,\211 \203\311 b\210 S B!B!\312\224\317\224B!B!\324\"!#>\204~ \325\326\327\"D\"\210\"\211 $\317 $\317HBI\210)\212\214\324 !%>\204\242 \325\326\323 D\"\210 \317H\324 !%>\204\270 \325\326\323 D\"\210 \330H}\210eb\210\331\" \"\210*+\202 )\f\2055\212\306&\307\310#\2054\311\313\224\313\"\211 '\2030\312\224'B!\235\2040\313\224S\206\371 `Sf\332=\2040\333\313\224'\" (\324\f!%>\204\325\326\323\fD\"\210\f\211 )\334\335\336(!!I\210*\312\224'B!B!)\202\323 )\207" [yas--field-regexp real-match-end-0 number inhibit-changing-match-data parent-field end re-search-forward nil t yas--scan-sexps 0 1 match-string-no-properties string-to-number "\\`\\$[ \n]*(" 2 string-match yas--make-marker record yas--field type-of signal wrong-type-argument yas--snippet 3 yas--field-parse-create 58 buffer-substring-no-properties 6 yas--read-lisp yas--restore-escapes start brand-new-field yas--dollar-regions snippet cl-struct-yas--snippet-tags #1=#:v cl-struct-yas--field-tags yas--multi-dollar-lisp-expression-regexp real-match-end-1 lisp-expression-string #2=#:v] 11 (#$ . 214274)]) | |
| 1366 | #@72 Parse the "${n:$(lisp-expression)}" mirror transformations in SNIPPET. | |
| 1367 | (defalias 'yas--transform-mirror-parse-create #[(snippet) "\306\307\310#\205\211 \311\312\224T\313\"\314\315\313!!\211\205$ \n\312U?\205$ \316 \n\" \205Q \f\205Q \317\312\224!\317\312\224!\320\321\322\323\224 S\"!! \324\325 \307\211\211&+\211 \203\205 \326\f! >\204g \327\330\331\fD\"\210\f\211 \332 \332HBI\210)\333 \"\210\312\224 B!B!,\202 \207" [yas--transform-mirror-regexp real-match-end-0 number snippet field transform re-search-forward nil t yas--scan-sexps 0 1 string-to-number match-string-no-properties yas--snippet-find-field yas--make-marker yas--read-lisp yas--restore-escapes buffer-substring-no-properties 2 record yas--mirror type-of signal wrong-type-argument yas--field 5 yas--calculate-simple-fom-parentage end start brand-new-mirror cl-struct-yas--field-tags #1=#:v yas--dollar-regions] 9 (#$ . 216127)]) | |
| 1368 | #@62 Parse the simple "$n" fields/mirrors/exitmarkers in SNIPPET. | |
| 1369 | (defalias 'yas--simple-fom-create #[(snippet) "\306\307\310#\205+\311\312\313!!\211\314U\203\206 \315\n! >\204# \316\317\320\nD\"\210\n\211 \321\322\314\225! \323\324 \307#)I\210)\314\224\315\211\n! >\204G \316\317\320\nD\"\210\n\321H!>\204i \316\317\324\315\n! >\204c \316\317\320\nD\"\210\n\321HD\"\210\315\n! >\204x \316\317\320\nD\"\210\n\321H\313HB B \202'\325\n \"\307 \211 \203\326 \322\314\224!\322\314\224! \323\326 \307\211\211\211&*\211 !\315 !\">\204\303 \316\317\327 D\"\210 \211 #\330!#\330HBI\210*\202 \322\314\224!\322\314\224! \323\327 \307\211\211\211\211& +\211 $\315\n! >\204\316\317\320\nD\"\210\n\211 %\331$%\331HBI\210*\332\n \"\210*\314\224\314\225B B )\202 \207" [yas--simple-mirror-regexp number snippet cl-struct-yas--snippet-tags #1=#:v marker re-search-forward nil t string-to-number match-string-no-properties 1 0 type-of signal wrong-type-argument yas--snippet 3 yas--make-marker record yas--exit yas--snippet-find-field yas--mirror yas--field 5 2 yas--calculate-simple-fom-parentage cl-struct-yas--exit-tags yas--dollar-regions fom field end start #2=#:v cl-struct-yas--field-tags #3=#:v #4=#:v #5=#:v] 11 (#$ . 217054)]) | |
| 1370 | #@65 Sort disjuct REGIONS by start point, then delete from the back. | |
| 1371 | (defalias 'yas--delete-regions #[(regions) "\301\302\303\304\"\"\207" [regions mapc #[(reg) "@A|\207" [reg] 2] sort #[(r1 r2) "@ @Y\207" [r1 r2] 2]] 5 (#$ . 218320)]) | |
| 1372 | (defalias 'yas--calculate-mirror-depth #[(mirror &optional traversed) "\306! >\204 \307\310\311D\"\210\312H\211\205) \306\n! >\204& \307\310\313\nD\"\210\n\314H \306! >\2049 \307\310\311D\"\210\315H\206z \306! >\204N \307\310\311D\"\210\211 \315>\203] \316\202x \n\203o \f\203o \317\320\f\321\322$T\202x \n\203w \323\202x \316I)*\207" [mirror cl-struct-yas--mirror-tags parent cl-struct-yas--field-tags parents-mirrors #1=#:v type-of signal wrong-type-argument yas--mirror 4 yas--field 5 6 0 cl-reduce max :key #[(m) "\303 \nB\"\207" [m mirror traversed yas--calculate-mirror-depth] 4] 1 traversed] 8]) | |
| 1373 | #@36 Update all the mirrors of SNIPPET. | |
| 1374 | (defalias 'yas--update-mirrors #[(snippet) " \214~\210\212\306\307\310\311\f! >\204 \312\313\314\fD\"\210\f\315H\"\316\317\320$ \321\211 ! \"\321 # :\203\317 @\211!\211A!\242\"\311!!$>\204R \312\313\322!D\"\210!\323H\211 %\203e \324!\325%!\"\210)\326!\"\"\210&\327=\203\247 #\311!!$>\204\210 \312\313\322!D\"\210!\330H\311!!$>\204\236 \312\313\322!D\"\210!\315HBC\244#\311\f! >\204\266 \312\313\314\fD\"\210\f\331H\211 '\203\305 \332\f'\"\210) A\211 \202/ \333 (\306#\334\317\335$ )\321\211 * +):\203)@\211*\211A*\242+\336+*\f#\210)A\211)\202\343 .\n\321\337\n!\210*\207" [most-positive-fixnum buffer-undo-list old-undo-list gc-cons-threshold snippet cl-struct-yas--snippet-tags cl-sort cl-mapcan #[(field) "\302\303\304! >\204 \305\306\307D\"\210\310H\"\207" [field cl-struct-yas--field-tags mapcar #[(mirror) " B\207" [field mirror] 2] type-of signal wrong-type-argument yas--field 5] 6] type-of signal wrong-type-argument yas--snippet 2 > :key #[(fm) "\301A!\207" [fm yas--calculate-mirror-depth] 2] nil yas--mirror 4 yas--advance-start-maybe yas--fom-start yas--mirror-update-display auto 1 6 yas--place-overlays t < car yas--indent-region yas--remove-misc-free-from-undo #1=#:--cl-var-- mirror field indent-regions cl-struct-yas--mirror-tags parent-field yas-indent-line active-field yas--inhibit-overlay-hooks #2=#:--cl-var-- end beg] 8 (#$ . 219179)]) | |
| 1375 | #@58 Update MIRROR according to FIELD (and mirror transform). | |
| 1376 | (defalias 'yas--mirror-update-display #[(mirror field) "\306! >\204 \307\310\311D\"\210\312H\211\205) \306\n! >\204& \307\310\313\nD\"\210\n\314H?\2058 \315\f\316#\2068 \317\f!\211 \205\342 \320\306! >\204N \307\310\311D\"\210\321H\306! >\204` \307\310\311D\"\210\322H\"\230?\205\342 \306! >\204x \307\310\311D\"\210\321Hb\210\323 c\210)\306! >\204\223 \307\310\311D\"\210\322H`V\203\262 `\306! >\204\253 \307\310\311D\"\210\322H|\202\342 \306! >\204\301 \307\310\311D\"\210\322H`\324\223\210\325\306! >\204\330 \307\310\311D\"\210\326H`\"\210\327\n`\"*\207" [mirror cl-struct-yas--mirror-tags mirror-parent-field cl-struct-yas--field-tags field reflection type-of signal wrong-type-argument yas--mirror 4 yas--field 7 yas--apply-transform empty-on-nil yas--field-text-for-display buffer-substring-no-properties 1 2 t nil yas--advance-start-maybe 5 yas--advance-end-of-parents-maybe yas--inhibit-overlay-hooks] 8 (#$ . 220630)]) | |
| 1377 | #@57 Much like `yas--mirror-update-display', but for fields. | |
| 1378 | (defalias 'yas--field-update-display #[(field) "\305! >\204 \306\307\310D\"\210\311H\205\360 \305! >\204$ \306\307\310D\"\210\312H\313=?\2051 \314\211\"\211\205\357 \n\315\305! >\204G \306\307\310D\"\210\316H\305! >\204Y \306\307\310D\"\210\317H\"\230?\205\357 \305! >\204q \306\307\310D\"\210\211\320\321I\210)\305! >\204\210 \306\307\310D\"\210\316Hb\210\321 \nc\210\305! >\204\241 \306\307\310D\"\210\317H`V\203\301 `\305! >\204\271 \306\307\310D\"\210\317H|\210\202\355 \305! >\204\320 \306\307\310D\"\210\317H`\322\223\210\323\305! >\204\347 \306\307\310D\"\210\324H`\"\210)\321)\207" [field cl-struct-yas--field-tags transformed #1=#:v yas--inhibit-overlay-hooks type-of signal wrong-type-argument yas--field 6 1 0 yas--apply-transform buffer-substring-no-properties 2 3 7 t nil yas--advance-start-maybe 8] 8 (#$ . 221652)]) | |
| 1379 | #@58 Handles various yasnippet conditions after each command. | |
| 1380 | (defalias 'yas--post-command-handler #[nil "\2036 \306\307!\2036 \2046 \n\310=\2036 \311\312\313\314\315\316\317!!\320\216 \321\307\"\210)r q\210\322 +$\210\323\324\325\"\210\3261\221 \327 \210\f\330=\203\207 \331 @\211 \205x \332\333\334\335\336 !'>\204_ \337\340\341 D\"\210 \342H\336 !'>\204r \337\340\341 D\"\210 \343HB\"\"\211 (\205\203 \344 (\"*\202\217 \345 ?\205\217 \346 0\207 )\337)@)A\")\207" [yas--watch-auto-fill-backtrace yas--original-auto-fill-function auto-fill-function standard-output this-command snippet fboundp backtrace--print-frame yas--auto-fill lwarn (yasnippet auto-fill bug) :error "`yas--original-auto-fill-function' unexpectedly nil! Please report this backtrace\n%S" get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] mapc buffer-string add-to-list warning-suppress-types (yasnippet auto-fill bug) (debug error) yas--finish-moving-snippets undo yas-active-snippets cl-find-if-not #[(field) "\302 \"\207" [snippet field yas--field-probably-deleted-p] 3] remq nil type-of signal wrong-type-argument yas--snippet 6 2 yas--move-to-field yas--undo-in-progress yas--check-commit-snippet cl-struct-yas--snippet-tags target-field err] 10 (#$ . 222579)]) | |
| 1381 | (put 'yas-expand 'function-documentation '(yas--expand-from-trigger-key-doc t)) | |
| 1382 | #@59 A doc synthesizer for `yas--expand-from-trigger-key-doc'. | |
| 1383 | (defalias 'yas--expand-from-trigger-key-doc #[(context) "\205 \211\304\267\202% \305 \211\203 \306\307\310\n!\"\206 \311)\202& \312\202& \313\314 \315Q*\207" [context yas-fallback-behavior fallback fallback-description #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (call-other-command 12 return-nil 33)) yas--keybinding-beyond-yasnippet format "call command `%s'." pp-to-string "do nothing (`yas-expand' doesn't override\nanything)." "do nothing." "defer to `yas-fallback-behavior' (which see)." "Expand a snippet before point. If no snippet\nexpansion is possible, " "\n\nOptional argument FIELD is for non-interactive use and is an\nobject satisfying `yas--field-p' to restrict the expansion to."] 5 (#$ . 223973)]) | |
| 1384 | (put 'yas-expand-from-keymap 'function-documentation '(yas--expand-from-keymap-doc t)) | |
| 1385 | #@54 A doc synthesizer for `yas--expand-from-keymap-doc'. | |
| 1386 | (defalias 'yas--expand-from-keymap-doc #[(context) "\306\307\310\"\210\311\205: \312=\205: \313 \314\315\316 \"\317 \320\n! \321 \205* \322\323 !\324Q \2037 \325\326\327 !\"\2068 \330Q,P\207" [context this-command vec templates yas--direct-keymaps fallback add-hook temp-buffer-show-hook yas--snippet-description-finish-runonce "Expand/run snippets from keymaps, possibly falling back to original binding.\n" describe-key this-single-command-keys cl-mapcan #[(table) "\302 \"\207" [table vec yas--fetch] 3] yas--get-snippet-tables nil key-binding "In this case, " "these snippets are bound to this key:\n" yas--template-pretty-list "\n\nIf none of these expands, " format "fallback `%s' will be called." pp-to-string "no fallback keybinding is called."] 7 (#$ . 224889)]) | |
| 1387 | (defalias 'yas--template-pretty-list #[(templates) "\305\306\n\305\211 \203$ \f@ \307\310\311 @\312Q\313 A#Q\fA\211\204\f * *\207" [yas-buffer-local-condition acc templates plate --dolist-tail-- nil always "\n*) " propertize "\\\\snippet `" "'" yasnippet] 7]) | |
| 1388 | (byte-code "\300\301\302\303\304\305\306\307\310!&\207" [define-button-type help-snippet-def :supertype help-xref help-function #[(template) "\301!\207" [template yas--visit-snippet-file-1] 2] help-echo purecopy "mouse-2, RET: find snippets's definition"] 9) | |
| 1389 | #@68 Final adjustments for the help buffer when snippets are concerned. | |
| 1390 | (defalias 'yas--snippet-description-finish-runonce #[nil "\300 \210\301\302\303\"\207" [yas--create-snippet-xrefs remove-hook temp-buffer-show-hook yas--snippet-description-finish-runonce] 3 (#$ . 226252)]) | |
| 1391 | (defalias 'yas--create-snippet-xrefs #[nil "\212eb\210\301\302\303\304#\205, \305\306\224\307\"\211\203( \310\306\311#\210\306\225\312\225|\210\312\224\306\224|\210)\202 )\207" [template search-forward-regexp "\\\\\\\\snippet[ ]+`\\([^']+\\)'" nil t get-text-property 1 yasnippet help-xref-button help-snippet-def 0] 5]) | |
| 1392 | (eldoc-add-command 'yas-next-field-or-maybe-expand 'yas-next-field 'yas-prev-field 'yas-expand 'yas-expand-from-keymap 'yas-expand-from-trigger-key) | |
| 1393 | #@76 Log level for `yas--message' 4 means trace most anything, 0 means nothing. | |
| 1394 | (defvar yas-verbosity 3 (#$ . 227007)) | |
| 1395 | #@66 When LEVEL is at or below `yas-verbosity', log MESSAGE and ARGS. | |
| 1396 | (defalias 'yas--message #[(level message &rest args) " Y\205 \302\304\305\306\n #\"\207" [yas-verbosity level message args "%s" apply yas--format] 6 (#$ . 227127)]) | |
| 1397 | (defalias 'yas--warning #[(format-control &rest format-args) "\303\304 #\305\306\n\307#\210\310\311\n\")\207" [format-control format-args msg apply format display-warning yasnippet :warning yas--message 1] 4]) | |
| 1398 | (defalias 'yas--format #[(format-control &rest format-args) "\302\303\304P #\207" [format-control format-args apply format "[yas] "] 4]) | |
| 1399 | #@52 Disable minor modes when calling `unload-feature'. | |
| 1400 | (defalias 'yasnippet-unload-function #[nil "\305\306!\210r\307 \310\211\203# @\211q\210\n\203 \302\306!\210 A\211\204 + \310 \211\203C @\211\242\311=\203< \312\fA\310\"\210 A\211\204, *\310\207" [buffer --dolist-tail-- yas-minor-mode unload-function-defs-list def yas-global-mode -1 buffer-list nil defun setplist] 4 (#$ . 227715)]) | |
| 1401 | #@63 For backward compatibility, enable `yas-minor-mode' globally. | |
| 1402 | (defalias 'yas-initialize #[nil "\300\301!\207" [yas-global-mode 1] 2 (#$ . 228116)]) | |
| 1403 | (make-obsolete 'yas-initialize "Use (yas-global-mode 1) instead." "0.8") | |
| 1404 | #@69 Backported yasnippet symbols. | |
| 1405 | ||
| 1406 | They are mapped to "yas/*" variants. | |
| 1407 | (defvar yas--backported-syms '(yas-snippet-dirs yas-prompt-functions yas-indent-line yas-also-auto-indent-first-line yas-snippet-revival yas-triggers-in-field yas-fallback-behavior yas-choose-keys-first yas-choose-tables-first yas-use-menu yas-trigger-symbol yas-wrap-around-region yas-good-grace yas-visit-from-menu yas-expand-only-for-last-commands yas-field-highlight-face yas-keymap yas-verbosity yas-extra-modes yas-key-syntaxes yas-after-exit-snippet-hook yas-before-expand-snippet-hook yas-buffer-local-condition yas-dont-activate yas-x-prompt yas-ido-prompt yas-no-prompt yas-completing-prompt yas-dropdown-prompt yas-expand yas-minor-mode yas-global-mode yas-direct-keymaps-reload yas-minor-mode-on yas-load-directory yas-reload-all yas-compile-directory yas-recompile-all yas-about yas-expand-from-trigger-key yas-expand-from-keymap yas-insert-snippet yas-visit-snippet-file yas-new-snippet yas-load-snippet-buffer yas-tryout-snippet yas-describe-tables yas-next-field-or-maybe-expand yas-next-field yas-prev-field yas-abort-snippet yas-exit-snippet yas-exit-all-snippets yas-skip-and-clear-or-delete-char yas-initialize yas-expand-snippet yas-define-snippets yas-define-menu yas-snippet-beg yas-snippet-end yas-modified-p yas-moving-away-p yas-substr yas-choose-value yas-key-to-value yas-throw yas-verify-value yas-field-value yas-text yas-selected-text yas-default-from-field yas-inside-string yas-unimplemented yas-define-condition-cache yas-hippie-try-expand) (#$ . 228343)) | |
| 1408 | (byte-code "\203O \305\211\203C @\306\307\310\311\312\n!#! \313\n!\203* \314\f\n\315#\210\316\f\n\"\210\317\n!\203; \320\f\n\315#\210\321\f\n\"\210) A\211\204\f *\320\322\323\315#\210\316\322\323\"\210\305\207" [yas-alias-to-yas/prefix-p yas--backported-syms sym --dolist-tail-- backported nil intern replace-regexp-in-string "\\`yas-" "yas/" symbol-name boundp make-obsolete-variable "yasnippet 0.8" defvaralias fboundp make-obsolete defalias yas/root-directory yas-snippet-dirs] 7) | |
| 1409 | #@195 Exported yasnippet symbols. | |
| 1410 | ||
| 1411 | i.e. the ones with "yas-" single dash prefix. I will try to | |
| 1412 | keep them in future yasnippet versions and other elisp libraries | |
| 1413 | can more or less safely rely upon them. | |
| 1414 | (defvar yas--exported-syms (byte-code "\301\302\303!\210)\207" [exported nil mapatoms #[(atom) "\303!\203\f \304N\203 \305!\2050 \306N?\2050 \307\310!\311\312\313#)\266\203\2050 \nB\211\207" [atom inhibit-changing-match-data exported boundp byte-obsolete-variable fboundp byte-obsolete-info "\\`yas-[^-]" symbol-name nil t string-match] 7]] 2) (#$ . 230399)) | |
| 1415 | (provide 'yasnippet) | |
