[Emacs-diffs] Changes to emacs/lisp/isearch.el

[Juri Linkov]

Index: emacs/lisp/isearch.el
diff -c emacs/lisp/isearch.el:1.275 emacs/lisp/isearch.el:1.276
*** emacs/lisp/isearch.el:1.275 Thu Sep 29 22:55:53 2005
--- emacs/lisp/isearch.el       Thu Nov 24 09:59:11 2005
***************
*** 1138,1152 ****
        ;; 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 already have what to search for, repeat it.
        (or isearch-success
            (progn
--- 1138,1153 ----
        ;; C-s in forward or C-r in reverse.
        (if (equal isearch-string "")
          ;; If search string is empty, use last one.
!         (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