From 41a0a344acf992ae9570185d9b39b87161fadd17 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Fri, 3 Jul 2009 19:52:55 +0000 Subject: Omit unused variable `orig' in `paredit-move-past-close-and-reindent'. darcs-hash:20090703195255-00fcc-bb484473cebaf86ecaa49aa910432b5143141421 --- paredit.el | 47 +++++++++++++++++++++++------------------------ 1 file changed, 23 insertions(+), 24 deletions(-) (limited to 'paredit.el') diff --git a/paredit.el b/paredit.el index d027ebd..f05f540 100644 --- a/paredit.el +++ b/paredit.el @@ -791,30 +791,29 @@ If such a comment exists, delete the comment (including all leading (insert close)) (error "Mismatched missing closing delimiter: %c ... %c" open close)))) - (let ((orig (point))) - (up-list) - (if (catch 'return ; This CATCH returns T if it - (while t ; should delete leading spaces - (save-excursion ; and NIL if not. - (let ((before-paren (1- (point)))) - (back-to-indentation) - (cond ((not (eq (point) before-paren)) - ;; Can't call PAREDIT-DELETE-LEADING-WHITESPACE - ;; here -- we must return from SAVE-EXCURSION - ;; first. - (throw 'return t)) - ((save-excursion (forward-line -1) - (end-of-line) - (paredit-in-comment-p)) - ;; Moving the closing delimiter any further - ;; would put it into a comment, so we just - ;; indent the closing delimiter where it is and - ;; abort the loop, telling its continuation that - ;; no leading whitespace should be deleted. - (lisp-indent-line) - (throw 'return nil)) - (t (delete-indentation))))))) - (paredit-delete-leading-whitespace)))) + (up-list) + (if (catch 'return ; This CATCH returns T if it + (while t ; should delete leading spaces + (save-excursion ; and NIL if not. + (let ((before-paren (1- (point)))) + (back-to-indentation) + (cond ((not (eq (point) before-paren)) + ;; Can't call PAREDIT-DELETE-LEADING-WHITESPACE + ;; here -- we must return from SAVE-EXCURSION + ;; first. + (throw 'return t)) + ((save-excursion (forward-line -1) + (end-of-line) + (paredit-in-comment-p)) + ;; Moving the closing delimiter any further + ;; would put it into a comment, so we just + ;; indent the closing delimiter where it is and + ;; abort the loop, telling its continuation that + ;; no leading whitespace should be deleted. + (lisp-indent-line) + (throw 'return nil)) + (t (delete-indentation))))))) + (paredit-delete-leading-whitespace))) (defun paredit-missing-close () (save-excursion -- cgit v1.2.1