From dc96f75f58be03703ae905d5dde055e3436d048a Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sun, 7 Apr 2013 16:31:54 +0000 Subject: Add clearer names for the enclosing string start/end points. --- paredit.el | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'paredit.el') diff --git a/paredit.el b/paredit.el index 3e54481..3ad7f72 100644 --- a/paredit.el +++ b/paredit.el @@ -2526,6 +2526,12 @@ This assumes that `paredit-in-string-p' has already returned true, i.e. (forward-sexp 1) (cons start (1- (point)))))) +(defun paredit-enclosing-string-start () + (car (paredit-string-start+end-points))) + +(defun paredit-enclosing-string-end () + (+ 1 (cdr (paredit-string-start+end-points)))) + (defun paredit-in-comment-p (&optional state) "True if parse state STATE is within a comment. If no parse state is supplied, compute one from the beginning of the -- cgit v1.2.1