Function: fortran-window-create-momentarily

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

Signature

(fortran-window-create-momentarily &optional ARG)

Documentation

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

Optional ARG non-nil and non-unity disables the momentary feature. See also fortran-window-create.

View in manual

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/fortran.el.gz
(defun fortran-window-create-momentarily (&optional arg)
  "Momentarily make the window `fortran-line-length' (default 72) columns wide.
Optional ARG non-nil and non-unity disables the momentary feature.
See also `fortran-window-create'."
  (interactive "p")
  (if (or (not arg)
          (= arg 1))
      (save-window-excursion
        (progn
          (condition-case nil
              (fortran-window-create)
            (error (error "No room for Fortran window")))
          (message "Type SPC to continue editing.")
          (let ((char (read-event)))
            (or (equal char ?\s)
                (push char unread-command-events)))))
    (fortran-window-create)))