From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 2 Jun 2000 00:48:43 +0000 (+0000)
Subject: (isearch-highlight): Turn internal-find-face into facep.
X-Git-Tag: emacs-pretest-21.0.90~3562
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c5def0db86105ac657a6df9eeb9df5b8452adf03;p=emacs.git

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

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)