(isearch-complete1): Don't allocate unnecessarily.

(isearch-complete-edit): Adjust to Emacs-21's new minibuffer handling.
(isearch-update-ring): Use push.

1 files changed, 6 insertions, 8 deletions

diff --git a/lisp/isearch.el b/lisp/isearch.el
index af4099d29d..bb989a73f9 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1,6 +1,6 @@
 ;;; isearch.el --- incremental search minor mode
 
-;; Copyright (C) 1992, 93, 94, 95, 96, 97, 1999, 2000, 2001
+;; Copyright (C) 1992, 93, 94, 95, 96, 97, 1999, 2000, 01, 2003
 ;;   Free Software Foundation, Inc.
 
 ;; Author: Daniel LaLiberte <[email protected]>
@@ -738,15 +738,14 @@ REGEXP says which ring to use."
       (if (or (null regexp-search-ring)
 	      (not (string= string (car regexp-search-ring))))
 	  (progn
-	    (setq regexp-search-ring
-		  (cons string regexp-search-ring))
+	    (push string regexp-search-ring)
 	    (if (> (length regexp-search-ring) regexp-search-ring-max)
 		(setcdr (nthcdr (1- search-ring-max) regexp-search-ring)
 			nil))))
     (if (or (null search-ring)
 	    (not (string= string (car search-ring))))
 	(progn
-	  (setq search-ring (cons string search-ring))
+	  (push string search-ring)
 	  (if (> (length search-ring) search-ring-max)
 	      (setcdr (nthcdr (1- search-ring-max) search-ring) nil))))))
 
@@ -1493,9 +1492,8 @@ With prefix arg N, insert the Nth element."
   ;; Helper for isearch-complete and isearch-complete-edit
   ;; Return t if completion OK, nil if no completion exists.
   (let* ((ring (if isearch-regexp regexp-search-ring search-ring))
-         (alist (mapcar (function (lambda (string) (list string))) ring))
          (completion-ignore-case case-fold-search)
-         (completion (try-completion isearch-string alist)))
+         (completion (try-completion isearch-string ring)))
     (cond
      ((eq completion t)
       ;; isearch-string stays the same
@@ -1507,7 +1505,7 @@ With prefix arg N, insert the Nth element."
 	    (if completion-auto-help
 		(with-output-to-temp-buffer "*Isearch completions*"
 		  (display-completion-list
-		   (all-completions isearch-string alist))))
+		   (all-completions isearch-string ring))))
 	    t)
 	(and completion
 	     (setq isearch-string completion))))
@@ -1529,7 +1527,7 @@ If there is no completion possible, say so and continue searching."
 (defun isearch-complete-edit ()
   "Same as `isearch-complete' except in the minibuffer."
   (interactive)
-  (setq isearch-string (buffer-string))
+  (setq isearch-string (field-string))
   (if (isearch-complete1)
       (progn
 	(delete-field)