(isearch-highlight): Turn internal-find-face into facep.

2 files changed, 6 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cc8f3a60737..6e7d4ba4743 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-06-01  Stefan Monnier  <monnier@cs.yale.edu>
+
+        * isearch.el (isearch-highlight): Turn internal-find-face into facep.
+
 2000-06-01  Dave Love  <fx@gnu.org>
 
         * hl-line.el: Rewritten using define-minor-mode.
diff --git a/lisp/isearch.el b/lisp/isearch.el
index cbb9e84c891..8b0dc932151 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1498,8 +1498,7 @@ If there is no completion possible, say so and continue searching."
                        (concat " [" current-input-method-title "]: ")
                      ": ")
                    )))
-    (aset m 0 (upcase (aref m 0)))
-    m))
+    (concat (upcase (substring m 0 1)) (substring m 1))))
 
 
 (defun isearch-message-suffix (&optional c-q-hack ellipsis)
@@ -1729,7 +1728,7 @@ If there is no completion possible, say so and continue searching."
     (or isearch-overlay (setq isearch-overlay (make-overlay beg end)))
     (move-overlay isearch-overlay beg end (current-buffer))
     (overlay-put isearch-overlay 'face
-                 (if (internal-find-face 'isearch nil)
+                 (if (facep 'isearch)
                      'isearch 'region))))
 
 (defun isearch-dehighlight (totally)