From: Chong Yidong <cyd@stupidchicken.com>
Date: Tue, 21 Dec 2010 02:36:48 +0000 (+0800)
Subject: Revert bogus 2010-10-24 change to widget-image-find.
X-Git-Tag: emacs-pretest-24.0.90~104^2~618^2~1322^2~278^2~75
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6bfa51ba88183f82128a5d06e86e640c27b4707f;p=emacs.git

Revert bogus 2010-10-24 change to widget-image-find.

* lisp/wid-edit.el (widget-image-find): Remove bogus :ascent spec from
image spec (Bug#7480).
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e39cfc83d0c..b3b9295247f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-12-21  Chong Yidong  <cyd@stupidchicken.com>
+
+	* wid-edit.el (widget-image-find): Remove bogus :ascent spec from
+	image spec (Bug#7480).
+
 2010-12-21  Daiki Ueno  <ueno@unixuser.org>
 
 	* obsolete/pgg-parse.el, obsolete/pgg-pgp5.el, obsolete/pgg-pgp.el,
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 9c7de61d7cd..5b6bc97db2c 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -637,8 +637,8 @@ extension (xpm, xbm, gif, jpg, or png) located in
 		specs)
 	   (dolist (elt widget-image-conversion)
 	     (dolist (ext (cdr elt))
-	       (push (list :type (car elt) :file (concat image ext)
-			   :ascent 'center) specs)))
+	       (push (list :type (car elt) :file (concat image ext))
+		     specs)))
  	   (find-image (nreverse specs))))
 	(t
 	 ;; Oh well.