Separate revert command for org blocks

1 · Shane Mulligan · June 7, 2020, 4 p.m.
Background kb f M-l M-e my-revert my-revert command 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 (defun my-revert (arg) (interactive "P") (let ((l (line-number-at-pos)) (c (current-column))) ;; Excursion doesn't work for compressed files ;; Therefore we also use goto-line ;; (save-excursion) ;; I can query this to see if it's a compressed file ;; jka-compr-really-do-compress ;; I'mquite happy with goto-line ...