Mercurial > emacs

changeset 31818:1e15c63f0711

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(smiley-region): Test if display-graphic-p bound (for Emacs 20). Tidy somewhat.
author Dave Love <fx@gnu.org>
date Thu, 21 Sep 2000 16:28:06 +0000
parents e23774b771e1
children e5a0c7120611
files lisp/gnus/smiley-ems.el
diffstat 1 files changed, 7 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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