Function: edebug-prepare-margin

edebug-prepare-margin is a byte-compiled function defined in edebug.el.gz.

Signature

(edebug-prepare-margin)

Documentation

Increase (or set) left margin with the size of the longest arrow string.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/edebug.el.gz
(defun edebug-prepare-margin ()
  "Increase (or set) left margin with the size of the longest arrow string."
  (let ((arrow-len (apply #'max (mapcar (lambda (x)
                                          (string-width (cdr x)))
                                        edebug-arrow-alist)))
        (margins (window-margins)))
    ;; Set or increase left margin.
    (if (numberp (car margins))
        (set-window-margins nil (+ (car margins) arrow-len))
      (set-window-margins nil arrow-len))))