From 1358a9eb55b2abef432a52dd2bdc9a18b62c6391 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Sat, 13 Jul 2013 19:13:39 +0200
Subject: [PATCH] FUEL: Compatibility functions for Emacs 24.2.

---
 misc/fuel/factor-mode.el |  2 +-
 misc/fuel/fuel-base.el   | 10 ++++++++++
 misc/fuel/fuel-pkg.el    |  5 ++++-
 3 files changed, 15 insertions(+), 2 deletions(-)

diff --git a/misc/fuel/factor-mode.el b/misc/fuel/factor-mode.el
index 3a66cdbc01..382178c78d 100644
--- a/misc/fuel/factor-mode.el
+++ b/misc/fuel/factor-mode.el
@@ -20,8 +20,8 @@
 (require 'thingatpt)
 (require 'font-lock)
 (require 'ring)
+(require 'fuel-base)
 
-
 ;;; Customization:
 
 ;;;###autoload
diff --git a/misc/fuel/fuel-base.el b/misc/fuel/fuel-base.el
index 3300c38b2d..841f5869f3 100644
--- a/misc/fuel/fuel-base.el
+++ b/misc/fuel/fuel-base.el
@@ -31,6 +31,16 @@
 
 ;;; Utilities:
 
+(unless (fboundp 'setq-local)
+  (defmacro setq-local (var val)
+    (list 'set (list 'make-local-variable (list 'quote var)) val)))
+
+(unless (fboundp 'defvar-local)
+  (defmacro defvar-local (var val &optional docstring)
+    (declare (debug defvar) (doc-string 3))
+    (list 'progn (list 'defvar var val docstring)
+          (list 'make-variable-buffer-local (list 'quote var)))))
+
 (defun fuel-shorten-str (str len)
   (let ((sl (length str)))
     (if (<= sl len) str
diff --git a/misc/fuel/fuel-pkg.el b/misc/fuel/fuel-pkg.el
index f9f6f100d9..e297b502e9 100644
--- a/misc/fuel/fuel-pkg.el
+++ b/misc/fuel/fuel-pkg.el
@@ -1 +1,4 @@
-(define-package "fuel" "1.1" "Major mode for the Factor programming language.")
+(define-package
+  "fuel" "1.1"
+  "Major mode for the Factor programming language."
+  '((cl-lib "0.2") (emacs "24.2")))