bug#12245: 24.2.50; Image height scaled to fill whole line

[Ivan Andrus]

A fairly recent change (in the past few weeks) changed preview-latex in an
interesting way.  I would bisect it, but I have never been able to get
`bzr bisect` to work.

What happens, is that the image heights are stretched to fill the full
height of the current line.  If the image is larger, however, it is not
shrunk.  This leads to problems reading the short images like those
produced from $x$, when they are on a line with a tall equation like a
sum.  

The problem can be see without preview-latex.  Start from `emacs -Q` and
evaluate the code below.  Notice that both images are the same height
(larger than a normal line--this works for me with the default font
size).  Then delete the second image and notice that the first image
shrinks.  In fact the image should be even smaller.

    (progn (insert (propertize "1" 'display
                               (create-image "/* XPM */
    static char * arrow_right[] = {
    \"12 5 2 1\",
    \". c grey60\",
    \"  c None\",
    \".           \",
    \"..          \",
    \"...         \",
    \"....        \",
    \".....       \",
    \"......      \",
    \".......     \",
    \"........    \",
    \".........   \",
    \".........   \",
    \"........    \",
    \".......     \",
    \"......      \",
    \".....       \",
    \"....        \",
    \"...         \",
    \"..          \",
    \".           \"};"
                                             'xpm t)))
           (insert (propertize "1" 'display
                               (create-image "/* XPM */
    static char * arrow_right[] = {
    \"12 24 2 1\",
    \". c grey60\",
    \"  c None\",
    \".           \",
    \"..          \",
    \"...         \",
    \"....        \",
    \".....       \",
    \"......      \",
    \".......     \",
    \"........    \",
    \".........   \",
    \".........   \",
    \".........   \",
    \".........   \",
    \".........   \",
    \".........   \",
    \".........   \",
    \".........   \",
    \"........    \",
    \".......     \",
    \"......      \",
    \".....       \",
    \"....        \",
    \"...         \",
    \"..          \",
    \".           \"};"
                                             'xpm t))))

                                         


In GNU Emacs 24.2.50.2 (i386-apple-darwin10.8.0, NS apple-appkit-1038.36)
of 2012-08-20 on oroszlan.local
Bzr revision: 109700 jlf@foxtail.org-20120820160851-cooolx696cb26xc0
Windowing system distributor `Apple', version 10.3.1038
Configured using:
`configure '--with-ns''

Important settings:
  value of $LC_CTYPE: UTF-8
  locale-coding-system: utf-8-unix
  default enable-multibyte-characters: t

Major mode: Lisp Interaction

Minor modes in effect:
  tooltip-mode: t
  mouse-wheel-mode: t
  tool-bar-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
s-x r e M-x r e p o <tab> r t <tab> <return>

Recent messages:
For information about GNU Emacs and the GNU system, type C-h C-a.
kill-region: The mark is not set now, so there is no region
Making completion list...

Load-path shadows:
None found.

Features:
(shadow sort gnus-util mail-extr emacsbug message format-spec rfc822 mml
mml-sec mm-decode mm-bodies mm-encode mail-parse rfc2231 mailabbrev
gmm-utils mailheader sendmail rfc2047 rfc2045 ietf-drums mm-util
mail-prsvr mail-utils help-mode easymenu time-date tooltip ediff-hook
vc-hooks lisp-float-type mwheel ns-win tool-bar dnd fontset image
regexp-opt fringe tabulated-list newcomment lisp-mode register page
menu-bar rfn-eshadow timer select scroll-bar mouse jit-lock font-lock
syntax facemenu font-core frame cham georgian utf-8-lang misc-lang
vietnamese tibetan thai tai-viet lao korean japanese hebrew greek
romanian slovak czech european ethiopic indian cyrillic chinese
case-table epa-hook jka-cmpr-hook help simple abbrev minibuffer loaddefs
button faces cus-face files text-properties overlay sha1 md5 base64
format env code-pages mule custom widget hashtable-print-readable
backquote make-network-process ns multi-tty emacs)