summaryrefslogtreecommitdiff
path: root/lisp/textmodes/enriched.el
diff options
context:
space:
mode:
authorIvan Shmakov <ivan@siamics.net>2015-01-17 19:07:07 +0000
committerIvan Shmakov <ivan@siamics.net>2015-01-17 19:34:50 +0000
commit172854461531ac7ad11b4490adc148e7a42a9fb3 (patch)
treebd7128b54319df9ba38af23063291b99946280ea /lisp/textmodes/enriched.el
parente000ff30b4354064ca7f9ed07e58903d7c44033f (diff)
downloademacs-172854461531ac7ad11b4490adc148e7a42a9fb3.tar.gz
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
Diffstat (limited to 'lisp/textmodes/enriched.el')
-rw-r--r--lisp/textmodes/enriched.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/textmodes/enriched.el b/lisp/textmodes/enriched.el
index b9d45b3a32f..040a50e3099 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)