[Emacs-diffs] master 1728544 4/6: Fix: inhibit point motion hooks when encoding an enriched document.

[Ivan Shmakov]

branch: master
commit 172854461531ac7ad11b4490adc148e7a42a9fb3
Author: Ivan Shmakov <address@hidden>
Commit: Ivan Shmakov <address@hidden>

    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
---
 lisp/ChangeLog             |    4 ++++
 lisp/textmodes/enriched.el |    3 ++-
 2 files changed, 6 insertions(+), 1 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 55c7a36..d894b1f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -10,6 +10,10 @@
        in place of the file name while working on non-file buffers, just
        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  <address@hidden>
 
        * emacs-lisp/eieio-core.el (eieio--class-constructor): Rename from
diff --git a/lisp/textmodes/enriched.el b/lisp/textmodes/enriched.el
index b9d45b3..040a50e 100644
--- a/lisp/textmodes/enriched.el
+++ b/lisp/textmodes/enriched.el
@@ -314,7 +314,8 @@ the region, and the START and END of each region."
 ;;;###autoload
 (defun enriched-encode (from to orig-buf)
   (if enriched-verbose (message "Enriched: encoding document..."))
-  (let ((inhibit-read-only t))
+  (let ((inhibit-read-only t)
+       (inhibit-point-motion-hooks t))
     (save-restriction
       (narrow-to-region from to)
       (delete-to-left-margin)