Commit a0d5f7a4 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

* lisp/emacs-lisp/smie.el (smie--next-indent-change):
Use buffer-chars-modified-tick.
parent c93f3f5c
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):
......
......@@ -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
......
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment