Plaster

(defun math-mode-delete-current-line () (interactive) (let* ((parsed-region (math-mode-parsed-region-at-point)) (parsed-line (car parsed-region)) (parsed-next-line (car (third parsed-region)))) (if parsed-line (if (and (third parsed-line) (not (equal (current-column) (math-mode-line-beginning-position)))) (progn (kill-whole-line) (insert (math-mode-new-math-line (list (car parsed-line) (second parsed-line) nil))) (newline) (goto-char (line-end-position 0))) (if (member (car parsed-line) (list 'i 'o 's)) (if parsed-next-line (math-mode-renumber-lines :decrement-next))) (kill-whole-line) (goto-char (line-end-position 0))) (if (equal (line-beginning-position) (line-end-position)) (if (equal (point-max) (line-beginning-position)) (progn (goto-char (line-end-position 0)) (if (equal (line-beginning-position) (line-end-position)) (kill-whole-line))) (kill-whole-line) (goto-char (line-beginning-position))) (kill-whole-line)))))