[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/el-search b00ca48 018/332: rename a function
From: |
Stefan Monnier |
Subject: |
[elpa] externals/el-search b00ca48 018/332: rename a function |
Date: |
Tue, 1 Dec 2020 15:48:02 -0500 (EST) |
branch: externals/el-search
commit b00ca488e4dc349b52ee519588a55b577ce88374
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>
rename a function
---
el-search.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/el-search.el b/el-search.el
index 5b78aa0..4467828 100644
--- a/el-search.el
+++ b/el-search.el
@@ -285,7 +285,7 @@ Don't move if already at beginning of a sexp."
(,pattern t)
(_ nil)))))
-(defun el-search--maybe-wrap-pattern (pattern)
+(defun el-search--wrap-pattern (pattern)
`(and ,el-search-this-expression-identifier ,pattern))
(defun el-search--search-pattern (pattern &optional noerror)
@@ -404,7 +404,7 @@ return nil (no error)."
(or (not (boundp pattern))
(not (eq (symbol-value pattern)
pattern))))
(error "Please don't forget the quote when
searching for a symbol"))
- (el-search--maybe-wrap-pattern pattern)))))
+ (el-search--wrap-pattern pattern)))))
(setq el-search-current-pattern pattern)
(setq el-search-success nil)
(let ((opoint (point)))
@@ -483,7 +483,7 @@ return nil (no error)."
(barf-if-buffer-read-only)
(let* ((from (el-search--read-pattern "Replace from: " nil initial-contents))
(to (el-search--read-pattern "Replace with result of evaluation of:
" from)))
- (list (el-search--maybe-wrap-pattern (read from)) (read to)
+ (list (el-search--wrap-pattern (read from)) (read to)
(with-temp-buffer
(insert to)
(el-search--create-read-map 1)))))
- [elpa] externals/el-search 1538d15 004/332: * el-search.el: Add missing footer, (continued)
- [elpa] externals/el-search 1538d15 004/332: * el-search.el: Add missing footer, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 2e6622c 005/332: el-search: fix comment styles, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search fdb1f86 008/332: el-search: remove redundant :group specs from custom defs, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 1ed9974 011/332: el-search: bump version, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 41acd5d 010/332: el-search: some comment changes, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search b07d77c 019/332: avoid repeated expansion of pcase forms, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search cdd8cc1 020/332: new function el-search--end-of-sexp; use it, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 2f48cd0 024/332: call syntax functions less often for better efficiency, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search c7af755 014/332: rename a function, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 8fc7ae2 015/332: el-search: some comment changes, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search b00ca48 018/332: rename a function,
Stefan Monnier <=
- [elpa] externals/el-search 29ec302 012/332: avoid looking-back in el-search--goto-next-sexp, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search e42804b 028/332: change a TODO entry; no code change, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search c1cfbc6 030/332: rename a local variable, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search fc6eca5 016/332: fix a condition in el-search--do-subsexps, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 632310e 021/332: rename a function, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 74015c1 023/332: whitespace clean up, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 7c42a31 036/332: el-search--read-pattern: fix default(s), Stefan Monnier, 2020/12/01
- [elpa] externals/el-search f54c5f1 037/332: spelling fixes, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 192316b 006/332: el-search: fix two typos, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 92538ed 007/332: el-search: remove redundant package dependency on cl-lib, Stefan Monnier, 2020/12/01