diff options
author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-02-12 14:59:46 -0200 |
---|---|---|
committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-02-12 15:01:59 -0200 |
commit | 85109b7dd2ffb896151ccef2c014c7d9ea33e682 (patch) | |
tree | 704e430265af6ea381fe167c39767f511603925f /sx.el | |
parent | 78cc17295c255dc188c96ea7a401ee9a915b9269 (diff) |
Define possible values for answer sorting
Diffstat (limited to 'sx.el')
-rw-r--r-- | sx.el | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -335,6 +335,12 @@ GET-FUNC and performs the actual comparison." "Return STRING with consecutive whitespace squashed together." (replace-regexp-in-string "[ \r\n]+" " " string)) +(defun sx--invert-predicate (predicate) + "Return PREDICATE function with arguments inverted. +For instance (sx--invert-predicate #'<) is the same as #'>. +Note this is not the same as negating PREDICATE." + (lambda (&rest args) (apply predicate (reverse args)))) + ;;; Printing request data (defvar sx--overlays nil |