[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master fa900da 09/12: new function el-search--end-of-sexp; use it
From: |
Michael Heerdegen |
Subject: |
[elpa] master fa900da 09/12: new function el-search--end-of-sexp; use it |
Date: |
Sun, 11 Oct 2015 10:33:30 +0000 |
branch: master
commit fa900da0d826614d3d4dd00002312d3fa33b6b25
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>
new function el-search--end-of-sexp; use it
---
packages/el-search/el-search.el | 8 ++++++--
1 files changed, 6 insertions(+), 2 deletions(-)
diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 3e982bb..1ad895a 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -243,6 +243,10 @@ expression."
(concat "'" (el-search--print this-sexp))))
read))
+(defun el-search--end-of-sexp ()
+ ;;Point must be at sexp beginning
+ (or (scan-sexps (point) 1) (point-max)))
+
(defun el-search--goto-next-sexp ()
"Move point to the beginning of the next sexp.
Don't move if already at beginning of a sexp."
@@ -362,7 +366,7 @@ return nil (no error)."
(defvar el-search-keep-hl nil)
(defun el-search-hl-sexp-at-point ()
- (let ((bounds (list (point) (scan-sexps (point) 1))))
+ (let ((bounds (list (point) (el-search--end-of-sexp))))
(if (overlayp el-search-hl-overlay)
(apply #'move-overlay el-search-hl-overlay bounds)
(overlay-put (setq el-search-hl-overlay (apply #'make-overlay bounds))
@@ -434,7 +438,7 @@ return nil (no error)."
(setq opoint (point))
(unless replace-all (el-search-hl-sexp-at-point))
(let* ((read-mapping (el-search--create-read-map))
- (region (list (point) (scan-sexps (point) 1)))
+ (region (list (point) (el-search--end-of-sexp)))
(substring (apply #'buffer-substring-no-properties region))
(expr (read substring))
(replaced-this nil)
- [elpa] master updated (c0489e7 -> 2d5b3ba), Michael Heerdegen, 2015/10/11
- [elpa] master 5640cd0 04/12: el-search: some comment changes, Michael Heerdegen, 2015/10/11
- [elpa] master 84282f0 08/12: avoid repeated expansion of pcase forms, Michael Heerdegen, 2015/10/11
- [elpa] master e1903f4 01/12: avoid looking-back in el-search--goto-next-sexp, Michael Heerdegen, 2015/10/11
- [elpa] master 855461b 03/12: rename a function, Michael Heerdegen, 2015/10/11
- [elpa] master ca3fe58 07/12: rename a function, Michael Heerdegen, 2015/10/11
- [elpa] master fa900da 09/12: new function el-search--end-of-sexp; use it,
Michael Heerdegen <=
- [elpa] master ae052ce 11/12: rename a local variable, Michael Heerdegen, 2015/10/11
- [elpa] master 06c2076 02/12: change default of el-search-this-expression-identifier, Michael Heerdegen, 2015/10/11
- [elpa] master 5dd08f2 05/12: fix a condition in el-search--do-subsexps, Michael Heerdegen, 2015/10/15
- [elpa] master 0f79c16 06/12: drop el-search-expression-contains-match-p, Michael Heerdegen, 2015/10/15
- [elpa] master 2d5b3ba 12/12: whitespace clean up, Michael Heerdegen, 2015/10/15
- [elpa] master 24f8de1 10/12: rename a function, Michael Heerdegen, 2015/10/15