Mercurial > emacs
comparison lisp/isearch.el @ 76362:80b69f15b249
(isearch-message-prefix): Undo 2007-03-01 change.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Tue, 06 Mar 2007 09:19:54 +0000 |
| parents | 6ad212461ddf |
| children | a79dc3730ce6 738ce3540ffb 91bf6e05918b |
comparison
equal
deleted
inserted
replaced
| 76361:0fa44ab48cff | 76362:80b69f15b249 |
|---|---|
| 1955 (if isearch-forward "" " backward") | 1955 (if isearch-forward "" " backward") |
| 1956 (if current-input-method | 1956 (if current-input-method |
| 1957 (concat " [" current-input-method-title "]: ") | 1957 (concat " [" current-input-method-title "]: ") |
| 1958 ": ") | 1958 ": ") |
| 1959 ))) | 1959 ))) |
| 1960 (apply 'propertize | 1960 (propertize (concat (upcase (substring m 0 1)) (substring m 1)) |
| 1961 (concat (upcase (substring m 0 1)) (substring m 1)) | 1961 'face 'minibuffer-prompt))) |
| 1962 minibuffer-prompt-properties))) | |
| 1963 | 1962 |
| 1964 (defun isearch-message-suffix (&optional c-q-hack ellipsis) | 1963 (defun isearch-message-suffix (&optional c-q-hack ellipsis) |
| 1965 (concat (if c-q-hack "^Q" "") | 1964 (concat (if c-q-hack "^Q" "") |
| 1966 (if isearch-error | 1965 (if isearch-error |
| 1967 (concat " [" isearch-error "]") | 1966 (concat " [" isearch-error "]") |