Mercurial > emacs
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. |