* lisp/rect.el (rectangle--highlight-for-redisplay): Don't pass `orig' with

different calling convention to rectangle--unhighlight-for-redisplay.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 450eac3f48d188ec3ba24100367bfe86a796ffba..c0b50604897be2962971b88c67d4e100c7470eaf 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-07-03  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * rect.el (rectangle--highlight-for-redisplay): Don't pass `orig' with
+       different calling convention to rectangle--unhighlight-for-redisplay.
+
 2014-07-03  Michael Albinus  <michael.albinus@gmx.de>
 
        * net/tramp.el (tramp-call-process): Handle error strings.

diff --git a/lisp/rect.el b/lisp/rect.el
index ac861a0824b06c41ce4e67819f6e407616eb594e..a2f8e4f6371b49f4950ddd2576e8762a4fed4e1c 100644 (file)
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -719,7 +719,7 @@ Ignores `line-move-visual'."
    ((not rectangle-mark-mode)
     (funcall orig start end window rol))
    (rectangle--inhibit-region-highlight
-    (rectangle--unhighlight-for-redisplay orig rol)
+    (funcall redisplay-unhighlight-region-function rol)
     nil)
    ((and (eq 'rectangle (car-safe rol))
          (eq (nth 1 rol) (buffer-chars-modified-tick))