mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-26 19:18:50 +00:00
Code Issues Releases Activity

(previous-matching-history-element): If minibuf is empty,

Browse Source 
use the last regexp specified a the default.
(next-matching-history-element): Likewise.
This commit is contained in:
Richard M. Stallman 1993-05-06 18:54:32 +00:00
parent 080478d65a
commit c1172a195d
1 changed files with 24 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
lisp/simple.el
View File

@ -478,13 +478,18 @@ contains expressions rather than strings.")
With prefix argument N, search for Nth previous match.
If N is negative, find the next or Nth next match."
(interactive
(let ((enable-recursive-minibuffers t)
(minibuffer-history-sexp-flag nil))
(list (read-from-minibuffer "Previous element matching (regexp): "
nil
minibuffer-local-map
nil
'minibuffer-history-search-history)
(let* ((enable-recursive-minibuffers t)
(minibuffer-history-sexp-flag nil)
(regexp (read-from-minibuffer "Previous element matching (regexp): "
nil
minibuffer-local-map
nil
'minibuffer-history-search-history)))
;; Use the last regexp specified, by default, if input is empty.
(list (if (string= regexp "")
(setcar minibuffer-history-search-history
(nth 1 minibuffer-history-search-history))
regexp)
(prefix-numeric-value current-prefix-arg))))
(let ((history (symbol-value minibuffer-history-variable))
prevpos
@ -518,13 +523,18 @@ If N is negative, find the next or Nth next match."
With prefix argument N, search for Nth next match.
If N is negative, find the previous or Nth previous match."
(interactive
(let ((enable-recursive-minibuffers t)
(minibuffer-history-sexp-flag nil))
(list (read-from-minibuffer "Next element matching (regexp): "
nil
minibuffer-local-map
nil
'minibuffer-history-search-history)
(let* ((enable-recursive-minibuffers t)
(minibuffer-history-sexp-flag nil)
(regexp (read-from-minibuffer "Next element matching (regexp): "
nil
minibuffer-local-map
nil
'minibuffer-history-search-history)))
;; Use the last regexp specified, by default, if input is empty.
(list (if (string= regexp "")
(setcar minibuffer-history-search-history
(nth 1 minibuffer-history-search-history))
regexp)
(prefix-numeric-value current-prefix-arg))))
(previous-matching-history-element regexp (- n)))