(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 "")
(defun isearch-yank-line ()
"Pull rest of line from buffer into search string."
(interactive)
- (isearch-yank-internal 'line-end-position)))
+ (isearch-yank-internal 'line-end-position))
(defun isearch-search-and-update ()
(if (and regexp-flag (eq char ?\\))
(setq quote-flag (not quote-flag))
(if (and (not quote-flag) (not (eq char (downcase char))))
- (setq found t))))
+ (setq found t))
+ (setq quote-flag nil)))
(setq i (1+ i)))
(not found)))