comparison lisp/dabbrev.el @ 22572:b1cba467a906

(dabbrev-case-fold-search, dabbrev-case-replace, dabbrev-check-other-buffers): Use `other' widget type.
author Andreas Schwab <schwab@suse.de>
date Wed, 24 Jun 1998 08:54:53 +0000
parents a77d473867b8
children e1e08f5e0662
comparison
equal deleted inserted replaced
22571:4aebb136294f 22572:b1cba467a906
132 A value of nil means case is significant. 132 A value of nil means case is significant.
133 A value of `case-fold-search' means case is significant 133 A value of `case-fold-search' means case is significant
134 if `case-fold-search' is nil. 134 if `case-fold-search' is nil.
135 Any other non-nil version means case is not significant." 135 Any other non-nil version means case is not significant."
136 :type '(choice (const :tag "off" nil) 136 :type '(choice (const :tag "off" nil)
137 (const :tag "on" t) 137 (const :tag "like search" case-fold-search)
138 (const :tag "like search" case-fold-search)) 138 (other :tag "on" t))
139 :group 'dabbrev) 139 :group 'dabbrev)
140 140
141 (defcustom dabbrev-upcase-means-case-search nil 141 (defcustom dabbrev-upcase-means-case-search nil
142 "*The significance of an uppercase character in an abbreviation. 142 "*The significance of an uppercase character in an abbreviation.
143 nil means case fold search, non-nil means case sensitive search. 143 nil means case fold search, non-nil means case sensitive search.
154 Any other non-nil version means do not preserve case. 154 Any other non-nil version means do not preserve case.
155 155
156 This variable has an effect only when the value of 156 This variable has an effect only when the value of
157 `dabbrev-case-fold-search' specifies to ignore case." 157 `dabbrev-case-fold-search' specifies to ignore case."
158 :type '(choice (const :tag "off" nil) 158 :type '(choice (const :tag "off" nil)
159 (const :tag "on" t) 159 (const :tag "like M-x query-replace" case-replace)
160 (const :tag "like M-x query-replace" case-replace)) 160 (other :tag "on" t))
161 :group 'dabbrev) 161 :group 'dabbrev)
162 162
163 (defcustom dabbrev-abbrev-char-regexp nil 163 (defcustom dabbrev-abbrev-char-regexp nil
164 "*Regexp to recognize a character in an abbreviation or expansion. 164 "*Regexp to recognize a character in an abbreviation or expansion.
165 This regexp will be surrounded with \\\\( ... \\\\) when actually used. 165 This regexp will be surrounded with \\\\( ... \\\\) when actually used.
214 buffers too. 214 buffers too.
215 215
216 The default value is t." 216 The default value is t."
217 :type '(choice (const :tag "off" nil) 217 :type '(choice (const :tag "off" nil)
218 (const :tag "on" t) 218 (const :tag "on" t)
219 (const :tag "ask" other)) 219 (other :tag "ask" other))
220 :group 'dabbrev) 220 :group 'dabbrev)
221 221
222 ;; I guess setting this to a function that selects all C- or C++- 222 ;; I guess setting this to a function that selects all C- or C++-
223 ;; mode buffers would be a good choice for a debugging buffer, 223 ;; mode buffers would be a good choice for a debugging buffer,
224 ;; when debugging C- or C++-code. 224 ;; when debugging C- or C++-code.