Mercurial > emacs

comparison lisp/replace.el @ 90103:3ebd9bdb4fe5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-13 Merge from emacs--cvs-trunk--0 Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-83 - miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-89 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-90 Update from CVS: man/calc.texi: Add macro for LaTeX for info output. * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-91 - miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-94 Update from CVS
author Miles Bader <miles@gnu.org>
date Sun, 13 Feb 2005 07:19:08 +0000
parents cb67264d6096 aac0a33f5772
children 7e3f621f1dd4
comparison
equal deleted inserted replaced
90102:9b4f359c4117 90103:3ebd9bdb4fe5
60 60
61 (defcustom query-replace-skip-read-only nil 61 (defcustom query-replace-skip-read-only nil
62 "*Non-nil means `query-replace' and friends ignore read-only matches." 62 "*Non-nil means `query-replace' and friends ignore read-only matches."
63 :type 'boolean 63 :type 'boolean
64 :group 'matching 64 :group 'matching
65 :version "21.4") 65 :version "22.1")
66 66
67 (defcustom query-replace-highlight t 67 (defcustom query-replace-highlight t
68 "*Non-nil means to highlight matches during query replacement." 68 "*Non-nil means to highlight matches during query replacement."
69 :type 'boolean 69 :type 'boolean
70 :group 'matching) 70 :group 'matching)
75 is highlighted lazily using isearch lazy highlighting (see 75 is highlighted lazily using isearch lazy highlighting (see
76 `lazy-highlight-initial-delay' and `lazy-highlight-interval')." 76 `lazy-highlight-initial-delay' and `lazy-highlight-interval')."
77 :type 'boolean 77 :type 'boolean
78 :group 'lazy-highlight 78 :group 'lazy-highlight
79 :group 'matching 79 :group 'matching
80 :version "21.4") 80 :version "22.1")
81 81
82 (defface query-replace 82 (defface query-replace
83 '((t (:inherit isearch))) 83 '((t (:inherit isearch)))
84 "Face for highlighting query replacement matches." 84 "Face for highlighting query replacement matches."
85 :group 'matching 85 :group 'matching
86 :version "21.4") 86 :version "22.1")
87 87
88 (defun query-replace-descr (string) 88 (defun query-replace-descr (string)
89 (mapconcat 'isearch-text-char-description string "")) 89 (mapconcat 'isearch-text-char-description string ""))
90 90
91 (defun query-replace-read-from (string regexp-flag) 91 (defun query-replace-read-from (string regexp-flag)
787 (((type tty) (class mono)) 787 (((type tty) (class mono))
788 :inverse-video t) 788 :inverse-video t)
789 (t :background "gray")) 789 (t :background "gray"))
790 "Face used to highlight matches permanently." 790 "Face used to highlight matches permanently."
791 :group 'matching 791 :group 'matching
792 :version "21.4") 792 :version "22.1")
793 793
794 (defcustom list-matching-lines-default-context-lines 0 794 (defcustom list-matching-lines-default-context-lines 0
795 "*Default number of context lines included around `list-matching-lines' matches. 795 "*Default number of context lines included around `list-matching-lines' matches.
796 A negative number means to include that many lines before the match. 796 A negative number means to include that many lines before the match.
797 A positive number means to include that many lines both before and after." 797 A positive number means to include that many lines both before and after."