Source

frame-icon / frame-icon.el

Diff from to

File frame-icon.el

 		       (glyph-image-instance
 			(set icon-sym (make-glyph image-file)))
 		       icon-list (cons pix icon-list)))))
-      (x-set-frame-icon-pixmap
+      (set-glyph-image frame-icon-glyph pix
        (if (framep iconified-frame)
 	   iconified-frame
 	 ;; unpatched XEmacs 19.6
-	 (selected-frame))
-       pix))))
+	 (selected-frame))))))
 
 (defvar icon-list nil
   "List of existing pixmap objects used as frame icons by frame-icon.el.")