branch: master
commit 5bca5bed47bd660886266ac6038eca6e866ad686
Author: Michael Heerdegen <michael_heerde...@web.de>
Commit: Michael Heerdegen <michael_heerde...@web.de>
Add new command `el-search-this-sexp'
---
packages/el-search/el-search.el | 39 +++++++++++++++++++++++++++++++++++++++
1 file changed, 39 insertions(+)
diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index a024212..b6d1021 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -89,6 +89,10 @@
;; Resume the last search from the position of the last visited
;; match, or (with prefix arg) prompt for an old search to resume.
;;
+;; C-H (el-search-this-sexp)
+;; Grab the symbol or sexp under point and initiate an el-search
+;; for other occurrences.
+;;
;;
;; These bindings may not work in a console (if you have a good idea
;; for nice alternative bindings please mail me).
@@ -1303,6 +1307,7 @@ that contain a file named \".nosearch\" are excluded as
well."
(define-key emacs-lisp-mode-map [(control ?S)] #'el-search-pattern)
(define-key emacs-lisp-mode-map [(control ?R)] #'el-search-pattern-backwards)
(define-key emacs-lisp-mode-map [(control ?%)] #'el-search-query-replace)
+ (define-key emacs-lisp-mode-map [(control ?H)] #'el-search-this-sexp) ;H
like in "highlight" or "here"
(define-key global-map [(control ?J)]
#'el-search-jump-to-search-head)
(define-key global-map [(control ?A)] #'el-search-from-beginning)
(define-key global-map [(control ?D)] #'el-search-skip-directory)
@@ -2030,6 +2035,40 @@ With prefix arg, restart the current search."
(define-obsolete-function-alias 'el-search-previous-match
'el-search-pattern-backwards)
+(defun el-search-this-sexp (sexp)
+ "Prepare to el-search the `sexp-at-point'.
+
+Grab the `sexp-at-point' SEXP and prepare to el-search the
+current buffer for other matches of 'SEXP.
+
+Use the normal search commands to seize the search."
+ (interactive (list (if (not (derived-mode-p 'emacs-lisp-mode))
+ (user-error "Current buffer not in `emacs-lisp-mode'")
+ (let ((symbol-at-point-text (thing-at-point 'symbol))
+ symbol-at-point)
+ (if (and symbol-at-point-text
+ ;; That should ideally be always true but
isn't
+ (condition-case nil
+ (symbolp (setq symbol-at-point (read
symbol-at-point-text)))
+ (invalid-read-syntax nil)))
+ symbol-at-point
+ (if (thing-at-point 'sexp)
+ (sexp-at-point)
+ (user-error "No sexp at point")))))))
+ (let ((printed-sexp (el-search--pp-to-string sexp)))
+ (el-search--pushnew-to-history (concat "'" printed-sexp)
'el-search-pattern-history)
+ (el-search-setup-search-1
+ `',sexp
+ (let ((current-buffer (current-buffer)))
+ (lambda () (stream (list current-buffer))))
+ 'from-here)
+ (el-search--next-buffer el-search--current-search)
+ (setq this-command 'el-search-pattern
+ el-search--success t)
+ (el-search-hl-other-matches (el-search--current-matcher))
+ (add-hook 'post-command-hook #'el-search-hl-post-command-fun t t)
+ (el-search--message-no-log "%s" printed-sexp)))
+
;;;; El-Occur
