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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cc8f3a607376b82e571251a87dcccf47a05bab2e..6e7d4ba47436dc2a08883872670d2499ab626f7e 100644 (file)
--- 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 cbb9e84c8915852c966def9de8d44ac32a2e5464..8b0dc9321512c92d1a29e05dedba62ca24073185 100644 (file)
--- 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)