* lisp/rect.el (rectangle--highlight-for-redisplay):

* lisp/emacs-lisp/smie.el (smie--next-indent-change):
Use buffer-chars-modified-tick.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6605189..3d8520b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2013-11-04  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * 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):

diff --git a/lisp/emacs-lisp/smie.el b/lisp/emacs-lisp/smie.el
index 26a72d7..f025a8b 100644 (file)
--- a/lisp/emacs-lisp/smie.el
+++ b/lisp/emacs-lisp/smie.el
@@ -1833,9 +1833,9 @@ KEYWORDS are additional arguments, which can use the following keywords:
   "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

diff --git a/lisp/rect.el b/lisp/rect.el
index 5f4f167..4335bb2 100644 (file)
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -481,7 +481,7 @@ Activates the region if needed.  Only lasts until the region is deactivated."
    ((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 @@ Activates the region if needed.  Only lasts until the region is deactivated."
             (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)))