FUEL: Compatibility functions for Emacs 24.2.

diff --git a/misc/fuel/factor-mode.el b/misc/fuel/factor-mode.el
index 3a66cdbc0157a3fa0a5a93bc9e1d19b4b845bc77..382178c78d577a3776a2119a548345d868c82069 100644 (file)
--- 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)
 
-\f
 ;;; Customization:
 
 ;;;###autoload

diff --git a/misc/fuel/fuel-base.el b/misc/fuel/fuel-base.el
index 3300c38b2dc536970af42d3e32d82c873072b11c..841f5869f336e5348314a8a30aa9026b1ccf8513 100644 (file)
--- a/misc/fuel/fuel-base.el
+++ b/misc/fuel/fuel-base.el
@@ -31,6 +31,16 @@
 \f
 ;;; 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 f9f6f100d9a8afc1056ee5e4f3400fe1dd7e84e3..e297b502e9557a5f03c105b4cd5f280922a78b97 100644 (file)
--- 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")))