Use lexical scoping in all fuel sources

[factor.git] / misc / fuel / fuel-base.el

diff --git a/misc/fuel/fuel-base.el b/misc/fuel/fuel-base.el
index 8044b11102282df713949053e74a3b872ed84f7a..e62d9672d52a54f7d820b616d5c67f0acb16bbff 100644 (file)
--- a/misc/fuel/fuel-base.el
+++ b/misc/fuel/fuel-base.el
@@ -1,4 +1,4 @@
-;;; fuel-base.el --- Basic FUEL support code
+;;; fuel-base.el --- Basic FUEL support code -*- lexical-binding: t -*-
 
 ;; Copyright (C) 2008 Jose Antonio Ortega Ruiz
 ;; See http://factorcode.org/license.txt for BSD license.
@@ -20,7 +20,6 @@
   (interactive)
   (message "FUEL %s" fuel-version))
 
-\f
 ;;; Customization:
 
 ;;;###autoload
@@ -28,9 +27,7 @@
   "Factor's Ultimate Emacs Library."
   :group 'languages)
 
-\f
-;;; Utilities:
-
+;;; Compatibility with Emacs 24.3
 (unless (fboundp 'setq-local)
   (defmacro setq-local (var val)
     (list 'set (list 'make-local-variable (list 'quote var)) val)))
@@ -41,6 +38,11 @@
     (list 'progn (list 'defvar var val docstring)
           (list 'make-variable-buffer-local (list 'quote var)))))
 
+(unless (fboundp 'alist-get)
+  (defun alist-get (key alist)
+    (cdr (assoc key alist))))
+
+;;; Utilities:
 (defun fuel-shorten-str (str len)
   (let ((sl (length str)))
     (if (<= sl len) str