Function: ediff-make-wide-display

ediff-make-wide-display is a byte-compiled function defined in ediff-wind.el.gz.

Signature

(ediff-make-wide-display)

Documentation

Construct an alist of parameters for the wide display.

Saves the old frame parameters in ediff-wide-display-orig-parameters. The frame to be resized is kept in ediff-wide-display-frame. This function modifies only the left margin and the width of the display. It assumes that it is called from within the control buffer.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/ediff-wind.el.gz
(defun ediff-make-wide-display ()
  "Construct an alist of parameters for the wide display.
Saves the old frame parameters in `ediff-wide-display-orig-parameters'.
The frame to be resized is kept in `ediff-wide-display-frame'.
This function modifies only the left margin and the width of the display.
It assumes that it is called from within the control buffer."
  (if (not (fboundp 'display-pixel-width))
      (user-error "Can't determine display width"))
  (let* ((frame-A (window-frame ediff-window-A))
	 (frame-A-params (frame-parameters frame-A))
	 (cw (frame-char-width frame-A))
	 (wd (- (/ (display-pixel-width) cw) 5)))
    (setq ediff-wide-display-orig-parameters
	  (list (cons 'left (max 0 (eval (cdr (assoc 'left frame-A-params)) t)))
		(cons 'width (cdr (assoc 'width frame-A-params))))
	  ediff-wide-display-frame frame-A)
    (modify-frame-parameters
     frame-A `((left . ,cw) (width . ,wd) (user-position . t)))))