;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'cl-lib) #@84 Check if the current line is empty. From: https://emacs.stackexchange.com/a/16793 (defalias 'symex--current-line-empty-p #[0 "\212\300 \210\301\302!)\207" [beginning-of-line looking-at "[[:space:]]*$"] 2 (#$ . 105)]) #@152 Check if point is at the point of indentation. Point of indentation is the first non-whitespace character. From: https://stackoverflow.com/a/13313091 (defalias 'symex--point-at-indentation-p #[0 "\212\300 \210`)`U\207" [back-to-indentation] 2 (#$ . 330)]) #@221 Mark the beginning of a collapsible undo block. This must be followed with a call to ‘symex--undo-collapse-end’ with a marker eq to this one. MARKER is some kind of delimiter for the undo block, TODO. (fn MARKER) (defalias 'symex--undo-collapse-begin #[257 "\211B\211\207" [buffer-undo-list] 3 (#$ . 594)]) #@121 Collapse undo history until a matching marker. MARKER is some kind of delimiter for the undo block, TODO. (fn MARKER) (defalias 'symex--undo-collapse-end #[257 "@=\203\fA\211\207\211A@=\204;\211A\204!\301\302!\210\202 \211A@\303=\2034\211\211AA\241\266\202 \211A\262\202 \211\211AA\241\207" [buffer-undo-list error "Encountered undo-collapse-end with no matching marker" nil] 5 (#$ . 917)]) #@77 Execute BODY, then collapse any resulting undo boundaries. (fn &rest BODY) (defalias 'symex--with-undo-collapse '(macro . #[128 "\300\301\302E\303\304!\305\306BC\307\310\311\312DDBB\313\314\312 DDEEE\207" [apply identity nil make-symbol "buffer" let ((current-buffer)) unwind-protect progn symex--undo-collapse-begin quote with-current-buffer symex--undo-collapse-end] 12 (#$ . 1333)])) (byte-code "\300\301\302\303#\300\207" [function-put symex--with-undo-collapse lisp-indent-function 0] 4) #@223 Combine two association lists, prioritizing one of them. The result includes all values present in either AL1 or AL2. If a key exists in both AL1 as well as AL2, the value in AL1 is retained in the result. (fn AL1 AL2) (defalias 'symex--combine-alists #[514 "\211\203\211@\300\301\302\303\304&\262A\266\202\202\210\207" [cl-adjoin :key car :test equal] 12 (#$ . 1841)]) (provide 'symex-utils)