From 4e053fceed58d72c5670556ec0537610d52d6fa7 Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Mon, 20 Apr 2015 20:53:16 +0100 Subject: Move sx-sorted-insert-skip-first --- sx.el | 13 ------------- 1 file changed, 13 deletions(-) (limited to 'sx.el') diff --git a/sx.el b/sx.el index 194e32f..bda8186 100644 --- a/sx.el +++ b/sx.el @@ -206,19 +206,6 @@ All ARGS are passed to `completing-read' or `ido-completing-read'." (apply (if ido-mode #'ido-completing-read #'completing-read) args)) -(defmacro sx-sorted-insert-skip-first (newelt list &optional predicate) - "Inserted NEWELT into LIST sorted by PREDICATE. -This is designed for the (site id id ...) lists. So the first car -is intentionally skipped." - `(let ((tail ,list) - (x ,newelt)) - (while (and ;; We're not at the end. - (cdr-safe tail) - ;; We're not at the right place. - (funcall (or ,predicate #'<) x (cadr tail))) - (setq tail (cdr tail))) - (setcdr tail (cons x (cdr tail))))) - (defun sx-user-error (format-string &rest args) "Like `user-error', but prepend FORMAT-STRING with \"[sx]\". See `format'." -- cgit v1.2.3