Mercurial > emacs
comparison lisp/cus-edit.el @ 73643:b99336492688
(custom-unlispify-menu-entries, custom-unlispify-tag-names,
custom-prompt-variable): Use "non-nil" in docstrings.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 03 Nov 2006 15:06:26 +0000 |
| parents | 1a9d85f409b8 |
| children | 2bd04d2f629a |
comparison
equal
deleted
inserted
replaced
| 73642:d4b7bfddf3f5 | 73643:b99336492688 |
|---|---|
| 519 | 519 |
| 520 (defvar custom-prefix-list nil | 520 (defvar custom-prefix-list nil |
| 521 "List of prefixes that should be ignored by `custom-unlispify'.") | 521 "List of prefixes that should be ignored by `custom-unlispify'.") |
| 522 | 522 |
| 523 (defcustom custom-unlispify-menu-entries t | 523 (defcustom custom-unlispify-menu-entries t |
| 524 "Display menu entries as words instead of symbols if non nil." | 524 "Display menu entries as words instead of symbols if non-nil." |
| 525 :group 'custom-menu | 525 :group 'custom-menu |
| 526 :type 'boolean) | 526 :type 'boolean) |
| 527 | 527 |
| 528 (defcustom custom-unlispify-remove-prefixes nil | 528 (defcustom custom-unlispify-remove-prefixes nil |
| 529 "Non-nil means remove group prefixes from option names in buffer." | 529 "Non-nil means remove group prefixes from option names in buffer." |
| 566 (goto-char (point-max)) | 566 (goto-char (point-max)) |
| 567 (insert "...")) | 567 (insert "...")) |
| 568 (buffer-string))))) | 568 (buffer-string))))) |
| 569 | 569 |
| 570 (defcustom custom-unlispify-tag-names t | 570 (defcustom custom-unlispify-tag-names t |
| 571 "Display tag names as words instead of symbols if non nil." | 571 "Display tag names as words instead of symbols if non-nil." |
| 572 :group 'custom-buffer | 572 :group 'custom-buffer |
| 573 :type 'boolean) | 573 :type 'boolean) |
| 574 | 574 |
| 575 (defun custom-unlispify-tag-name (symbol) | 575 (defun custom-unlispify-tag-name (symbol) |
| 576 "Convert SYMBOL into a menu entry." | 576 "Convert SYMBOL into a menu entry." |
| 844 it were the arg to `interactive' (which see) to interactively read the value. | 844 it were the arg to `interactive' (which see) to interactively read the value. |
| 845 | 845 |
| 846 If the variable has a `custom-type' property, it must be a widget and the | 846 If the variable has a `custom-type' property, it must be a widget and the |
| 847 `:prompt-value' property of that widget will be used for reading the value. | 847 `:prompt-value' property of that widget will be used for reading the value. |
| 848 | 848 |
| 849 If optional COMMENT argument is non nil, also prompt for a comment and return | 849 If optional COMMENT argument is non-nil, also prompt for a comment and return |
| 850 it as the third element in the list." | 850 it as the third element in the list." |
| 851 (let* ((var (read-variable prompt-var)) | 851 (let* ((var (read-variable prompt-var)) |
| 852 (minibuffer-help-form '(describe-variable var)) | 852 (minibuffer-help-form '(describe-variable var)) |
| 853 (val | 853 (val |
| 854 (let ((prop (get var 'variable-interactive)) | 854 (let ((prop (get var 'variable-interactive)) |