Mercurial > emacs

comparison lisp/isearch.el @ 83560:738ce3540ffb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged from emacs@sv.gnu.org Patches applied: * emacs@sv.gnu.org/emacs--devo--0--patch-660 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-661 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-662 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-663 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-664 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-665 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-666 Fix read-only prompt problem in isearch * emacs@sv.gnu.org/emacs--devo--0--patch-667 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-668 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-669 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-670 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-671 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-672 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-673 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-206 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-207 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-208 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-600
author Karoly Lorentey <karoly@lorentey.hu>
date Sun, 22 Apr 2007 12:12:29 +0000
parents edf631bdbb7a 80b69f15b249
children dc002877ce12
comparison
equal deleted inserted replaced
83559:edf631bdbb7a 83560:738ce3540ffb
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 "]")