Mercurial > emacs

comparison lisp/doc-view.el @ 112127:25ff862568d0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix bug in doc-view-enlarge.
author Tassilo Horn <tassilo@member.fsf.org>
date Wed, 05 Jan 2011 22:54:23 +0100
parents afc7f5e3ff12
children 40ab7b8eb7a4
comparison
equal deleted inserted replaced
112126:afc7f5e3ff12 112127:25ff862568d0
652 ;; ImageMagick supports on-the-fly-rescaling 652 ;; ImageMagick supports on-the-fly-rescaling
653 (progn 653 (progn
654 (set (make-local-variable 'doc-view-image-width) 654 (set (make-local-variable 'doc-view-image-width)
655 (ceiling (* factor doc-view-image-width))) 655 (ceiling (* factor doc-view-image-width)))
656 (doc-view-insert-image (plist-get (cdr (doc-view-current-image)) :file) 656 (doc-view-insert-image (plist-get (cdr (doc-view-current-image)) :file)
657 :width doc-view-resolution)) 657 :width doc-view-image-width))
658 (set (make-local-variable 'doc-view-resolution) 658 (set (make-local-variable 'doc-view-resolution)
659 (ceiling (* factor doc-view-resolution))) 659 (ceiling (* factor doc-view-resolution)))
660 (doc-view-reconvert-doc))) 660 (doc-view-reconvert-doc)))
661 661
662 (defun doc-view-shrink (factor) 662 (defun doc-view-shrink (factor)