Mercurial > emacs

changeset 29373:d74da5c22ef9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(isearch-highlight): Turn internal-find-face into facep.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 02 Jun 2000 00:48:17 +0000
parents aa441d8e95cd
children 8583675a6f96
files lisp/isearch.el
diffstat 1 files changed, 2 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/isearch.el	Thu Jun 01 19:04:28 2000 +0000
+++ b/lisp/isearch.el	Fri Jun 02 00:48:17 2000 +0000
@@ -1498,8 +1498,7 @@
 		       (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 @@
     (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)