Function: undo-auto--ensure-boundary

undo-auto--ensure-boundary is a byte-compiled function defined in simple.el.gz.

Signature

(undo-auto--ensure-boundary CAUSE)

Documentation

Add an undo-boundary to the current buffer if needed.

REASON describes the reason that the boundary is being added; see undo-auto--last-boundary-cause for more information.

Source Code

;; Defined in /usr/src/emacs/lisp/simple.el.gz
(defun undo-auto--ensure-boundary (cause)
  "Add an `undo-boundary' to the current buffer if needed.
REASON describes the reason that the boundary is being added; see
`undo-auto--last-boundary-cause' for more information."
  (when (and
         (undo-auto--needs-boundary-p))
    (let ((last-amalgamating
           (undo-auto--last-boundary-amalgamating-number)))
      (undo-boundary)
      (setq undo-auto--last-boundary-cause
            (if (eq 'amalgamate cause)
                (cons
                 (if last-amalgamating (1+ last-amalgamating) 0)
                 undo-auto--undoably-changed-buffers)
              cause)))))