Function: electric-pair--save-literal-point-excursion

electric-pair--save-literal-point-excursion is a macro defined in elec-pair.el.gz.

Signature

(electric-pair--save-literal-point-excursion &rest BODY)

Source Code

;; Defined in /usr/src/emacs/lisp/elec-pair.el.gz
(defmacro electric-pair--save-literal-point-excursion (&rest body)
  ;; FIXME: need this instead of `save-excursion' when functions in
  ;; BODY, such as `electric-pair-inhibit-if-helps-balance' and
  ;; `electric-pair-skip-if-helps-balance' modify and restore the
  ;; buffer in a way that modifies the marker used by save-excursion.
  (let ((point (make-symbol "point")))
    `(let ((,point (point)))
       (unwind-protect (progn ,@body) (goto-char ,point)))))