comparison lisp/replace.el @ 59996:aac0a33f5772

Change release version from 21.4 to 22.1 throughout. Change development version from 21.3.50 to 22.0.50.
author Kim F. Storm <storm@cua.dk>
date Wed, 09 Feb 2005 15:50:47 +0000
parents 3d6f4d8e0b8b
children aa148fbcec2e 3ebd9bdb4fe5
comparison
equal deleted inserted replaced
59995:8f4938738427 59996:aac0a33f5772
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."