]> code.delx.au - gnu-emacs-elpa/blobdiff - packages/flylisp/flylisp.el
* packages/flylisp/flylisp.el (jit-lock-start): Declare.
[gnu-emacs-elpa] / packages / flylisp / flylisp.el
index 4c34d3b350ea87688dd0613711673273407dc740..647a54334b672b749dfe6b74c2ccf7fb007e935a 100644 (file)
@@ -1,9 +1,10 @@
 ;;; flylisp.el --- Color unbalanced parentheses and parentheses inconsistent with indentation -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2013  Free Software Foundation, Inc.
+;; Copyright (C) 2013-2014  Free Software Foundation, Inc.
 
 ;; Author: Barry O'Reilly <gundaetiapo@gmail.com>
 ;; Version: 0.2
+;; Package-Requires: ((emacs "24.1") (cl-lib "0.4"))
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -21,7 +22,8 @@
 ;;; Commentary:
 
 ;; Colors mismatched open parentheses with fl-mismatched-face, red by
-;; default.
+;; default. Works reliably after Emacs 24.3, in which bug 16247 is
+;; fixed.
 ;;
 ;; Also colors open and close parentheses which are inconsistent with
 ;; the indentation of lines between them with fl-inconsistent-face,
 
 ;;; Code:
 
-;; TODO: There are display problems with mismatched parens, due to the
-;; region not expanding enough, in turn due to an apparent syntax-ppss
-;; bug. See Emacs bug 16247.
-
 ;; TODO: Algorithm doesn't account for close paren which is too soon.
 ;;
 ;; (abc
@@ -474,6 +472,8 @@ next in the list. This is used to scan-lists efficiently."
                                 rear-nonsticky nil))
       (forward-char 1))))
 
+(defvar jit-lock-start)
+
 (defsubst flylisp-extend-region-after-change (start _end _old-len)
   ;; It seems redisplay works its way from before start to after end,
   ;; so it's more important to expand the start in order to get