diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-06-02 00:48:43 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-06-02 00:48:43 +0000 |
| commit | c5def0db86105ac657a6df9eeb9df5b8452adf03 (patch) | |
| tree | 2e2ceda4153e96b44695058d56bf3a4f16ca2a53 | |
| parent | 2330c9d456bbd96e6866774f64afa4f8fe4983b0 (diff) | |
| download | emacs-c5def0db86105ac657a6df9eeb9df5b8452adf03.tar.gz | |
(isearch-highlight): Turn internal-find-face into facep.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/isearch.el | 5 |
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) |