[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/el-search 5399f80 002/332: el-search: some small improv
From: |
Stefan Monnier |
Subject: |
[elpa] externals/el-search 5399f80 002/332: el-search: some small improvements |
Date: |
Tue, 1 Dec 2020 15:47:58 -0500 (EST) |
branch: externals/el-search
commit 5399f80458cbbe44492bbd66c31f56c365c58dd4
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>
el-search: some small improvements
---
el-search.el | 12 +++++++++---
1 file changed, 9 insertions(+), 3 deletions(-)
diff --git a/el-search.el b/el-search.el
index a8086f6..25eb69b 100644
--- a/el-search.el
+++ b/el-search.el
@@ -7,7 +7,7 @@
;; Created: 29 Jul 2015
;; Keywords: lisp
;; Compatibility: Gnu Emacs 25
-;; Version: 0.0.1
+;; Version: 0.0.2
;; Package-Requires: ((emacs "25") (cl-lib "0"))
@@ -213,6 +213,7 @@ expression."
(define-key map [up] nil)
(define-key map [down] nil)
(define-key map [(control meta backspace)] #'backward-kill-sexp)
+ (define-key map [(control ?S)] #'exit-minibuffer)
map)
"Map for reading input with `el-search-read-expression'.")
@@ -405,14 +406,18 @@ return nil (no error)."
(interactive (list (if (and (eq this-command last-command)
el-search-success)
el-search-current-pattern
- (let ((pattern (el-search--read-pattern "Find pcase
pattern: " nil nil t)))
+ (let ((pattern
+ (el-search--read-pattern "Find pcase pattern: "
+ (car el-search-history)
+ nil t)))
;; A very common mistake: input "foo" instead of
"'foo"
(when (and (symbolp pattern)
(not (eq pattern '_))
(or (not (boundp pattern))
(not (eq (symbol-value pattern)
pattern))))
(error "Please don't forget the quote when
searching for a symbol"))
- (setq el-search-current-pattern
(el-search--maybe-wrap-pattern pattern))))))
+ (el-search--maybe-wrap-pattern pattern)))))
+ (setq el-search-current-pattern pattern)
(setq el-search-success nil)
(let ((opoint (point)))
(when (eq this-command last-command)
@@ -498,6 +503,7 @@ return nil (no error)."
(defun el-search-query-replace (from to &optional mapping)
"Replace some occurrences of FROM pattern with evaluated TO."
(interactive (el-search-query-replace-read-args))
+ (setq el-search-current-pattern from)
(barf-if-buffer-read-only)
(el-search-search-and-replace-pattern from to mapping))
- [elpa] branch externals/el-search created (now 6df1362), Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 70b8a75 001/332: new package el-search for searching elisp, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search d65ee60 003/332: * el-search.el: Fix first line convention, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 5399f80 002/332: el-search: some small improvements,
Stefan Monnier <=
- [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