mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

(image-mode-fit-frame): New command.

Browse Source
This commit is contained in:
Stefan Monnier 2008-04-03 02:19:23 +00:00
parent d34c311ab4
commit bd1d6a63fc
2 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@ -1,5 +1,7 @@
2008-04-03 Stefan Monnier <monnier@iro.umontreal.ca> 2008-04-03 Stefan Monnier <monnier@iro.umontreal.ca>
* image-mode.el (image-mode-fit-frame): New command.
* simple.el (beginning-of-buffer, end-of-buffer, goto-line, undo) * simple.el (beginning-of-buffer, end-of-buffer, goto-line, undo)
(copy-region-as-kill, kill-ring-save, use-region-p, mark-word) (copy-region-as-kill, kill-ring-save, use-region-p, mark-word)
(keyboard-escape-quit): Check region-active-p i.s.o transient-mark-mode. (keyboard-escape-quit): Check region-active-p i.s.o transient-mark-mode.

25
lisp/image-mode.el
View File

@ -244,6 +244,31 @@ stopping if the top or bottom edge of the image is reached."
(image-set-window-hscroll (max 0 (- img-width win-width))) (image-set-window-hscroll (max 0 (- img-width win-width)))
(image-set-window-vscroll (max 0 (- img-height win-height))))) (image-set-window-vscroll (max 0 (- img-height win-height)))))
;; Adjust frame and image size.
(defun image-mode-fit-frame ()
"Fit the frame to the current image.
This function assumes the current frame has only one window."
;; FIXME: This does not take into account decorations like mode-line,
;; minibuffer, header-line, ...
(interactive)
(let* ((saved (frame-parameter nil 'image-mode-saved-size))
(display (image-get-display-property))
(size (image-size display)))
(if (and saved
(eq (caar saved) (frame-width))
(eq (cdar saved) (frame-height)))
(progn ;; Toggle back to previous non-fitted size.
(set-frame-parameter nil 'image-mode-saved-size nil)
(setq size (cdr saved)))
;; Round up size, and save current size so we can toggle back to it.
(setcar size (ceiling (car size)))
(setcdr size (ceiling (cdr size)))
(set-frame-parameter nil 'image-mode-saved-size
(cons size (cons (frame-width) (frame-height)))))
(set-frame-width (selected-frame) (car size))
(set-frame-height (selected-frame) (cdr size))))
;;; Image Mode setup ;;; Image Mode setup
(defvar image-type nil (defvar image-type nil