FUEL: Compatibility functions for Emacs 24.2.
parent
ec1ecbe549
commit
1358a9eb55
|
@ -20,8 +20,8 @@
|
||||||
(require 'thingatpt)
|
(require 'thingatpt)
|
||||||
(require 'font-lock)
|
(require 'font-lock)
|
||||||
(require 'ring)
|
(require 'ring)
|
||||||
|
(require 'fuel-base)
|
||||||
|
|
||||||
|
|
||||||
;;; Customization:
|
;;; Customization:
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
|
|
|
@ -31,6 +31,16 @@
|
||||||
|
|
||||||
;;; Utilities:
|
;;; 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)
|
(defun fuel-shorten-str (str len)
|
||||||
(let ((sl (length str)))
|
(let ((sl (length str)))
|
||||||
(if (<= sl len) str
|
(if (<= sl len) str
|
||||||
|
|
|
@ -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")))
|
||||||
|
|
Loading…
Reference in New Issue