Function: glc-fixup-edit

glc-fixup-edit is a byte-compiled function defined in goto-chg.el.

Signature

(glc-fixup-edit E)

Documentation

Convert an Emacs 27.1-style combined change to a regular edit.

Source Code

;; Defined in ~/.emacs.d/elpa/goto-chg-20240407.1110/goto-chg.el
;;todo: Find begin and end of line, then use it somewhere

(defun glc-fixup-edit (e)
  "Convert an Emacs 27.1-style combined change to a regular edit."
  (when (and (consp e)
             (eq (car e) 'apply)
             (not (functionp (cadr e)))
             (eq (nth 4 e) 'undo--wrap-and-run-primitive-undo))
    (let ((args (last e)))
      (when (and (consp args) (= (length args) 1)
                 (consp (car args)) (= (length (car args)) 1)
                 (consp (caar args)) (numberp (car (caar args))) (numberp (cdr (caar args))))
        (setq e (caar args)))))
  e)