
(provide (quote epoch-util))

(defun epoch-add-setup-hook (hook) "\
Add HOOK to epoch-setup-hook" (byte-code "	>† Â	B!‰‡" [hook epoch-setup-hook reverse] 3))

(defmacro definteractive (&rest body) (byte-code "ÁÂÃ\"D‡" [body function append (lambda nil (interactive))] 4))

(defun delete-if (test lst) "\
Destructively remove all items that satisfy TEST from LIST" (byte-code "… <… Ã	@\"… A‰ˆ‚  ˆ
A…; Ã	Ä
!\"ƒ3 Å
Æ
!\"‚7 
A‰ˆ‚ ˆ)‡" [lst test prev funcall cadr setcdr cddr] 8))

(defun delete-if-not (test lst) "\
Destructively remove all items that do not pass TEST from LIST" (byte-code "ÂÃÄÅÆDDE	\"‡" [test lst delete-if lambda (x) not x] 6))

(defun delete-if-eq (item lst) "\
Destructively remove all instances of ITEM from LIST, returning the
modified list" (byte-code "ÁÂ\"‡" [lst delete-if (lambda (x) (byte-code "	=‡" [item x] 2))] 3))

(defmacro alist-delete (item lst) "Destructively remove the pair with key ITEM from the ALIST using equal" (byte-code "ÂÃÄÅÆÇEED	E‡" [item lst delete-if function lambda (x) equal (car x)] 7))

(defmacro save-screen-excursion (&rest body) "Save the current screen and window configuration on that screen,
execute BODY, and then restore the screen and window configuration" (byte-code "ÃÄ!ÃÅ!ÆÇD	ÈDDÉÊË
\"ÌÍÎÏDDDÐÑDÒ	DÓFEEE*‡" [oldscreen oldwin body make-symbol "oldscreen" "oldwin" let (current-screen) (current-window-configuration) unwind-protect append (progn) if not null get-screen-id progn select-screen set-window-configuration (set-buffer (window-buffer (selected-window)))] 13))

(defun flush-left (str width) "\
Return string STR padded to length WITDH" (byte-code "G	Yƒ ‚ Â	GZÃ\"P‡" [str width make-string 32] 4))