From 6956c17e1e7ef2899026ad365a0acdd4ce63cb80 Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Mon, 15 Dec 2014 18:27:33 -0200
Subject: user-error is "not known to be defined" in emacs 24.2

---
 sx.el | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'sx.el')

diff --git a/sx.el b/sx.el
index 096e20b..c8d4e5b 100644
--- a/sx.el
+++ b/sx.el
@@ -104,6 +104,11 @@ is intentionally skipped."
        (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'."
+  (signal 'user-error (list (apply #'format (concat "[sx] " format) args))))
+
 (defun sx-message (format-string &rest args)
   "Display FORMAT-STRING as a message with ARGS.
 See `format'."
-- 
cgit v1.2.3