Mercurial > hg > xemacs-beta

diff lisp/wid-edit.el @ 424:11054d720c21 r21-2-20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-20
author cvs
date Mon, 13 Aug 2007 11:26:11 +0200
parents 41dbb7a9d5f2
children
line wrap: on
line diff
--- a/lisp/wid-edit.el	Mon Aug 13 11:25:03 2007 +0200
+++ b/lisp/wid-edit.el	Mon Aug 13 11:26:11 2007 +0200
@@ -1935,16 +1935,11 @@
 		(console-on-window-system-p))
 	   (unless gui-glyphs
 	     (let* ((gui-button-shadow-thickness 1)
-		    (gui (make-gui-button tag 'widget-gui-action widget)))
-	       (setq
-		gui-glyphs
-		(list
-		 (make-glyph `(,(nth 0 (aref gui 1)) [string :data ,text]))
-		 (make-glyph `(,(nth 1 (aref gui 1)) [string :data ,text]))
-		 (make-glyph `(,(nth 2 (aref gui 1)) [string :data ,text]))))
+		    (gui (make-glyph 
+			  (make-gui-button tag 'widget-gui-action widget))))
+	       (setq gui-glyphs gui)
 	       (laxputf widget-push-button-cache tag gui-glyphs)))
-	   (widget-glyph-insert-glyph
-	    widget (nth 0 gui-glyphs) (nth 1 gui-glyphs) (nth 2 gui-glyphs)))
+	   (widget-glyph-insert-glyph widget gui-glyphs))
 	  (t
 	   (insert text)))))