Mercurial > hg > xemacs-beta

diff lisp/toolbar.el @ 276:6330739388db r21-0b36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b36
author cvs
date Mon, 13 Aug 2007 10:30:37 +0200
parents c5d627a313b1
children 90d73dddcdc4
line wrap: on
line diff
--- a/lisp/toolbar.el	Mon Aug 13 10:29:43 2007 +0200
+++ b/lisp/toolbar.el	Mon Aug 13 10:30:37 2007 +0200
@@ -38,8 +38,7 @@
 
 (defun toolbar-make-button-list (up &optional down disabled cap-up cap-down cap-disabled)
   "Call make-glyph on each arg and return a list of the results."
-  (if (featurep 'x)
-      (let ((up-glyph (make-glyph up))
+  (let ((up-glyph (make-glyph up))
 	    (down-glyph (and down (make-glyph down)))
 	    (disabled-glyph (and disabled (make-glyph disabled)))
 	    (cap-up-glyph (and cap-up (make-glyph cap-up)))
@@ -57,8 +56,7 @@
 		  (list up-glyph down-glyph disabled-glyph)
 		(if down-glyph
 		    (list up-glyph down-glyph)
-		  (list up-glyph)))))))
-    nil))
+		  (list up-glyph))))))))
 
 (defun init-toolbar-location ()
   (if (not toolbar-icon-directory)