# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 969553686 0
# Node ID 1e15c63f0711f9b2328efa3001c1f706481e1470
# Parent  e23774b771e1d276d14087288208be9a7784aba1
(smiley-region): Test if display-graphic-p bound
(for Emacs 20).  Tidy somewhat.

diff -r e23774b771e1 -r 1e15c63f0711 lisp/gnus/smiley-ems.el
--- a/lisp/gnus/smiley-ems.el	Thu Sep 21 16:15:32 2000 +0000
+++ b/lisp/gnus/smiley-ems.el	Thu Sep 21 16:28:06 2000 +0000
@@ -48,6 +48,7 @@
 
 ;; The XEmacs version has a baroque, if not rococo, set of these.
 (defcustom smiley-regexp-alist
+  ;; Perhaps :-) should be distinct -- it does appear in the Jargon File.
   '(("\\([:;]-?)\\)\\W" 1 "smile.xbm")
     ("\\(:-[/\\]\\)\\W" 1 "wry.xbm")
     ("\\(:-[({]\\)\\W" 1 "frown.xbm"))
@@ -91,7 +92,8 @@
 (defun smiley-region (start end)
   "Replace in the region `smiley-regexp-alist' matches with corresponding images."
   (interactive "r")
-  (when (display-graphic-p)
+  (when (and (fboundp 'display-graphic-p)
+	     (display-graphic-p))
     (mapc (lambda (o)
 	    (if (eq 'smiley (overlay-get o 'smiley))
 		(delete-overlay o)))
@@ -100,16 +102,17 @@
       (smiley-update-cache))
     (save-excursion
       (let ((beg (or start (point-min)))
-	    buffer-read-only entry beg group overlay image)
+	    group overlay image)
 	(dolist (entry smiley-cached-regexp-alist)
-	  (setq group (nth 1 entry))
+	  (setq group (nth 1 entry)
+		image (nth 2 entry))
 	  (goto-char beg)
 	  (while (re-search-forward (car entry) end t)
 	    (when image
 	      (setq overlay (make-overlay (match-beginning group)
 					  (match-end group)))
 	      (overlay-put overlay
-			   'display `(when smiley-active ,@(nth 2 entry)))
+			   'display `(when smiley-active ,@image))
 	      (overlay-put overlay 'mouse-face 'highlight)
 	      (overlay-put overlay 'smiley t)
 	      (overlay-put overlay