Function: math--comp-bracket

math--comp-bracket is a byte-compiled function defined in calccomp.el.gz.

Signature

(math--comp-bracket LEFT-BRACKET RIGHT-BRACKET COMP)

Documentation

Put the composition COMP inside LEFT-BRACKET and RIGHT-BRACKET.

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calccomp.el.gz
(defun math--comp-bracket (left-bracket right-bracket comp)
  "Put the composition COMP inside LEFT-BRACKET and RIGHT-BRACKET."
  (if (eq calc-language 'big)
      (let ((height (math-comp-height comp))
            (baseline (1- (math-comp-ascent comp))))
        (list 'horiz
              (math--big-bracket left-bracket height baseline)
              comp
              (math--big-bracket right-bracket height baseline)))
    (list 'horiz
          (char-to-string left-bracket)
          comp
          (char-to-string right-bracket))))