[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/paredit 41a0a34 033/224: Omit unused variable `orig' in `p
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/paredit 41a0a34 033/224: Omit unused variable `orig' in `paredit-move-past-close-and-reindent'. |
Date: |
Sat, 7 Aug 2021 09:22:13 -0400 (EDT) |
branch: elpa/paredit
commit 41a0a344acf992ae9570185d9b39b87161fadd17
Author: Taylor R Campbell <campbell@mumble.net>
Commit: Taylor R Campbell <campbell@mumble.net>
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(-)
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
- [nongnu] elpa/paredit 9a696fd 208/224: Make the mode line lighter a configurable variable., (continued)
- [nongnu] elpa/paredit 9a696fd 208/224: Make the mode line lighter a configurable variable., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit 7c27746 211/224: Fix some wording about paredit-space-for-delmiter-predicates., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit 38690fe 209/224: Bump copyright year to 2016., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit 3889955 212/224: Don't reindent single-line edits in paredit-raise-sexp., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit 961b02f 217/224: Ignore unused argument in paredit-override-check-parens-interactively, ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit 27548db 220/224: Disable minibuffer message delays in tests., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit b1c332a 218/224: Bump copyright year., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit 09658a4 221/224: Trailing newline., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit dc60d93 029/224: Document the effect of a prefix argument to the `paredit-mode' command., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit 190797e 030/224: Add warning to documentation of prefix arguments to `paredit-mode'., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit 41a0a34 033/224: Omit unused variable `orig' in `paredit-move-past-close-and-reindent'.,
ELPA Syncer <=
- [nongnu] elpa/paredit 04e6f50 035/224: Put space between closing delimiters and opening double quotes., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit 70d40b5 040/224: Refine scope of reindentation after raise, splice, and insert-comment., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit 896c165 039/224: Implement variable `paredit-space-for-delimiter-predicates'., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit e23adec 036/224: Omit vestigial debug message in `paredit-backward-slurp-into-string'., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit c0a9160 041/224: Make `paredit-newline' keep invalid structure inside comments., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit 05b2cad 043/224: Generalize `paredit-kill' to work inside any string-like object., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit e380e42 048/224: Implement `paredit-{for, back}ward-{up, down}'., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit 3ce96a4 050/224: Fix format arguments in `paredit-check-region-state-comment'., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit 73c481a 061/224: Simplify and clarify implementation of `paredit-backslash'., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit b51f220 055/224: In `paredit-newline', ignore parse errors during `indent-sexp'., ELPA Syncer, 2021/08/07