Bug expanding br / script

[cloudnine]

Rebuilt the hash table with the most recent snippets. json. Seemingly worked without issues.

Now as well have updated a few packages. Now errors on expansion of html snippets.

So far br and script. br hash table value

: (puthash "br" "br/" tbl)

first few errors

'(error "expected first sibling") 
(error "expected *n multiplier")

Following is error output. Final error is of course max-lisp-eval-depth ~= 900

(error "Lisp nesting exceeds ‘max-lisp-eval-depth’")

C-g halts start of error process. If anyone savvy wth elisp errors has seen this, comments greatly appreciated. When I get to it again, I will likely recompile from source before searching for an offending package. Seems likely there is an easy-fix.

Here's some of that output (~5%)

Debugger entered--Lisp error: (error "Lisp nesting exceeds ‘max-lisp-eval-depth’")
  (if (string-match (concat "^" regexp "\\([^\n]*\\)$") string) (mapcar #'(lambda (ref) (match-string ref string)) (if (sequencep refs) refs (list refs))) nil)
  emmet-regex("\\([a-zA-Z!][a-zA-Z0-9:!$@-]*/?\\)" "script" (0 1 2))
  (let ((it (emmet-regex "\\([a-zA-Z!][a-zA-Z0-9:!$@-]*/?\\)" input '(0 1 2)))) (if it (let ((input (elt it 2))) (let* ((tag-spec (elt it 1)) (empty-tag (emmet-regex "\\([^/]*\\)/" tag-spec 1)) (tag (emmet-split-numbering-expressions (if empty-tag ... tag-spec)))) (cons (cons 'tagname (cons tag (not empty-tag))) input))) (list 'error (concat "expected " "tagname, a-zA-Z0-9"))))
  emmet-tagname("script")
  (let ((it (emmet-tagname input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) (let ((tagname (car (cdr expr))) (has-body\? (cdr (cdr expr)))) (let ((it (let ... ...))) (if (not (eq ... ...)) (let (... ...) (let ... ...)) it)))) (emmet-default-tag input)))
  emmet-tag("script")
  (let ((it (emmet-tag input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-text input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) '(error "expected *n multiplier")))))
  (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-tag input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-text input))) (if (not (eq 'error (car it))) (let ((input ...) (expr ...)) it) '(error "expected *n multiplier"))))))
  (let ((it (emmet-pexpr input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-tag input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-text input))) (if (not (eq ... ...)) (let (... ...) it) '(error "expected *n multiplier")))))))
  (let ((it (let ((it (emmet-pexpr input))) (if (not (eq 'error (car it))) (let ((input ...) (expr ...)) it) (let ((it ...)) (if (not ...) (let ... it) (let ... ...))))))) (if (not (eq 'error (car it))) (let* ((expr (car it)) (input (cdr it)) (multiplier expr)) (let ((it (emmet-regex "\\*\\([0-9]+\\)" input '...))) (if it (let ((input ...)) (let (...) (cons ... input))) (list 'error (concat "expected " "*n where n is a number"))))) it))
  emmet-multiplier("script")
  (let ((it (emmet-multiplier input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-tag input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-text input))) (if (not (eq ... ...)) (let (... ...) it) '(error "expected sibling")))))))
  (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-multiplier input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-tag input))) (if (not (eq 'error (car it))) (let ((input ...) (expr ...)) it) (let ((it ...)) (if (not ...) (let ... it) '...)))))))
  (let ((it (emmet-pexpr input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-multiplier input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-tag input))) (if (not (eq ... ...)) (let (... ...) it) (let (...) (if ... ... ...))))))))
  emmet-sibling("script")
  (let ((it (emmet-sibling input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) (let ((parent expr)) (let ((it (emmet-regex "\\+" input ...))) (if it (let (...) (let ... ...)) (list 'error (concat "expected " "+")))))) '(error "expected first sibling")))
  emmet-siblings("script")
  (let ((it (emmet-siblings input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-parent-child input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-multiplier input))) (if (not (eq ... ...)) (let (... ...) it) (let (...) (if ... ... ...))))))))
  emmet-subexpr("script")
  (if (stringp it) (emmet-subexpr it) it)
  (let ((expr (if (stringp it) (emmet-subexpr it) it))) (prog1 (let ((rt (copy-tree expr))) (let ((first-tag-data (car (cdr ...)))) (let* ((v first-tag-data)) (setcar (cdr v) (car (cdr tag-data)))) (let* ((v (cdr ...))) (setcar v (car (cdr ...)))) (let* ((v (cdr ...))) (setcar v (remove-duplicates (append ... ...) :test #'string=))) (let* ((v first-tag-data)) (setcar (nthcdr 4 v) (remove-duplicates (append ... ...) :test #'...))) (let* ((v first-tag-data)) (setcar (nthcdr 5 v) (sixth tag-data))) (let* ((v rt)) (setcdr v (concat (cdr rt) input))) rt)) (puthash tag-name expr emmet-tag-aliases-table)))
 
deleted...

  (let ((it (let ((it (emmet-properties input))) (if (not (eq 'error (car it))) (let ((input ...) (expr ...)) (let (...) (cons ... input))) (cons (list 'tag (append tag-data ...)) input))))) (if (not (eq 'error (car it))) (let ((expr (car it)) (input (cdr it))) (let* ((input (emmet-tag-text expr input)) (expr (if input (car-safe ...) (signal ... ...)))) (or (emmet-expand-lorem expr input) (emmet-expand-tag-alias expr input)))) it))
  (let ((tag-data (car (cdr (car it)))) (input (cdr it))) (let ((it (let ((it (emmet-properties input))) (if (not (eq ... ...)) (let (... ...) (let ... ...)) (cons (list ... ...) input))))) (if (not (eq 'error (car it))) (let ((expr (car it)) (input (cdr it))) (let* ((input (emmet-tag-text expr input)) (expr (if input ... ...))) (or (emmet-expand-lorem expr input) (emmet-expand-tag-alias expr input)))) it)))
  (if (not (eq 'error (car it))) (let ((tag-data (car (cdr (car it)))) (input (cdr it))) (let ((it (let ((it ...)) (if (not ...) (let ... ...) (cons ... input))))) (if (not (eq 'error (car it))) (let ((expr (car it)) (input (cdr it))) (let* ((input ...) (expr ...)) (or (emmet-expand-lorem expr input) (emmet-expand-tag-alias expr input)))) it))) it)
  (let ((it (let ((it (emmet-identifier input))) (if (not (eq 'error (car it))) (let ((input ...) (expr ...)) (emmet-tag-classes (list ... ...) input)) (emmet-tag-classes (list 'tag (cons tagname ...)) input))))) (if (not (eq 'error (car it))) (let ((tag-data (car (cdr (car it)))) (input (cdr it))) (let ((it (let (...) (if ... ... ...)))) (if (not (eq 'error (car it))) (let ((expr ...) (input ...)) (let* (... ...) (or ... ...))) it))) it))
  (let ((tagname (car (cdr expr))) (has-body\? (cdr (cdr expr)))) (let ((it (let ((it (emmet-identifier input))) (if (not (eq ... ...)) (let (... ...) (emmet-tag-classes ... input)) (emmet-tag-classes (list ... ...) input))))) (if (not (eq 'error (car it))) (let ((tag-data (car (cdr ...))) (input (cdr it))) (let ((it (let ... ...))) (if (not (eq ... ...)) (let (... ...) (let* ... ...)) it))) it)))
  (let ((input (cdr it)) (expr (car it))) (let ((tagname (car (cdr expr))) (has-body\? (cdr (cdr expr)))) (let ((it (let ((it ...)) (if (not ...) (let ... ...) (emmet-tag-classes ... input))))) (if (not (eq 'error (car it))) (let ((tag-data (car ...)) (input (cdr it))) (let ((it ...)) (if (not ...) (let ... ...) it))) it))))
  (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) (let ((tagname (car (cdr expr))) (has-body\? (cdr (cdr expr)))) (let ((it (let (...) (if ... ... ...)))) (if (not (eq 'error (car it))) (let ((tag-data ...) (input ...)) (let (...) (if ... ... it))) it)))) (emmet-default-tag input))
  (let ((it (emmet-tagname input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) (let ((tagname (car (cdr expr))) (has-body\? (cdr (cdr expr)))) (let ((it (let ... ...))) (if (not (eq ... ...)) (let (... ...) (let ... ...)) it)))) (emmet-default-tag input)))
  emmet-tag("script")
  (let ((it (emmet-tag input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-text input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) '(error "expected *n multiplier")))))
  (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-tag input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-text input))) (if (not (eq 'error (car it))) (let ((input ...) (expr ...)) it) '(error "expected *n multiplier"))))))
  (let ((it (emmet-pexpr input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-tag input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-text input))) (if (not (eq ... ...)) (let (... ...) it) '(error "expected *n multiplier")))))))
  (let ((it (let ((it (emmet-pexpr input))) (if (not (eq 'error (car it))) (let ((input ...) (expr ...)) it) (let ((it ...)) (if (not ...) (let ... it) (let ... ...))))))) (if (not (eq 'error (car it))) (let* ((expr (car it)) (input (cdr it)) (multiplier expr)) (let ((it (emmet-regex "\\*\\([0-9]+\\)" input '...))) (if it (let ((input ...)) (let (...) (cons ... input))) (list 'error (concat "expected " "*n where n is a number"))))) it))
  emmet-multiplier("script")
  (let ((it (emmet-multiplier input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-tag input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-text input))) (if (not (eq ... ...)) (let (... ...) it) '(error "expected sibling")))))))
  (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-multiplier input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-tag input))) (if (not (eq 'error (car it))) (let ((input ...) (expr ...)) it) (let ((it ...)) (if (not ...) (let ... it) '...)))))))
  (let ((it (emmet-pexpr input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-multiplier input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-tag input))) (if (not (eq ... ...)) (let (... ...) it) (let (...) (if ... ... ...))))))))
  emmet-sibling("script")
  (let ((it (emmet-sibling input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) (let ((parent expr)) (let ((it (emmet-regex "\\+" input ...))) (if it (let (...) (let ... ...)) (list 'error (concat "expected " "+")))))) '(error "expected first sibling")))
  emmet-siblings("script")
  (let ((it (emmet-siblings input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-parent-child input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-multiplier input))) (if (not (eq ... ...)) (let (... ...) it) (let (...) (if ... ... ...))))))))
  emmet-subexpr("script")
  (if (stringp it) (emmet-subexpr it) it)
  (let ((expr (if (stringp it) (emmet-subexpr it) it))) (prog1 (let ((rt (copy-tree expr))) (let ((first-tag-data (car (cdr ...)))) (let* ((v first-tag-data)) (setcar (cdr v) (car (cdr tag-data)))) (let* ((v (cdr ...))) (setcar v (car (cdr ...)))) (let* ((v (cdr ...))) (setcar v (remove-duplicates (append ... ...) :test #'string=))) (let* ((v first-tag-data)) (setcar (nthcdr 4 v) (remove-duplicates (append ... ...) :test #'...))) (let* ((v first-tag-data)) (setcar (nthcdr 5 v) (sixth tag-data))) (let* ((v rt)) (setcdr v (concat (cdr rt) input))) rt)) (puthash tag-name expr emmet-tag-aliases-table)))
  (if it (let ((expr (if (stringp it) (emmet-subexpr it) it))) (prog1 (let ((rt (copy-tree expr))) (let ((first-tag-data (car ...))) (let* ((v first-tag-data)) (setcar (cdr v) (car ...))) (let* ((v ...)) (setcar v (car ...))) (let* ((v ...)) (setcar v (remove-duplicates ... :test ...))) (let* ((v first-tag-data)) (setcar (nthcdr 4 v) (remove-duplicates ... :test ...))) (let* ((v first-tag-data)) (setcar (nthcdr 5 v) (sixth tag-data))) (let* ((v rt)) (setcdr v (concat ... input))) rt)) (puthash tag-name expr emmet-tag-aliases-table))) (cons tag input))
  (let ((it (gethash tag-name emmet-tag-aliases-table))) (if it (let ((expr (if (stringp it) (emmet-subexpr it) it))) (prog1 (let ((rt (copy-tree expr))) (let ((first-tag-data ...)) (let* (...) (setcar ... ...)) (let* (...) (setcar v ...)) (let* (...) (setcar v ...)) (let* (...) (setcar ... ...)) (let* (...) (setcar ... ...)) (let* (...) (setcdr v ...)) rt)) (puthash tag-name expr emmet-tag-aliases-table))) (cons tag input)))
  (let ((tag-name (car tag-data))) (let ((it (gethash tag-name emmet-tag-aliases-table))) (if it (let ((expr (if (stringp it) (emmet-subexpr it) it))) (prog1 (let ((rt ...)) (let (...) (let* ... ...) (let* ... ...) (let* ... ...) (let* ... ...) (let* ... ...) (let* ... ...) rt)) (puthash tag-name expr emmet-tag-aliases-table))) (cons tag input))))
  (let ((tag-data (car (cdr tag)))) (let ((tag-name (car tag-data))) (let ((it (gethash tag-name emmet-tag-aliases-table))) (if it (let ((expr (if ... ... it))) (prog1 (let (...) (let ... ... ... ... ... ... ... rt)) (puthash tag-name expr emmet-tag-aliases-table))) (cons tag input)))))
  emmet-expand-tag-alias((tag ("script" t nil nil nil nil)) "")
  (or (emmet-expand-lorem expr input) (emmet-expand-tag-alias expr input))
  (let* ((input (emmet-tag-text expr input)) (expr (if input (car-safe (prog1 input (setq input (cdr input)))) (signal 'wrong-number-of-arguments (list '(expr . input) (length input)))))) (or (emmet-expand-lorem expr input) (emmet-expand-tag-alias expr input)))
  (let ((expr (car it)) (input (cdr it))) (let* ((input (emmet-tag-text expr input)) (expr (if input (car-safe (prog1 input (setq input ...))) (signal 'wrong-number-of-arguments (list '... (length input)))))) (or (emmet-expand-lorem expr input) (emmet-expand-tag-alias expr input))))
  (if (not (eq 'error (car it))) (let ((expr (car it)) (input (cdr it))) (let* ((input (emmet-tag-text expr input)) (expr (if input (car-safe (prog1 input ...)) (signal 'wrong-number-of-arguments (list ... ...))))) (or (emmet-expand-lorem expr input) (emmet-expand-tag-alias expr input)))) it)
  (let ((it (let ((it (emmet-properties input))) (if (not (eq 'error (car it))) (let ((input ...) (expr ...)) (let (...) (cons ... input))) (cons (list 'tag (append tag-data ...)) input))))) (if (not (eq 'error (car it))) (let ((expr (car it)) (input (cdr it))) (let* ((input (emmet-tag-text expr input)) (expr (if input (car-safe ...) (signal ... ...)))) (or (emmet-expand-lorem expr input) (emmet-expand-tag-alias expr input)))) it))
  (let ((tag-data (car (cdr (car it)))) (input (cdr it))) (let ((it (let ((it (emmet-properties input))) (if (not (eq ... ...)) (let (... ...) (let ... ...)) (cons (list ... ...) input))))) (if (not (eq 'error (car it))) (let ((expr (car it)) (input (cdr it))) (let* ((input (emmet-tag-text expr input)) (expr (if input ... ...))) (or (emmet-expand-lorem expr input) (emmet-expand-tag-alias expr input)))) it)))
  (if (not (eq 'error (car it))) (let ((tag-data (car (cdr (car it)))) (input (cdr it))) (let ((it (let ((it ...)) (if (not ...) (let ... ...) (cons ... input))))) (if (not (eq 'error (car it))) (let ((expr (car it)) (input (cdr it))) (let* ((input ...) (expr ...)) (or (emmet-expand-lorem expr input) (emmet-expand-tag-alias expr input)))) it))) it)
  (let ((it (let ((it (emmet-identifier input))) (if (not (eq 'error (car it))) (let ((input ...) (expr ...)) (emmet-tag-classes (list ... ...) input)) (emmet-tag-classes (list 'tag (cons tagname ...)) input))))) (if (not (eq 'error (car it))) (let ((tag-data (car (cdr (car it)))) (input (cdr it))) (let ((it (let (...) (if ... ... ...)))) (if (not (eq 'error (car it))) (let ((expr ...) (input ...)) (let* (... ...) (or ... ...))) it))) it))
  (let ((tagname (car (cdr expr))) (has-body\? (cdr (cdr expr)))) (let ((it (let ((it (emmet-identifier input))) (if (not (eq ... ...)) (let (... ...) (emmet-tag-classes ... input)) (emmet-tag-classes (list ... ...) input))))) (if (not (eq 'error (car it))) (let ((tag-data (car (cdr ...))) (input (cdr it))) (let ((it (let ... ...))) (if (not (eq ... ...)) (let (... ...) (let* ... ...)) it))) it)))
  (let ((input (cdr it)) (expr (car it))) (let ((tagname (car (cdr expr))) (has-body\? (cdr (cdr expr)))) (let ((it (let ((it ...)) (if (not ...) (let ... ...) (emmet-tag-classes ... input))))) (if (not (eq 'error (car it))) (let ((tag-data (car ...)) (input (cdr it))) (let ((it ...)) (if (not ...) (let ... ...) it))) it))))
  (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) (let ((tagname (car (cdr expr))) (has-body\? (cdr (cdr expr)))) (let ((it (let (...) (if ... ... ...)))) (if (not (eq 'error (car it))) (let ((tag-data ...) (input ...)) (let (...) (if ... ... it))) it)))) (emmet-default-tag input))
  (let ((it (emmet-tagname input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) (let ((tagname (car (cdr expr))) (has-body\? (cdr (cdr expr)))) (let ((it (let ... ...))) (if (not (eq ... ...)) (let (... ...) (let ... ...)) it)))) (emmet-default-tag input)))
  emmet-tag("script")
  (let ((it (emmet-tag input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-text input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) '(error "expected *n multiplier")))))
  (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-tag input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-text input))) (if (not (eq 'error (car it))) (let ((input ...) (expr ...)) it) '(error "expected *n multiplier"))))))
  (let ((it (emmet-pexpr input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-tag input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-text input))) (if (not (eq ... ...)) (let (... ...) it) '(error "expected *n multiplier")))))))
  (let ((it (let ((it (emmet-pexpr input))) (if (not (eq 'error (car it))) (let ((input ...) (expr ...)) it) (let ((it ...)) (if (not ...) (let ... it) (let ... ...))))))) (if (not (eq 'error (car it))) (let* ((expr (car it)) (input (cdr it)) (multiplier expr)) (let ((it (emmet-regex "\\*\\([0-9]+\\)" input '...))) (if it (let ((input ...)) (let (...) (cons ... input))) (list 'error (concat "expected " "*n where n is a number"))))) it))
  emmet-multiplier("script")
  (let ((it (emmet-multiplier input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-tag input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-text input))) (if (not (eq ... ...)) (let (... ...) it) '(error "expected sibling")))))))
  (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-multiplier input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-tag input))) (if (not (eq 'error (car it))) (let ((input ...) (expr ...)) it) (let ((it ...)) (if (not ...) (let ... it) '...)))))))
  (let ((it (emmet-pexpr input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-multiplier input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-tag input))) (if (not (eq ... ...)) (let (... ...) it) (let (...) (if ... ... ...))))))))
  emmet-sibling("script")
  (let ((it (emmet-sibling input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) (let ((parent expr)) (let ((it (emmet-regex "\\+" input ...))) (if it (let (...) (let ... ...)) (list 'error (concat "expected " "+")))))) '(error "expected first sibling")))
  emmet-siblings("script")
  (let ((it (emmet-siblings input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-parent-child input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-multiplier input))) (if (not (eq ... ...)) (let (... ...) it) (let (...) (if ... ... ...))))))))
  emmet-subexpr("script")
  (if (stringp it) (emmet-subexpr it) it)
  (let ((expr (if (stringp it) (emmet-subexpr it) it))) (prog1 (let ((rt (copy-tree expr))) (let ((first-tag-data (car (cdr ...)))) (let* ((v first-tag-data)) (setcar (cdr v) (car (cdr tag-data)))) (let* ((v (cdr ...))) (setcar v (car (cdr ...)))) (let* ((v (cdr ...))) (setcar v (remove-duplicates (append ... ...) :test #'string=))) (let* ((v first-tag-data)) (setcar (nthcdr 4 v) (remove-duplicates (append ... ...) :test #'...))) (let* ((v first-tag-data)) (setcar (nthcdr 5 v) (sixth tag-data))) (let* ((v rt)) (setcdr v (concat (cdr rt) input))) rt)) (puthash tag-name expr emmet-tag-aliases-table)))
  (if it (let ((expr (if (stringp it) (emmet-subexpr it) it))) (prog1 (let ((rt (copy-tree expr))) (let ((first-tag-data (car ...))) (let* ((v first-tag-data)) (setcar (cdr v) (car ...))) (let* ((v ...)) (setcar v (car ...))) (let* ((v ...)) (setcar v (remove-duplicates ... :test ...))) (let* ((v first-tag-data)) (setcar (nthcdr 4 v) (remove-duplicates ... :test ...))) (let* ((v first-tag-data)) (setcar (nthcdr 5 v) (sixth tag-data))) (let* ((v rt)) (setcdr v (concat ... input))) rt)) (puthash tag-name expr emmet-tag-aliases-table))) (cons tag input))
  (let ((it (gethash tag-name emmet-tag-aliases-table))) (if it (let ((expr (if (stringp it) (emmet-subexpr it) it))) (prog1 (let ((rt (copy-tree expr))) (let ((first-tag-data ...)) (let* (...) (setcar ... ...)) (let* (...) (setcar v ...)) (let* (...) (setcar v ...)) (let* (...) (setcar ... ...)) (let* (...) (setcar ... ...)) (let* (...) (setcdr v ...)) rt)) (puthash tag-name expr emmet-tag-aliases-table))) (cons tag input)))
  (let ((tag-name (car tag-data))) (let ((it (gethash tag-name emmet-tag-aliases-table))) (if it (let ((expr (if (stringp it) (emmet-subexpr it) it))) (prog1 (let ((rt ...)) (let (...) (let* ... ...) (let* ... ...) (let* ... ...) (let* ... ...) (let* ... ...) (let* ... ...) rt)) (puthash tag-name expr emmet-tag-aliases-table))) (cons tag input))))
  (let ((tag-data (car (cdr tag)))) (let ((tag-name (car tag-data))) (let ((it (gethash tag-name emmet-tag-aliases-table))) (if it (let ((expr (if ... ... it))) (prog1 (let (...) (let ... ... ... ... ... ... ... rt)) (puthash tag-name expr emmet-tag-aliases-table))) (cons tag input)))))
  emmet-expand-tag-alias((tag ("script" t nil nil nil nil)) "")
  (or (emmet-expand-lorem expr input) (emmet-expand-tag-alias expr input))
  (let* ((input (emmet-tag-text expr input)) (expr (if input (car-safe (prog1 input (setq input (cdr input)))) (signal 'wrong-number-of-arguments (list '(expr . input) (length input)))))) (or (emmet-expand-lorem expr input) (emmet-expand-tag-alias expr input)))
  (let ((expr (car it)) (input (cdr it))) (let* ((input (emmet-tag-text expr input)) (expr (if input (car-safe (prog1 input (setq input ...))) (signal 'wrong-number-of-arguments (list '... (length input)))))) (or (emmet-expand-lorem expr input) (emmet-expand-tag-alias expr input))))
  (if (not (eq 'error (car it))) (let ((expr (car it)) (input (cdr it))) (let* ((input (emmet-tag-text expr input)) (expr (if input (car-safe (prog1 input ...)) (signal 'wrong-number-of-arguments (list ... ...))))) (or (emmet-expand-lorem expr input) (emmet-expand-tag-alias expr input)))) it)
  (let ((it (let ((it (emmet-properties input))) (if (not (eq 'error (car it))) (let ((input ...) (expr ...)) (let (...) (cons ... input))) (cons (list 'tag (append tag-data ...)) input))))) (if (not (eq 'error (car it))) (let ((expr (car it)) (input (cdr it))) (let* ((input (emmet-tag-text expr input)) (expr (if input (car-safe ...) (signal ... ...)))) (or (emmet-expand-lorem expr input) (emmet-expand-tag-alias expr input)))) it))
  (let ((tag-data (car (cdr (car it)))) (input (cdr it))) (let ((it (let ((it (emmet-properties input))) (if (not (eq ... ...)) (let (... ...) (let ... ...)) (cons (list ... ...) input))))) (if (not (eq 'error (car it))) (let ((expr (car it)) (input (cdr it))) (let* ((input (emmet-tag-text expr input)) (expr (if input ... ...))) (or (emmet-expand-lorem expr input) (emmet-expand-tag-alias expr input)))) it)))
  (if (not (eq 'error (car it))) (let ((tag-data (car (cdr (car it)))) (input (cdr it))) (let ((it (let ((it ...)) (if (not ...) (let ... ...) (cons ... input))))) (if (not (eq 'error (car it))) (let ((expr (car it)) (input (cdr it))) (let* ((input ...) (expr ...)) (or (emmet-expand-lorem expr input) (emmet-expand-tag-alias expr input)))) it))) it)
  (let ((it (let ((it (emmet-identifier input))) (if (not (eq 'error (car it))) (let ((input ...) (expr ...)) (emmet-tag-classes (list ... ...) input)) (emmet-tag-classes (list 'tag (cons tagname ...)) input))))) (if (not (eq 'error (car it))) (let ((tag-data (car (cdr (car it)))) (input (cdr it))) (let ((it (let (...) (if ... ... ...)))) (if (not (eq 'error (car it))) (let ((expr ...) (input ...)) (let* (... ...) (or ... ...))) it))) it))
  (let ((tagname (car (cdr expr))) (has-body\? (cdr (cdr expr)))) (let ((it (let ((it (emmet-identifier input))) (if (not (eq ... ...)) (let (... ...) (emmet-tag-classes ... input)) (emmet-tag-classes (list ... ...) input))))) (if (not (eq 'error (car it))) (let ((tag-data (car (cdr ...))) (input (cdr it))) (let ((it (let ... ...))) (if (not (eq ... ...)) (let (... ...) (let* ... ...)) it))) it)))
  (let ((input (cdr it)) (expr (car it))) (let ((tagname (car (cdr expr))) (has-body\? (cdr (cdr expr)))) (let ((it (let ((it ...)) (if (not ...) (let ... ...) (emmet-tag-classes ... input))))) (if (not (eq 'error (car it))) (let ((tag-data (car ...)) (input (cdr it))) (let ((it ...)) (if (not ...) (let ... ...) it))) it))))
  (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) (let ((tagname (car (cdr expr))) (has-body\? (cdr (cdr expr)))) (let ((it (let (...) (if ... ... ...)))) (if (not (eq 'error (car it))) (let ((tag-data ...) (input ...)) (let (...) (if ... ... it))) it)))) (emmet-default-tag input))
  (let ((it (emmet-tagname input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) (let ((tagname (car (cdr expr))) (has-body\? (cdr (cdr expr)))) (let ((it (let ... ...))) (if (not (eq ... ...)) (let (... ...) (let ... ...)) it)))) (emmet-default-tag input)))
  emmet-tag("script")
  (let ((it (emmet-tag input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-text input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) '(error "expected *n multiplier")))))
  (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-tag input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-text input))) (if (not (eq 'error (car it))) (let ((input ...) (expr ...)) it) '(error "expected *n multiplier"))))))
  (let ((it (emmet-pexpr input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-tag input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-text input))) (if (not (eq ... ...)) (let (... ...) it) '(error "expected *n multiplier")))))))
  (let ((it (let ((it (emmet-pexpr input))) (if (not (eq 'error (car it))) (let ((input ...) (expr ...)) it) (let ((it ...)) (if (not ...) (let ... it) (let ... ...))))))) (if (not (eq 'error (car it))) (let* ((expr (car it)) (input (cdr it)) (multiplier expr)) (let ((it (emmet-regex "\\*\\([0-9]+\\)" input '...))) (if it (let ((input ...)) (let (...) (cons ... input))) (list 'error (concat "expected " "*n where n is a number"))))) it))
  emmet-multiplier("script")
  (let ((it (emmet-multiplier input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-tag input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-text input))) (if (not (eq ... ...)) (let (... ...) it) '(error "expected sibling")))))))
  (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-multiplier input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-tag input))) (if (not (eq 'error (car it))) (let ((input ...) (expr ...)) it) (let ((it ...)) (if (not ...) (let ... it) '...)))))))
  (let ((it (emmet-pexpr input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-multiplier input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-tag input))) (if (not (eq ... ...)) (let (... ...) it) (let (...) (if ... ... ...))))))))
  emmet-sibling("script")
  (let ((it (emmet-sibling input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) (let ((parent expr)) (let ((it (emmet-regex "\\+" input ...))) (if it (let (...) (let ... ...)) (list 'error (concat "expected " "+")))))) '(error "expected first sibling")))
  emmet-siblings("script")
  (let ((it (emmet-siblings input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-parent-child input))) (if (not (eq 'error (car it))) (let ((input (cdr it)) (expr (car it))) it) (let ((it (emmet-multiplier input))) (if (not (eq ... ...)) (let (... ...) it) (let (...) (if ... ... ...))))))))
  emmet-subexpr("script")
  (let ((it (emmet-subexpr input))) (if (not (eq 'error (car it))) (let ((result (car it)) (rest (cdr it))) (cons (list 'filter filters result) rest)) it))
  emmet-filter("script" ("html"))
  (if (not (eq 'error (car it))) (let ((input (elt it 1)) (filters (elt it 2))) (let ((it (emmet-extract-filters filters))) (if (not (eq 'error (car it))) (emmet-filter input it) it))) (emmet-filter input (emmet-default-filter)))
  (let ((it (let ((it (emmet-regex "\\(.*?\\)|" input '...))) (if it (let ((input ...)) it) (list 'error (concat "expected " "expr|filter")))))) (if (not (eq 'error (car it))) (let ((input (elt it 1)) (filters (elt it 2))) (let ((it (emmet-extract-filters filters))) (if (not (eq 'error (car it))) (emmet-filter input it) it))) (emmet-filter input (emmet-default-filter))))
  emmet-expr("script")
  (car (emmet-expr input))
  (let ((ast (car (emmet-expr input)))) (if (not (eq ast 'error)) (progn (emmet-transform-ast-with-filters ast))))
  emmet-html-transform("script")
  (if (or (emmet-detect-style-tag-and-attr) emmet-use-css-transform) (emmet-css-transform input) (emmet-html-transform input))
  emmet-transform("script")
  (let ((markup (emmet-transform (first expr)))) (if markup (progn (delete-region (car (cdr expr)) (car (cdr (cdr expr)))) (emmet-insert-and-flash markup) (emmet-reposition-cursor expr))))
  (if expr (let ((markup (emmet-transform (first expr)))) (if markup (progn (delete-region (car (cdr expr)) (car (cdr (cdr expr)))) (emmet-insert-and-flash markup) (emmet-reposition-cursor expr)))))
  (let ((expr (emmet-expr-on-line))) (if expr (let ((markup (emmet-transform (first expr)))) (if markup (progn (delete-region (car (cdr expr)) (car (cdr ...))) (emmet-insert-and-flash markup) (emmet-reposition-cursor expr))))))
  (if (and preview beg) (progn (goto-char here) (emmet-preview beg end)) (let ((expr (emmet-expr-on-line))) (if expr (let ((markup (emmet-transform (first expr)))) (if markup (progn (delete-region (car ...) (car ...)) (emmet-insert-and-flash markup) (emmet-reposition-cursor expr)))))))
  (let* ((here (point)) (preview (if emmet-preview-default (not arg) arg)) (beg (if preview (emmet-find-left-bound) (if (use-region-p) (progn (region-beginning))))) (end (if preview here (if (use-region-p) (progn (region-end)))))) (if (and preview beg) (progn (goto-char here) (emmet-preview beg end)) (let ((expr (emmet-expr-on-line))) (if expr (let ((markup (emmet-transform ...))) (if markup (progn (delete-region ... ...) (emmet-insert-and-flash markup) (emmet-reposition-cursor expr))))))))
  emmet-expand-line(nil)
  funcall-interactively(emmet-expand-line nil)
  #<subr call-interactively>(emmet-expand-line nil nil)
  ad-Advice-call-interactively(#<subr call-interactively> emmet-expand-line nil nil)
  apply(ad-Advice-call-interactively #<subr call-interactively> (emmet-expand-line nil nil))
  call-interactively(emmet-expand-line nil nil)
  command-execute(emmet-expand-line)