Skip to content

Instantly share code, notes, and snippets.

Embed
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)
(progn
(push-mark (nth 8 syntax) nil t)
(while (nth 4 syntax)
(forward-char)
(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
You can’t perform that action at this time.