mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-25 19:11:56 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Stefan Monnier 2000-06-02 00:48:43 +00:00
parent 2330c9d456
commit c5def0db86
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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.

5
lisp/isearch.el
View File

@ -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)