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.

34507:ed8ea5cf198b

	  (overlays-in start end))
    (unless smiley-cached-regexp-alist
      (smiley-update-cache))
    (save-excursion
      (let ((beg (or start (point-min)))
	    group overlay image)
	(dolist (entry smiley-cached-regexp-alist)
	  (setq group (nth 1 entry)
		image (nth 2 entry))
	  (goto-char beg)

34508:e223a51dca47

	  (overlays-in start end))
    (unless smiley-cached-regexp-alist
      (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)
		image (nth 2 entry))
	  (goto-char beg)