[Emacs-diffs] trunk r114953: * lisp/rect.el (rectangle--highlight-for-redisplay):

[Stefan Monnier]

------------------------------------------------------------
revno: 114953
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2013-11-04 15:45:36 -0500
message:
  * lisp/rect.el (rectangle--highlight-for-redisplay):
  * lisp/emacs-lisp/smie.el (smie--next-indent-change):
  Use buffer-chars-modified-tick.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/smie.el        smie.el-20100517192034-xap3ihmey43772vj-1
  lisp/rect.el                   rect.el-20091113204419-o5vbwnq5f7feedwu-83

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-11-04 20:06:02 +0000
+++ b/lisp/ChangeLog    2013-11-04 20:45:36 +0000
@@ -1,5 +1,9 @@
 2013-11-04  Stefan Monnier  <address@hidden>
 
+       * rect.el (rectangle--highlight-for-redisplay):
+       * emacs-lisp/smie.el (smie--next-indent-change):
+       Use buffer-chars-modified-tick.
+
        * emacs-lisp/byte-run.el (defmacro, defun): Set their `indent' property.
 
        * electric.el (electric-indent-post-self-insert-function):

=== modified file 'lisp/emacs-lisp/smie.el'
--- a/lisp/emacs-lisp/smie.el   2013-11-03 22:56:03 +0000
+++ b/lisp/emacs-lisp/smie.el   2013-11-04 20:45:36 +0000
@@ -1833,9 +1833,9 @@
   "Go to the next line that needs to be reindented (and reindent it)."
   (interactive)
   (while
-      (let ((tick (buffer-modified-tick)))
+      (let ((tick (buffer-chars-modified-tick)))
         (indent-according-to-mode)
-        (eq tick (buffer-modified-tick)))
+        (eq tick (buffer-chars-modified-tick)))
     (forward-line 1)))
 
 ;;; User configuration

=== modified file 'lisp/rect.el'
--- a/lisp/rect.el      2013-11-04 03:06:54 +0000
+++ b/lisp/rect.el      2013-11-04 20:45:36 +0000
@@ -481,7 +481,7 @@
    ((not rectangle-mark-mode)
     (funcall orig start end window rol))
    ((and (eq 'rectangle (car-safe rol))
-         (eq (nth 1 rol) (buffer-modified-tick))
+         (eq (nth 1 rol) (buffer-chars-modified-tick))
          (eq start (nth 2 rol))
          (eq end (nth 3 rol)))
     rol)
@@ -562,7 +562,7 @@
             (push ol nrol))
           (forward-line 1))
         (mapc #'delete-overlay old)
-        `(rectangle ,(buffer-modified-tick) ,start ,end ,@nrol))))))
+        `(rectangle ,(buffer-chars-modified-tick) ,start ,end ,@nrol))))))
 
 (defun rectangle--unhighlight-for-redisplay (orig rol)
   (if (not (eq 'rectangle (car-safe rol)))