branch: elpa/rainbow-delimiters
commit 4fc4352c0dd79f94681bba9a0063a9c13da6c047
Author: Jeremy L. Rayman <[email protected]>
Commit: Jeremy L. Rayman <[email protected]>
Release rainbow-delimiters.el version 1.3.3.
- Add backwards compatibility with Emacs versions prior to 23.2.
---
rainbow-delimiters.el | 39 ++++++++++++++++++++++++++++++++++++++-
1 file changed, 38 insertions(+), 1 deletion(-)
diff --git a/rainbow-delimiters.el b/rainbow-delimiters.el
index 0a6b8a202d..854c0ab195 100644
--- a/rainbow-delimiters.el
+++ b/rainbow-delimiters.el
@@ -4,7 +4,7 @@
;; Author: Jeremy L. Rayman <[email protected]>
;; Maintainer: Jeremy L. Rayman <[email protected]>
;; Created: 2010-09-02
-;; Version: 1.3.2
+;; Version: 1.3.3
;; Keywords: faces, convenience, lisp, matching, tools, rainbow, rainbow
parentheses, rainbow parens
;; EmacsWiki: http://www.emacswiki.org/emacs/RainbowDelimiters
;; Github: http://github.com/jlr/rainbow-delimiters
@@ -118,6 +118,9 @@
;; - Add 'global-rainbow-delimiters-mode'.
;; - Respect syntax of current buffer major-mode so delimiters
;; highlight correctly in non-lisp languages.
+;; 1.3.3 (2011-11-25)
+;; - Backwards compatibility with Emacs versions prior to 23.2.
+;; Defines "with-silent-modifications" if undefined.
;;; TODO:
@@ -333,6 +336,40 @@ major-mode. The syntax table is constructed by the function
;;; Text properties
+;; Backwards compatibility: Emacs < v23.2 lack macro
'with-silent-modifications'.
+(eval-and-compile
+ (unless (fboundp 'with-silent-modifications)
+ (defmacro with-silent-modifications (&rest body)
+ "Defined by rainbow-delimiters.el for backwards compatibility with Emacs
< 23.2.
+ Execute BODY, pretending it does not modify the buffer.
+If BODY performs real modifications to the buffer's text, other
+than cosmetic ones, undo data may become corrupted.
+
+This macro will run BODY normally, but doesn't count its buffer
+modifications as being buffer modifications. This affects things
+like buffer-modified-p, checking whether the file is locked by
+someone else, running buffer modification hooks, and other things
+of that nature.
+
+Typically used around modifications of text-properties which do
+not really affect the buffer's content."
+ (declare (debug t) (indent 0))
+ (let ((modified (make-symbol "modified")))
+ `(let* ((,modified (buffer-modified-p))
+ (buffer-undo-list t)
+ (inhibit-read-only t)
+ (inhibit-modification-hooks t)
+ deactivate-mark
+ ;; Avoid setting and removing file locks and checking
+ ;; buffer's uptodate-ness w.r.t the underlying file.
+ buffer-file-name
+ buffer-file-truename)
+ (unwind-protect
+ (progn
+ ,@body)
+ (unless ,modified
+ (restore-buffer-modified-p nil))))))))
+
(defsubst rainbow-delimiters-propertize-delimiter (loc depth)
"Highlight a single delimiter at LOC according to DEPTH.
