mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/menu-bar.el: Use folding in searches

Browse source 
(nonincremental-search-forward): Use `isearch-search-fun-default'
to determine the search function.
(nonincremental-search-backward)
(nonincremental-repeat-search-forward)
(nonincremental-repeat-search-backward): Use it.
This commit is contained in:
Artur Malabarba 2015-11-29 21:20:33 +00:00
parent 468659cd36
commit 71d6d631ae
1 changed files with 14 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

28
lisp/menu-bar.el
View file

@ -218,7 +218,7 @@
(cond
((and (eq menu-bar-last-search-type 'string)
search-ring)
(search-forward (car search-ring)))
(nonincremental-search-forward))
((and (eq menu-bar-last-search-type 'regexp)
regexp-search-ring)
(re-search-forward (car regexp-search-ring)))
@ -231,30 +231,30 @@
(cond
((and (eq menu-bar-last-search-type 'string)
search-ring)
(search-backward (car search-ring)))
(nonincremental-search-backward))
((and (eq menu-bar-last-search-type 'regexp)
regexp-search-ring)
(re-search-backward (car regexp-search-ring)))
(t
(error "No previous search"))))
(defun nonincremental-search-forward (string)
(defun nonincremental-search-forward (&optional string backward)
"Read a string and search for it nonincrementally."
(interactive "sSearch for string: ")
(setq menu-bar-last-search-type 'string)
(if (equal string "")
(search-forward (car search-ring))
(isearch-update-ring string nil)
(search-forward string)))
;; Ideally, this whole command would be equivalent to `C-s RET'.
(let ((isearch-forward (not backward))
(isearch-regexp-function search-default-regexp-mode)
(isearch-regexp nil))
(if (or (equal string "") (not string))
(funcall (isearch-search-fun-default) (car search-ring))
(isearch-update-ring string nil)
(funcall (isearch-search-fun-default) string))))
(defun nonincremental-search-backward (string)
(defun nonincremental-search-backward (&optional string)
"Read a string and search backward for it nonincrementally."
(interactive "sSearch for string: ")
(setq menu-bar-last-search-type 'string)
(if (equal string "")
(search-backward (car search-ring))
(isearch-update-ring string nil)
(search-backward string)))
(interactive "sSearch backwards for string: ")
(nonincremental-search-forward string 'backward))
(defun nonincremental-re-search-forward (string)
"Read a regular expression and search for it nonincrementally."