Mercurial > hg > xemacs-beta
comparison lisp/cmdloop.el @ 5383:294ab9180fad
#'custom-add-to-group: warn if GROUP is nil.
2011-03-24 Aidan Kehoe <kehoea@parhasard.net>
* custom.el (custom-add-to-group):
Warn if adding an option to the nil group; this is usually an
error on the part of the programmer.
* cmdloop.el (suggest-key-bindings):
Specify a group for this variable, it didn't previously have one.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Thu, 24 Mar 2011 06:22:25 +0000 |
| parents | ed74d2ca7082 |
| children | 4dee0387b9de |
comparison
equal
deleted
inserted
replaced
| 5382:d363790fd936 | 5383:294ab9180fad |
|---|---|
| 311 If the value is non-nil and not a number, we wait the number of seconds | 311 If the value is non-nil and not a number, we wait the number of seconds |
| 312 specified by `teach-extended-commands-timeout'." | 312 specified by `teach-extended-commands-timeout'." |
| 313 :type '(choice | 313 :type '(choice |
| 314 (const :tag "off" nil) | 314 (const :tag "off" nil) |
| 315 (integer :tag "time" 2) | 315 (integer :tag "time" 2) |
| 316 (other :tag "on"))) | 316 (other :tag "on")) |
| 317 :group 'keyboard) | |
| 317 | 318 |
| 318 (dontusethis-set-symbol-value-handler | 319 (dontusethis-set-symbol-value-handler |
| 319 'suggest-key-bindings | 320 'suggest-key-bindings |
| 320 'set-value | 321 'set-value |
| 321 #'(lambda (sym args fun harg handler) | 322 #'(lambda (sym args fun harg handler) |