From 7476c3a0bb863ac0293f8e7afbe3da65bc0e4fc8 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Wed, 13 Dec 2000 02:07:55 +0000 Subject: (smiley-region): Bind `inhibit-point-motion-hooks' to t, so that we don't get stuck while trying to smilefy intangible text. --- lisp/gnus/ChangeLog | 6 ++++++ lisp/gnus/smiley-ems.el | 1 + 2 files changed, 7 insertions(+) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 6ce304d997..4636cf3dd2 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,9 @@ +2000-12-13 Miles Bader + + * smiley-ems.el (smiley-region): Bind `inhibit-point-motion-hooks' + to t, so that we don't get stuck while trying to smilefy + intangible text. + 2000-12-12 Gerd Moellmann * smiley-ems.el (smiley-regexp-alist): Make regexps match diff --git a/lisp/gnus/smiley-ems.el b/lisp/gnus/smiley-ems.el index 4b54197c40..e3bc261bb9 100644 --- a/lisp/gnus/smiley-ems.el +++ b/lisp/gnus/smiley-ems.el @@ -108,6 +108,7 @@ which smileys to operate on and which images to use for them." (smiley-update-cache)) (save-excursion (let ((beg (or start (point-min))) + (inhibit-point-motion-hooks t) group overlay image) (dolist (entry smiley-cached-regexp-alist) (setq group (nth 1 entry) -- cgit v1.2.3