Commit ece75c05 authored by Juri Linkov's avatar Juri Linkov
Browse files

(isearch-repeat): With empty search ring set `isearch-error' to the

error string instead of signaling error with the function `error'.
parent b9c7cbf9
2005-11-24 Juri Linkov <juri@jurta.org>
* isearch.el (isearch-repeat): With empty search ring
set `isearch-error' to the error string instead of signaling
error with the function `error'.
2005-11-24 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
 
* term/mac-win.el: Make modifier `ctrl' an alias of `control'.
......
......@@ -1138,15 +1138,16 @@ Use `isearch-exit' to quit without signaling."
;; C-s in forward or C-r in reverse.
(if (equal isearch-string "")
;; If search string is empty, use last one.
(setq isearch-string
(or (if isearch-regexp
(car regexp-search-ring)
(car search-ring))
(error "No previous search string"))
isearch-message
(mapconcat 'isearch-text-char-description
isearch-string "")
isearch-case-fold-search isearch-last-case-fold-search)
(if (null (if isearch-regexp regexp-search-ring search-ring))
(setq isearch-error "No previous search string")
(setq isearch-string
(if isearch-regexp
(car regexp-search-ring)
(car search-ring))
isearch-message
(mapconcat 'isearch-text-char-description
isearch-string "")
isearch-case-fold-search isearch-last-case-fold-search))
;; If already have what to search for, repeat it.
(or isearch-success
(progn
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment