;;; From an unknown source on the net (defmacro point-at (&rest forms) "Evaluate list of forms, and return the value of point after evaluation." (` (progn (,@ forms) (,@ '((point)))))) (defmacro point-if (&rest forms) "Evaluate list of forms, and return the value of point after evaluation. Restores point to its original value before returning." (` (save-excursion (,@ forms) (,@ '((point)))))) (provide 'point-at)