Mercurial > emacs
comparison lisp/gnus/smiley-ems.el @ 34508:e223a51dca47
(smiley-region): Bind `inhibit-point-motion-hooks' to t, so that we
don't get stuck while trying to smilefy intangible text.
author | Miles Bader <miles@gnu.org> |
---|---|
date | Wed, 13 Dec 2000 02:07:43 +0000 |
parents | 3e2309d79ff3 |
children | 52d99cc2e9e3 |
comparison
equal
deleted
inserted
replaced
34507:ed8ea5cf198b | 34508:e223a51dca47 |
---|---|
106 (overlays-in start end)) | 106 (overlays-in start end)) |
107 (unless smiley-cached-regexp-alist | 107 (unless smiley-cached-regexp-alist |
108 (smiley-update-cache)) | 108 (smiley-update-cache)) |
109 (save-excursion | 109 (save-excursion |
110 (let ((beg (or start (point-min))) | 110 (let ((beg (or start (point-min))) |
111 (inhibit-point-motion-hooks t) | |
111 group overlay image) | 112 group overlay image) |
112 (dolist (entry smiley-cached-regexp-alist) | 113 (dolist (entry smiley-cached-regexp-alist) |
113 (setq group (nth 1 entry) | 114 (setq group (nth 1 entry) |
114 image (nth 2 entry)) | 115 image (nth 2 entry)) |
115 (goto-char beg) | 116 (goto-char beg) |