Function: flymake--resize-margins

flymake--resize-margins is a byte-compiled function defined in flymake.el.gz.

Signature

(flymake--resize-margins &optional ORIG-WIDTH)

Documentation

Resize current window margins according to flymake-margin-indicator-position.

Return to original margin width if ORIG-WIDTH is non-nil.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/flymake.el.gz
(defun flymake--resize-margins (&optional orig-width)
  "Resize current window margins according to `flymake-margin-indicator-position'.
Return to original margin width if ORIG-WIDTH is non-nil."
  (when (and (eq flymake-indicator-type 'margins)
             flymake-autoresize-margins)
    (cond
     ((and orig-width flymake--original-margin-width)
      (if (eq flymake-margin-indicator-position 'left-margin)
          (setq-local left-margin-width flymake--original-margin-width)
        (setq-local right-margin-width flymake--original-margin-width)))
     (t
      (if (eq flymake-margin-indicator-position 'left-margin)
          (setq-local flymake--original-margin-width left-margin-width
                      left-margin-width 2)
        (setq-local flymake--original-margin-width right-margin-width
                    right-margin-width 2))))
    ;; Apply margin to all windows available.
    (mapc (lambda (x)
            (set-window-buffer x (window-buffer x)))
          (get-buffer-window-list nil nil 'visible))))