Skip to content

Instantly share code, notes, and snippets.

What would you like to do?
(defun mtucker-mark-comment (&optional pos)
(interactive "d")
(let ((initial pos)
(syntax (syntax-ppss pos)))
(if (nth 4 syntax)
(push-mark (nth 8 syntax) nil t)
(while (nth 4 syntax)
(setq syntax (syntax-ppss (point)))))
(message "Not in a comment."))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment