ld/yasnippet
1
0
Fork 0
mirror of https://github.com/joaotavora/yasnippet.git synced 2025-10-13 05:03:04 +00:00
Code Issues Packages Projects Releases Wiki Activity

* yasnippet.el (debug-ignored-errors): Don't modify it

Browse Source 
(debug-ignored-errors): Remove left over code that became obsolete with
commit 175e0a3a102c22.
(yas--read-lisp): Fix code generation.
(yas-exception): Use `define-error`.
This commit is contained in:
Stefan Monnier 2023-08-13 15:45:23 -04:00
parent 58c92ba393
commit 52a1c50319
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
yasnippet.el
View File

@ -1490,7 +1490,7 @@ return an expression that when evaluated will issue an error."
(condition-case err
(read string)
(error (and (not nil-on-error)
`(error (error-message-string ,err))))))
`(error (error-message-string ',err))))))
(defun yas--read-keybinding (keybinding)
"Read KEYBINDING as a snippet keybinding, return a vector."
@ -3041,8 +3041,7 @@ snippet field. The arguments are the same as `completing-read'.
(defun yas-throw (text)
"Signal `yas-exception' with TEXT as the reason."
(signal 'yas-exception (list text)))
(put 'yas-exception 'error-conditions '(error yas-exception))
(put 'yas-exception 'error-message "[yas] Exception")
(define-error 'yas-exception "[yas] Exception")
(defun yas-verify-value (possibilities)
"Verify that the current field value is in POSSIBILITIES.
@ -3943,8 +3942,6 @@ Move the overlays, or create them if they do not exit."
(cl-loop for snippet in snippets
do (yas--commit-snippet snippet)))))
(add-to-list 'debug-ignored-errors "^Exit the snippet first!$")
;;; Snippet expansion and "stacked" expansion:
;;