Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Why am I getting `max-specpdl-size` error on one markdown file?
markdown-fenced-block-pairs is a variable defined in ‘markdown-mode.el’.
Its value is shown below.
This variable may be risky if used as a file-local variable.
Documentation:
Mapping of regular expressions to "fenced-block" constructs.
These constructs are distinguished by having a distinctive start
and end pattern, both of which take up an entire line of text,
but no special pattern to identify text within the fenced
blocks (unlike blockquotes and indented-code sections).
Each element within this list takes the form:
((START-REGEX-OR-FUN START-PROPERTY)
(END-REGEX-OR-FUN END-PROPERTY)
MIDDLE-PROPERTY)
Each *-REGEX-OR-FUN element can be a regular expression as a string, or a
function which evaluates to same. Functions for START-REGEX-OR-FUN accept no
arguments, but functions for END-REGEX-OR-FUN accept a single numerical argument
which is the length of the first group of the START-REGEX-OR-FUN match, which
can be ignored if unnecessary. ‘markdown-maybe-funcall-regexp’ is used to
evaluate these into "real" regexps.
The *-PROPERTY elements are the text properties applied to each part of the
block construct when it is matched using
‘markdown-syntax-propertize-fenced-block-constructs’. START-PROPERTY is applied
to the text matching START-REGEX-OR-FUN, END-PROPERTY to END-REGEX-OR-FUN, and
MIDDLE-PROPERTY to the text in between the two. The value of *-PROPERTY is the
‘match-data’ when the regexp was matched to the text. In the case of
MIDDLE-PROPERTY, the value is a false match data of the form ’(begin end), with
begin and end set to the edges of the "middle" text. This makes fontification
easier.
Value:
((("^[[:blank:]]*\\([~]\\{3,\\}\\)\\([[:blank:]]*{?\\)[[:blank:]]*\\([^[:space:]]+?\\)?\\(?:[[:blank:]]+\\(.+?\\)\\)?\\([[:blank:]]*}?[[:blank:]]*\\)$" markdown-tilde-fence-begin)
(markdown-make-tilde-fence-regex markdown-tilde-fence-end)
markdown-fenced-code)
((markdown-get-yaml-metadata-start-border markdown-yaml-metadata-begin)
(markdown-get-yaml-metadata-end-border markdown-yaml-metadata-end)
markdown-yaml-metadata-section)
(("^[[:blank:]]*\\(```\\)\\([[:blank:]]*{?[[:blank:]]*\\)\\([^[:space:]]+?\\)?\\(?:[[:blank:]]+\\(.+?\\)\\)?\\([[:blank:]]*}?[[:blank:]]*\\)$" markdown-gfm-block-begin)
("^[[:blank:]]*\\(```\\)\\(\\s *?\\)$" markdown-gfm-block-end)
markdown-gfm-code))
Debugger entered--Lisp error: (error "Variable binding depth exceeds max-specpdl-size")
(function (lambda (entry) (car (cdr (car entry)))))
(cl-mapcar (function (lambda (entry) (car (cdr (car entry))))) markdown-fenced-block-pairs)
markdown-get-fenced-block-begin-properties()
(cl-find-if (function markdown-text-property-at-point) (markdown-get-fenced-block-begin-properties))
(list (quote markdown-get-fenced-block-from-start) (cl-find-if (function markdown-text-property-at-point) (markdown-get-fenced-block-begin-properties)))
(list (list (quote markdown-get-fenced-block-from-start) (cl-find-if (function markdown-text-property-at-point) (markdown-get-fenced-block-begin-properties))) (list (quote markdown-get-fenced-block-from-middle) (cl-find-if (function markdown-text-property-at-point) (markdown-get-fenced-block-middle-properties))) (list (quote markdown-get-fenced-block-from-end) (cl-find-if (function markdown-text-property-at-point) (markdown-get-fenced-block-end-properties))))
(cl-mapcar (function (lambda (fun-and-prop) (let* ((--cl-rest-- fun-and-prop) (fun (if (= ... 2) (car-safe ...) (signal ... ...))) (prop (car --cl-rest--))) (if prop (progn (let (...) (unwind-protect ... ...))))))) (list (list (quote markdown-get-fenced-block-from-start) (cl-find-if (function markdown-text-property-at-point) (markdown-get-fenced-block-begin-properties))) (list (quote markdown-get-fenced-block-from-middle) (cl-find-if (function markdown-text-property-at-point) (markdown-get-fenced-block-middle-properties))) (list (quote markdown-get-fenced-block-from-end) (cl-find-if (function markdown-text-property-at-point) (markdown-get-fenced-block-end-properties)))))
(cl-remove-if (function null) (cl-mapcar (function (lambda (fun-and-prop) (let* ((--cl-rest-- fun-and-prop) (fun (if ... ... ...)) (prop (car --cl-rest--))) (if prop (progn (let ... ...)))))) (list (list (quote markdown-get-fenced-block-from-start) (cl-find-if (function markdown-text-property-at-point) (markdown-get-fenced-block-begin-properties))) (list (quote markdown-get-fenced-block-from-middle) (cl-find-if (function markdown-text-property-at-point) (markdown-get-fenced-block-middle-properties))) (list (quote markdown-get-fenced-block-from-end) (cl-find-if (function markdown-text-property-at-point) (markdown-get-fenced-block-end-properties))))))
(car (cl-remove-if (function null) (cl-mapcar (function (lambda (fun-and-prop) (let* ((--cl-rest-- fun-and-prop) (fun ...) (prop ...)) (if prop (progn ...))))) (list (list (quote markdown-get-fenced-block-from-start) (cl-find-if (function markdown-text-property-at-point) (markdown-get-fenced-block-begin-properties))) (list (quote markdown-get-fenced-block-from-middle) (cl-find-if (function markdown-text-property-at-point) (markdown-get-fenced-block-middle-properties))) (list (quote markdown-get-fenced-block-from-end) (cl-find-if (function markdown-text-property-at-point) (markdown-get-fenced-block-end-properties)))))))
(save-excursion (if pos (progn (goto-char pos))) (beginning-of-line) (car (cl-remove-if (function null) (cl-mapcar (function (lambda (fun-and-prop) (let* (... ... ...) (if prop ...)))) (list (list (quote markdown-get-fenced-block-from-start) (cl-find-if (function markdown-text-property-at-point) (markdown-get-fenced-block-begin-properties))) (list (quote markdown-get-fenced-block-from-middle) (cl-find-if (function markdown-text-property-at-point) (markdown-get-fenced-block-middle-properties))) (list (quote markdown-get-fenced-block-from-end) (cl-find-if (function markdown-text-property-at-point) (markdown-get-fenced-block-end-properties))))))))
markdown-get-enclosing-fenced-block-construct(27773)
(let* ((bounds (markdown-get-enclosing-fenced-block-construct pos)) (second (car (cdr bounds)))) (if second (if (< pos second) (progn bounds)) bounds))
(or (get-text-property bol (quote markdown-pre)) (let* ((bounds (markdown-get-enclosing-fenced-block-construct pos)) (second (car (cdr bounds)))) (if second (if (< pos second) (progn bounds)) bounds)))
(let ((bol (save-excursion (goto-char pos) (point-at-bol)))) (or (get-text-property bol (quote markdown-pre)) (let* ((bounds (markdown-get-enclosing-fenced-block-construct pos)) (second (car (cdr bounds)))) (if second (if (< pos second) (progn bounds)) bounds))))
markdown-code-block-at-pos(27773)
(progn (markdown-code-block-at-pos (or pos (point))))
(unwind-protect (progn (markdown-code-block-at-pos (or pos (point)))) (set-match-data save-match-data-internal (quote evaporate)))
(let ((save-match-data-internal (match-data))) (unwind-protect (progn (markdown-code-block-at-pos (or pos (point)))) (set-match-data save-match-data-internal (quote evaporate))))
markdown-code-block-at-point-p()
(not (markdown-code-block-at-point-p))
(and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p)))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(27631 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(27616 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(27605 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(27594 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(27548 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(27524 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(26987 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(26325 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(26319 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(25772 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(25422 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(25337 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(25166 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(25054 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(22799 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(22763 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(21329 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(21252 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(19756 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(19684 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(19437 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(19404 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(19251 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(19133 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(18272 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(18207 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(17725 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(17680 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(15107 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(14944 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(14648 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(14096 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(14090 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(13971 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(13966 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(13254 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(13249 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(12653 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(10371 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(10322 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(9784 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(9775 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(9767 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(9653 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(9217 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(7802 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(7634 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(7627 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(6425 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(6377 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(6326 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(5630 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(5624 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(5584 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(5028 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(4982 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(4720 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(4711 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(4551 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(4493 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(4406 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(4368 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(4310 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(4286 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(3810 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(3712 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(2370 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(2319 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(75 66363)
(let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(18 66363)
(let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))
(cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil))
(let* ((in-comment (nth 4 (syntax-ppss))) (comment-begin (nth 8 (syntax-ppss)))) (goto-char start) (cond ((and (not in-comment) (re-search-forward markdown-regex-comment-start end t) (not (markdown-inline-code-at-point-p)) (not (markdown-code-block-at-point-p))) (let ((open-beg (match-beginning 0))) (put-text-property open-beg (1+ open-beg) (quote syntax-table) (string-to-syntax "<")) (markdown-syntax-propertize-comments (min (1+ (match-end 0)) end (point-max)) end))) ((and in-comment comment-begin (re-search-forward markdown-regex-comment-end end t)) (let ((comment-end (match-end 0))) (put-text-property (1- comment-end) comment-end (quote syntax-table) (string-to-syntax ">")) (remove-text-properties comment-begin comment-end markdown--syntax-properties) (put-text-property comment-begin comment-end (quote markdown-comment) (list comment-begin comment-end)) (markdown-syntax-propertize-comments (min (1+ comment-end) end (point-max)) end))) (t nil)))
markdown-syntax-propertize-comments(1 66363)
(save-excursion (remove-text-properties start end markdown--syntax-properties) (markdown-syntax-propertize-fenced-block-constructs start end) (markdown-syntax-propertize-list-items start end) (markdown-syntax-propertize-pre-blocks start end) (markdown-syntax-propertize-blockquotes start end) (markdown-syntax-propertize-headings start end) (markdown-syntax-propertize-hrs start end) (markdown-syntax-propertize-comments start end))
(progn (save-excursion (remove-text-properties start end markdown--syntax-properties) (markdown-syntax-propertize-fenced-block-constructs start end) (markdown-syntax-propertize-list-items start end) (markdown-syntax-propertize-pre-blocks start end) (markdown-syntax-propertize-blockquotes start end) (markdown-syntax-propertize-headings start end) (markdown-syntax-propertize-hrs start end) (markdown-syntax-propertize-comments start end)))
(unwind-protect (progn (save-excursion (remove-text-properties start end markdown--syntax-properties) (markdown-syntax-propertize-fenced-block-constructs start end) (markdown-syntax-propertize-list-items start end) (markdown-syntax-propertize-pre-blocks start end) (markdown-syntax-propertize-blockquotes start end) (markdown-syntax-propertize-headings start end) (markdown-syntax-propertize-hrs start end) (markdown-syntax-propertize-comments start end))) (if modified nil (restore-buffer-modified-p nil)))
(let* ((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-modification-hooks t)) (unwind-protect (progn (save-excursion (remove-text-properties start end markdown--syntax-properties) (markdown-syntax-propertize-fenced-block-constructs start end) (markdown-syntax-propertize-list-items start end) (markdown-syntax-propertize-pre-blocks start end) (markdown-syntax-propertize-blockquotes start end) (markdown-syntax-propertize-headings start end) (markdown-syntax-propertize-hrs start end) (markdown-syntax-propertize-comments start end))) (if modified nil (restore-buffer-modified-p nil))))
markdown-syntax-propertize(1 66363)
syntax-propertize(66363)
(let ((delay-mode-hooks t)) (text-mode) (setq major-mode (quote markdown-mode)) (setq mode-name "Markdown") (progn (if (get (quote text-mode) (quote mode-class)) (put (quote markdown-mode) (quote mode-class) (get (quote text-mode) (quote mode-class)))) (if (keymap-parent markdown-mode-map) nil (set-keymap-parent markdown-mode-map (current-local-map))) (let ((parent (char-table-parent markdown-mode-syntax-table))) (if (and parent (not (eq parent (standard-syntax-table)))) nil (set-char-table-parent markdown-mode-syntax-table (syntax-table)))) (if (or (abbrev-table-get markdown-mode-abbrev-table :parents) (eq markdown-mode-abbrev-table local-abbrev-table)) nil (abbrev-table-put markdown-mode-abbrev-table :parents (list local-abbrev-table)))) (use-local-map markdown-mode-map) (set-syntax-table markdown-mode-syntax-table) (setq local-abbrev-table markdown-mode-abbrev-table) (setq tab-width 4) (set (make-local-variable (quote comment-start)) "<!-- ") (set (make-local-variable (quote comment-end)) " -->") (set (make-local-variable (quote comment-start-skip)) "<!--[ \011]*") (set (make-local-variable (quote comment-column)) 0) (set (make-local-variable (quote comment-auto-fill-only-comments)) nil) (set (make-local-variable (quote comment-use-syntax)) t) (add-hook (quote syntax-propertize-extend-region-functions) (function markdown-syntax-propertize-extend-region)) (add-hook (quote jit-lock-after-change-extend-region-functions) (function markdown-font-lock-extend-region-function) t t) (set (make-local-variable (quote syntax-propertize-function)) (function markdown-syntax-propertize)) (syntax-propertize (point-max)) (setq font-lock-defaults (quote (markdown-mode-font-lock-keywords nil nil nil nil (font-lock-multiline . t) (font-lock-syntactic-face-function . markdown-syntactic-face) (font-lock-extra-managed-props composition display invisible rear-nonsticky keymap help-echo mouse-face)))) (if markdown-hide-markup (add-to-invisibility-spec (quote markdown-markup)) (remove-from-invisibility-spec (quote markdown-markup))) (markdown-setup-wiki-link-hooks) (if markdown-enable-math (progn (markdown-toggle-math t))) (add-hook (quote hack-local-variables-hook) (function markdown-handle-local-variables) nil t) (setq imenu-create-index-function (if markdown-nested-imenu-heading-index (function markdown-imenu-create-nested-index) (function markdown-imenu-create-flat-index))) (easy-menu-add markdown-mode-menu markdown-mode-map) (set (make-local-variable (quote beginning-of-defun-function)) (function markdown-beginning-of-defun)) (set (make-local-variable (quote end-of-defun-function)) (function markdown-end-of-defun)) (set (make-local-variable (quote fill-paragraph-function)) (function markdown-fill-paragraph)) (set (make-local-variable (quote paragraph-start)) (mapconcat (function identity) (quote ("\f" "[ \011\f]*$" "\\(?:[ \011]*>\\)+[ \011\f]*$" "[ \011]*[*+-][ \011]+" "[ \011]*\\(?:[0-9]+\\|#\\)\\.[ \011]+" "[ \011]*\\[\\S-*\\]:[ \011]+" "[ \011]*:[ \011]+" "^|")) "\\|")) (set (make-local-variable (quote paragraph-separate)) (mapconcat (function identity) (quote ("[ \011\f]*$" "\\(?:[ \011]*>\\)+[ \011\f]*$" ".* $" "^#+" "[ \011]*\\[\\^\\S-*\\]:[ \011]*$")) "\\|")) (set (make-local-variable (quote adaptive-fill-first-line-regexp)) "\\`[ \011]*[A-Z]?>[ \011]*?\\'") (set (make-local-variable (quote adaptive-fill-regexp)) "\\s-*") (set (make-local-variable (quote adaptive-fill-function)) (function markdown-adaptive-fill-function)) (set (make-local-variable (quote fill-forward-paragraph-function)) (function markdown-fill-forward-paragraph)) (set (make-local-variable (quote outline-regexp)) markdown-regex-header) (set (make-local-variable (quote outline-level)) (function markdown-outline-level)) (add-to-invisibility-spec (quote (outline . t))) (if (quote t) (advice--add-function :before-until (cons (function (lambda nil (advice--buffer-local (quote eldoc-documentation-function)))) (function (lambda (gv--val) (advice--set-buffer-local (quote eldoc-documentation-function) gv--val)))) (function markdown-eldoc-function) nil) (set (make-local-variable (quote eldoc-documentation-function)) (function markdown-eldoc-function))) (add-hook (quote fill-nobreak-predicate) (function markdown-line-is-reference-definition-p) nil t) (add-hook (quote fill-nobreak-predicate) (function markdown-pipe-at-bol-p) nil t) (set (make-local-variable (quote indent-line-function)) markdown-indent-function) (set (make-local-variable (quote flyspell-generic-check-word-predicate)) (function markdown-flyspell-check-word-p)) (add-hook (quote electric-quote-inhibit-functions) (function markdown--inhibit-electric-quote) nil :local) (if (boundp (quote markdown-css-path)) (progn (warn "markdown-css-path is deprecated, see markdown-css-paths.") (add-to-list (quote markdown-css-paths) markdown-css-path))) (if nil (progn (make-local-hook (quote after-change-functions)) (make-local-hook (quote font-lock-extend-region-functions)) (make-local-hook (quote window-configuration-change-hook)))) (if markdown-make-gfm-checkboxes-buttons (progn (markdown-make-gfm-checkboxes-buttons (point-min) (point-max)) (add-hook (quote after-change-functions) (function markdown-gfm-checkbox-after-change-function) t t) (add-hook (quote change-major-mode-hook) (function markdown-remove-gfm-checkbox-overlays) t t))) (add-hook (quote edit-indirect-after-commit-functions) (function markdown--edit-indirect-after-commit-function) nil (quote local)) (if markdown-marginalize-headers (progn (add-hook (quote window-configuration-change-hook) (function markdown-marginalize-update-current) nil t))) ...)
(progn (make-local-variable (quote delay-mode-hooks)) (let ((delay-mode-hooks t)) (text-mode) (setq major-mode (quote markdown-mode)) (setq mode-name "Markdown") (progn (if (get (quote text-mode) (quote mode-class)) (put (quote markdown-mode) (quote mode-class) (get (quote text-mode) (quote mode-class)))) (if (keymap-parent markdown-mode-map) nil (set-keymap-parent markdown-mode-map (current-local-map))) (let ((parent (char-table-parent markdown-mode-syntax-table))) (if (and parent (not (eq parent ...))) nil (set-char-table-parent markdown-mode-syntax-table (syntax-table)))) (if (or (abbrev-table-get markdown-mode-abbrev-table :parents) (eq markdown-mode-abbrev-table local-abbrev-table)) nil (abbrev-table-put markdown-mode-abbrev-table :parents (list local-abbrev-table)))) (use-local-map markdown-mode-map) (set-syntax-table markdown-mode-syntax-table) (setq local-abbrev-table markdown-mode-abbrev-table) (setq tab-width 4) (set (make-local-variable (quote comment-start)) "<!-- ") (set (make-local-variable (quote comment-end)) " -->") (set (make-local-variable (quote comment-start-skip)) "<!--[ \011]*") (set (make-local-variable (quote comment-column)) 0) (set (make-local-variable (quote comment-auto-fill-only-comments)) nil) (set (make-local-variable (quote comment-use-syntax)) t) (add-hook (quote syntax-propertize-extend-region-functions) (function markdown-syntax-propertize-extend-region)) (add-hook (quote jit-lock-after-change-extend-region-functions) (function markdown-font-lock-extend-region-function) t t) (set (make-local-variable (quote syntax-propertize-function)) (function markdown-syntax-propertize)) (syntax-propertize (point-max)) (setq font-lock-defaults (quote (markdown-mode-font-lock-keywords nil nil nil nil (font-lock-multiline . t) (font-lock-syntactic-face-function . markdown-syntactic-face) (font-lock-extra-managed-props composition display invisible rear-nonsticky keymap help-echo mouse-face)))) (if markdown-hide-markup (add-to-invisibility-spec (quote markdown-markup)) (remove-from-invisibility-spec (quote markdown-markup))) (markdown-setup-wiki-link-hooks) (if markdown-enable-math (progn (markdown-toggle-math t))) (add-hook (quote hack-local-variables-hook) (function markdown-handle-local-variables) nil t) (setq imenu-create-index-function (if markdown-nested-imenu-heading-index (function markdown-imenu-create-nested-index) (function markdown-imenu-create-flat-index))) (easy-menu-add markdown-mode-menu markdown-mode-map) (set (make-local-variable (quote beginning-of-defun-function)) (function markdown-beginning-of-defun)) (set (make-local-variable (quote end-of-defun-function)) (function markdown-end-of-defun)) (set (make-local-variable (quote fill-paragraph-function)) (function markdown-fill-paragraph)) (set (make-local-variable (quote paragraph-start)) (mapconcat (function identity) (quote ("\f" "[ \011\f]*$" "\\(?:[ \011]*>\\)+[ \011\f]*$" "[ \011]*[*+-][ \011]+" "[ \011]*\\(?:[0-9]+\\|#\\)\\.[ \011]+" "[ \011]*\\[\\S-*\\]:[ \011]+" "[ \011]*:[ \011]+" "^|")) "\\|")) (set (make-local-variable (quote paragraph-separate)) (mapconcat (function identity) (quote ("[ \011\f]*$" "\\(?:[ \011]*>\\)+[ \011\f]*$" ".* $" "^#+" "[ \011]*\\[\\^\\S-*\\]:[ \011]*$")) "\\|")) (set (make-local-variable (quote adaptive-fill-first-line-regexp)) "\\`[ \011]*[A-Z]?>[ \011]*?\\'") (set (make-local-variable (quote adaptive-fill-regexp)) "\\s-*") (set (make-local-variable (quote adaptive-fill-function)) (function markdown-adaptive-fill-function)) (set (make-local-variable (quote fill-forward-paragraph-function)) (function markdown-fill-forward-paragraph)) (set (make-local-variable (quote outline-regexp)) markdown-regex-header) (set (make-local-variable (quote outline-level)) (function markdown-outline-level)) (add-to-invisibility-spec (quote (outline . t))) (if (quote t) (advice--add-function :before-until (cons (function (lambda nil (advice--buffer-local ...))) (function (lambda (gv--val) (advice--set-buffer-local ... gv--val)))) (function markdown-eldoc-function) nil) (set (make-local-variable (quote eldoc-documentation-function)) (function markdown-eldoc-function))) (add-hook (quote fill-nobreak-predicate) (function markdown-line-is-reference-definition-p) nil t) (add-hook (quote fill-nobreak-predicate) (function markdown-pipe-at-bol-p) nil t) (set (make-local-variable (quote indent-line-function)) markdown-indent-function) (set (make-local-variable (quote flyspell-generic-check-word-predicate)) (function markdown-flyspell-check-word-p)) (add-hook (quote electric-quote-inhibit-functions) (function markdown--inhibit-electric-quote) nil :local) (if (boundp (quote markdown-css-path)) (progn (warn "markdown-css-path is deprecated, see markdown-css-paths.") (add-to-list (quote markdown-css-paths) markdown-css-path))) (if nil (progn (make-local-hook (quote after-change-functions)) (make-local-hook (quote font-lock-extend-region-functions)) (make-local-hook (quote window-configuration-change-hook)))) (if markdown-make-gfm-checkboxes-buttons (progn (markdown-make-gfm-checkboxes-buttons (point-min) (point-max)) (add-hook (quote after-change-functions) (function markdown-gfm-checkbox-after-change-function) t t) (add-hook (quote change-major-mode-hook) (function markdown-remove-gfm-checkbox-overlays) t t))) (add-hook (quote edit-indirect-after-commit-functions) (function markdown--edit-indirect-after-commit-function) nil (quote local)) (if markdown-marginalize-headers (progn (add-hook (quote window-configuration-change-hook) (function markdown-marginalize-update-current) nil t))) ...))
markdown-mode()
set-auto-mode-0(markdown-mode nil)
set-auto-mode()
normal-mode(t)
after-find-file(nil t)
find-file-noselect-1(#<buffer 04.results.md> "~/git/PR_qual_memos/md/manuscript/04.results.md" nil nil "~/git/PR_qual_memos/md/manuscript/04.results.md" (18394744 16777220))
find-file-noselect("/Users/atanas/git/PR_qual_memos/md/manuscript/04.results.md" nil nil nil)
find-file("/Users/atanas/git/PR_qual_memos/md/manuscript/04.results.md" nil)
find-alternate-file("/Users/atanas/git/PR_qual_memos/md/manuscript/04.results.md")
dired-find-alternate-file()
funcall-interactively(dired-find-alternate-file)
#<subr call-interactively>(dired-find-alternate-file nil nil)
apply(#<subr call-interactively> dired-find-alternate-file (nil nil))
(let ((ido-cr+-current-command command)) (apply orig-fun command args))
call-interactively@ido-cr+-record-current-command(#<subr call-interactively> dired-find-alternate-file nil nil)
apply(call-interactively@ido-cr+-record-current-command #<subr call-interactively> (dired-find-alternate-file nil nil))
call-interactively(dired-find-alternate-file nil nil)
command-execute(dired-find-alternate-file) /Users/atanas/git/prob.txt:
total used in directory 0 available 46948024
drwxr-xr-x 2 atanas staff 64 Jan 21 23:09 .
drwxr-xr-x 31 atanas staff 992 Jan 21 23:09 ..
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment