mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-17 10:06:13 +00:00
Fix: inhibit point motion hooks when encoding an enriched document.
* lisp/textmodes/enriched.el (enriched-encode): Use inhibit-point-motion-hooks in addition to inhibit-read-only. Fixes: debbugs:18246
This commit is contained in:
parent
e000ff30b4
commit
1728544615
@ -10,6 +10,10 @@
|
|||||||
in place of the file name while working on non-file buffers, just
|
in place of the file name while working on non-file buffers, just
|
||||||
like hack-dir-local-variables already does. (Bug#19140)
|
like hack-dir-local-variables already does. (Bug#19140)
|
||||||
|
|
||||||
|
* textmodes/enriched.el (enriched-encode): Use
|
||||||
|
inhibit-point-motion-hooks in addition to inhibit-read-only.
|
||||||
|
(Bug#18246)
|
||||||
|
|
||||||
2015-01-17 Stefan Monnier <monnier@iro.umontreal.ca>
|
2015-01-17 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||||
|
|
||||||
* emacs-lisp/eieio-core.el (eieio--class-constructor): Rename from
|
* emacs-lisp/eieio-core.el (eieio--class-constructor): Rename from
|
||||||
|
@ -314,7 +314,8 @@ the region, and the START and END of each region."
|
|||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun enriched-encode (from to orig-buf)
|
(defun enriched-encode (from to orig-buf)
|
||||||
(if enriched-verbose (message "Enriched: encoding document..."))
|
(if enriched-verbose (message "Enriched: encoding document..."))
|
||||||
(let ((inhibit-read-only t))
|
(let ((inhibit-read-only t)
|
||||||
|
(inhibit-point-motion-hooks t))
|
||||||
(save-restriction
|
(save-restriction
|
||||||
(narrow-to-region from to)
|
(narrow-to-region from to)
|
||||||
(delete-to-left-margin)
|
(delete-to-left-margin)
|
||||||
|
Loading…
Reference in New Issue
Block a user