changeset 112006:5dbf421ae0b5

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).
author Chong Yidong <cyd@stupidchicken.com>
date Tue, 21 Dec 2010 10:36:48 +0800
parents 62f897baec0a
children 79209520f4c4
files lisp/ChangeLog lisp/wid-edit.el
diffstat 2 files changed, 7 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Tue Dec 21 11:30:36 2010 +0900
+++ b/lisp/ChangeLog	Tue Dec 21 10:36:48 2010 +0800
@@ -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,
--- a/lisp/wid-edit.el	Tue Dec 21 11:30:36 2010 +0900
+++ b/lisp/wid-edit.el	Tue Dec 21 10:36:48 2010 +0800
@@ -637,8 +637,8 @@
 		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.