X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/2e6b4f66cf6bc14868f23a350063922de3b37d0c..e32b738dfcfd28c65a7136a179d603723baa176b:/packages/flylisp/flylisp.el diff --git a/packages/flylisp/flylisp.el b/packages/flylisp/flylisp.el index 4c34d3b35..647a54334 100644 --- a/packages/flylisp/flylisp.el +++ b/packages/flylisp/flylisp.el @@ -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 ;; 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, @@ -54,10 +56,6 @@ ;;; 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