Function: fortran-window-create

fortran-window-create is an interactive and byte-compiled function defined in fortran.el.gz.

Signature

(fortran-window-create)

Documentation

Make the window fortran-line-length(var)/fortran-line-length(fun) (default 72) columns wide.

See also fortran-window-create-momentarily.

View in manual

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/fortran.el.gz
(defun fortran-window-create ()
  "Make the window `fortran-line-length' (default 72) columns wide.
See also `fortran-window-create-momentarily'."
  (interactive)
  (let ((window-min-width 2))
    (unless (window-full-width-p)
        (enlarge-window-horizontally (- (frame-width)
                                        (window-width) 1)))
    (let* ((window-edges (window-edges))
           (scroll-bar-width (- (nth 2 window-edges)
                                (car window-edges)
                                (window-width))))
      (split-window-right (+ fortran-line-length scroll-bar-width)))
    (other-window 1)
    (switch-to-buffer " fortran-window-extra" t)
    (select-window (previous-window))))