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 e39cfc83d0cfb8774fc68819d5fa463aaf8fa679..b3b9295247ffbba032fb9d257e54ad2534185195 100644 (file)
--- 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 9c7de61d7cdc39bd80792755a2bcf39d838a0d9a..5b6bc97db2c3acd4d61f5c7773841c68e097884b 100644 (file)
--- 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.