diff options
| author | Stefan Monnier | 2019-11-16 14:32:09 +1300 |
|---|---|---|
| committer | Phil Sainty | 2019-11-18 21:25:36 +1300 |
| commit | 62187142b9e71d73ad7d1ddafb4a33bf72bcaa15 (patch) | |
| tree | e6dfeff2cad5143e0d1c3ab1893fb01591a6402d | |
| parent | 952bd2050d7a9b48ed4d7413248ef467d7992077 (diff) | |
| download | emacs-62187142b9e71d73ad7d1ddafb4a33bf72bcaa15.tar.gz emacs-62187142b9e71d73ad7d1ddafb4a33bf72bcaa15.zip | |
; * lisp/so-long.el: Delete redundant :group declarations
Refer to (elisp) Common Keywords:
> If this keyword is missing from a customization item, it’ll be
> placed in the same group that was last defined (in the current file).
| -rw-r--r-- | lisp/so-long.el | 48 |
1 files changed, 16 insertions, 32 deletions
diff --git a/lisp/so-long.el b/lisp/so-long.el index 7d54594dd30..f696e06d611 100644 --- a/lisp/so-long.el +++ b/lisp/so-long.el | |||
| @@ -463,8 +463,7 @@ Has no effect if `global-so-long-mode' is not enabled.") | |||
| 463 | 463 | ||
| 464 | See `so-long-detected-long-line-p' for details." | 464 | See `so-long-detected-long-line-p' for details." |
| 465 | :type 'integer | 465 | :type 'integer |
| 466 | :package-version '(so-long . "1.0") | 466 | :package-version '(so-long . "1.0")) |
| 467 | :group 'so-long) | ||
| 468 | 467 | ||
| 469 | (defcustom so-long-max-lines 5 | 468 | (defcustom so-long-max-lines 5 |
| 470 | "Number of non-blank, non-comment lines to test for excessive length. | 469 | "Number of non-blank, non-comment lines to test for excessive length. |
| @@ -478,8 +477,7 @@ be counted. | |||
| 478 | See `so-long-detected-long-line-p' for details." | 477 | See `so-long-detected-long-line-p' for details." |
| 479 | :type '(choice (integer :tag "Limit") | 478 | :type '(choice (integer :tag "Limit") |
| 480 | (const :tag "Unlimited" nil)) | 479 | (const :tag "Unlimited" nil)) |
| 481 | :package-version '(so-long . "1.0") | 480 | :package-version '(so-long . "1.0")) |
| 482 | :group 'so-long) | ||
| 483 | 481 | ||
| 484 | (defcustom so-long-skip-leading-comments t | 482 | (defcustom so-long-skip-leading-comments t |
| 485 | "Non-nil to ignore all leading comments and whitespace. | 483 | "Non-nil to ignore all leading comments and whitespace. |
| @@ -490,8 +488,7 @@ comments following the shebang will be ignored. | |||
| 490 | 488 | ||
| 491 | See `so-long-detected-long-line-p' for details." | 489 | See `so-long-detected-long-line-p' for details." |
| 492 | :type 'boolean | 490 | :type 'boolean |
| 493 | :package-version '(so-long . "1.0") | 491 | :package-version '(so-long . "1.0")) |
| 494 | :group 'so-long) | ||
| 495 | 492 | ||
| 496 | (defcustom so-long-target-modes | 493 | (defcustom so-long-target-modes |
| 497 | '(prog-mode css-mode sgml-mode nxml-mode) | 494 | '(prog-mode css-mode sgml-mode nxml-mode) |
| @@ -507,8 +504,7 @@ files would prevent Emacs from handling them correctly." | |||
| 507 | ;; Use 'symbol', as 'function' may be unknown => mismatch. | 504 | ;; Use 'symbol', as 'function' may be unknown => mismatch. |
| 508 | :type '(choice (repeat :tag "Specified modes" symbol) | 505 | :type '(choice (repeat :tag "Specified modes" symbol) |
| 509 | (const :tag "All modes" t)) | 506 | (const :tag "All modes" t)) |
| 510 | :package-version '(so-long . "1.0") | 507 | :package-version '(so-long . "1.0")) |
| 511 | :group 'so-long) | ||
| 512 | 508 | ||
| 513 | (defcustom so-long-invisible-buffer-function #'so-long-deferred | 509 | (defcustom so-long-invisible-buffer-function #'so-long-deferred |
| 514 | "Function called in place of `so-long' when the buffer is not displayed. | 510 | "Function called in place of `so-long' when the buffer is not displayed. |
| @@ -538,8 +534,7 @@ the mentioned options might interfere with some intended processing." | |||
| 538 | :type '(radio (const so-long-deferred) | 534 | :type '(radio (const so-long-deferred) |
| 539 | (const :tag "nil: Call so-long as normal" nil) | 535 | (const :tag "nil: Call so-long as normal" nil) |
| 540 | (function :tag "Custom function")) | 536 | (function :tag "Custom function")) |
| 541 | :package-version '(so-long . "1.0") | 537 | :package-version '(so-long . "1.0")) |
| 542 | :group 'so-long) | ||
| 543 | 538 | ||
| 544 | (defcustom so-long-predicate 'so-long-detected-long-line-p | 539 | (defcustom so-long-predicate 'so-long-detected-long-line-p |
| 545 | "Function, called after `set-auto-mode' to decide whether action is needed. | 540 | "Function, called after `set-auto-mode' to decide whether action is needed. |
| @@ -552,8 +547,7 @@ then `so-long' will be invoked. | |||
| 552 | Defaults to `so-long-detected-long-line-p'." | 547 | Defaults to `so-long-detected-long-line-p'." |
| 553 | :type '(radio (const so-long-detected-long-line-p) | 548 | :type '(radio (const so-long-detected-long-line-p) |
| 554 | (function :tag "Custom function")) | 549 | (function :tag "Custom function")) |
| 555 | :package-version '(so-long . "1.0") | 550 | :package-version '(so-long . "1.0")) |
| 556 | :group 'so-long) | ||
| 557 | 551 | ||
| 558 | ;; Silence byte-compiler warning. `so-long-action-alist' is defined below | 552 | ;; Silence byte-compiler warning. `so-long-action-alist' is defined below |
| 559 | ;; as a user option; but the definition sequence required for its setter | 553 | ;; as a user option; but the definition sequence required for its setter |
| @@ -605,8 +599,7 @@ subsequently called." | |||
| 605 | (function :tag "Action") | 599 | (function :tag "Action") |
| 606 | (function :tag "Revert"))) | 600 | (function :tag "Revert"))) |
| 607 | :set #'so-long--action-alist-setter | 601 | :set #'so-long--action-alist-setter |
| 608 | :package-version '(so-long . "1.0") | 602 | :package-version '(so-long . "1.0")) |
| 609 | :group 'so-long) | ||
| 610 | (put 'so-long-action-alist 'risky-local-variable t) | 603 | (put 'so-long-action-alist 'risky-local-variable t) |
| 611 | 604 | ||
| 612 | (defcustom so-long-action 'so-long-mode | 605 | (defcustom so-long-action 'so-long-mode |
| @@ -630,8 +623,7 @@ Each action likewise determines the behaviour of `so-long-revert'. | |||
| 630 | If the value is nil, or not defined in `so-long-action-alist', then no action | 623 | If the value is nil, or not defined in `so-long-action-alist', then no action |
| 631 | will be taken." | 624 | will be taken." |
| 632 | :type (so-long--action-type) | 625 | :type (so-long--action-type) |
| 633 | :package-version '(so-long . "1.0") | 626 | :package-version '(so-long . "1.0")) |
| 634 | :group 'so-long) | ||
| 635 | 627 | ||
| 636 | (defvar-local so-long-function nil | 628 | (defvar-local so-long-function nil |
| 637 | "The function called by `so-long'. | 629 | "The function called by `so-long'. |
| @@ -701,8 +693,7 @@ an example." | |||
| 701 | (const so-long-inhibit) | 693 | (const so-long-inhibit) |
| 702 | (const :tag "nil: Use so-long-function as normal" nil) | 694 | (const :tag "nil: Use so-long-function as normal" nil) |
| 703 | (function :tag "Custom function")) | 695 | (function :tag "Custom function")) |
| 704 | :package-version '(so-long . "1.0") | 696 | :package-version '(so-long . "1.0")) |
| 705 | :group 'so-long) | ||
| 706 | (make-variable-buffer-local 'so-long-file-local-mode-function) | 697 | (make-variable-buffer-local 'so-long-file-local-mode-function) |
| 707 | 698 | ||
| 708 | ;; `provided-mode-derived-p' was added in 26.1 | 699 | ;; `provided-mode-derived-p' was added in 26.1 |
| @@ -779,8 +770,7 @@ disabled modes are re-enabled by calling them with the numeric argument 1. | |||
| 779 | Please submit bug reports to recommend additional modes for this list, whether | 770 | Please submit bug reports to recommend additional modes for this list, whether |
| 780 | they are in Emacs core, GNU ELPA, or elsewhere." | 771 | they are in Emacs core, GNU ELPA, or elsewhere." |
| 781 | :type '(repeat symbol) ;; not function, as may be unknown => mismatch. | 772 | :type '(repeat symbol) ;; not function, as may be unknown => mismatch. |
| 782 | :package-version '(so-long . "1.0") | 773 | :package-version '(so-long . "1.0")) |
| 783 | :group 'so-long) | ||
| 784 | 774 | ||
| 785 | (defcustom so-long-variable-overrides | 775 | (defcustom so-long-variable-overrides |
| 786 | '((bidi-paragraph-direction . left-to-right) | 776 | '((bidi-paragraph-direction . left-to-right) |
| @@ -813,24 +803,21 @@ scanned to find the next position." | |||
| 813 | (show-paren-mode boolean) | 803 | (show-paren-mode boolean) |
| 814 | (truncate-lines boolean) | 804 | (truncate-lines boolean) |
| 815 | (which-func-mode boolean)) | 805 | (which-func-mode boolean)) |
| 816 | :package-version '(so-long . "1.0") | 806 | :package-version '(so-long . "1.0")) |
| 817 | :group 'so-long) | ||
| 818 | 807 | ||
| 819 | (defcustom so-long-hook nil | 808 | (defcustom so-long-hook nil |
| 820 | "List of functions to call after `so-long' is called. | 809 | "List of functions to call after `so-long' is called. |
| 821 | 810 | ||
| 822 | See also `so-long-revert-hook'." | 811 | See also `so-long-revert-hook'." |
| 823 | :type 'hook | 812 | :type 'hook |
| 824 | :package-version '(so-long . "1.0") | 813 | :package-version '(so-long . "1.0")) |
| 825 | :group 'so-long) | ||
| 826 | 814 | ||
| 827 | (defcustom so-long-revert-hook nil | 815 | (defcustom so-long-revert-hook nil |
| 828 | "List of functions to call after `so-long-revert' is called. | 816 | "List of functions to call after `so-long-revert' is called. |
| 829 | 817 | ||
| 830 | See also `so-long-hook'." | 818 | See also `so-long-hook'." |
| 831 | :type 'hook | 819 | :type 'hook |
| 832 | :package-version '(so-long . "1.0") | 820 | :package-version '(so-long . "1.0")) |
| 833 | :group 'so-long) | ||
| 834 | 821 | ||
| 835 | (defcustom so-long-mode-line-label "So Long" | 822 | (defcustom so-long-mode-line-label "So Long" |
| 836 | "Text label of `so-long-mode-line-info' when long lines are detected. | 823 | "Text label of `so-long-mode-line-info' when long lines are detected. |
| @@ -838,20 +825,17 @@ See also `so-long-hook'." | |||
| 838 | If nil, no mode line indicator will be displayed." | 825 | If nil, no mode line indicator will be displayed." |
| 839 | :type '(choice (string :tag "String") | 826 | :type '(choice (string :tag "String") |
| 840 | (const :tag "None" nil)) | 827 | (const :tag "None" nil)) |
| 841 | :package-version '(so-long . "1.0") | 828 | :package-version '(so-long . "1.0")) |
| 842 | :group 'so-long) | ||
| 843 | 829 | ||
| 844 | (defface so-long-mode-line-active | 830 | (defface so-long-mode-line-active |
| 845 | '((t :inherit mode-line-emphasis)) | 831 | '((t :inherit mode-line-emphasis)) |
| 846 | "Face for `so-long-mode-line-info' when mitigations are active." | 832 | "Face for `so-long-mode-line-info' when mitigations are active." |
| 847 | :package-version '(so-long . "1.0") | 833 | :package-version '(so-long . "1.0")) |
| 848 | :group 'so-long) | ||
| 849 | 834 | ||
| 850 | (defface so-long-mode-line-inactive | 835 | (defface so-long-mode-line-inactive |
| 851 | '((t :inherit mode-line-inactive)) | 836 | '((t :inherit mode-line-inactive)) |
| 852 | "Face for `so-long-mode-line-info' when mitigations have been reverted." | 837 | "Face for `so-long-mode-line-info' when mitigations have been reverted." |
| 853 | :package-version '(so-long . "1.0") | 838 | :package-version '(so-long . "1.0")) |
| 854 | :group 'so-long) | ||
| 855 | 839 | ||
| 856 | ;; Modes that go slowly and line lengths excessive | 840 | ;; Modes that go slowly and line lengths excessive |
| 857 | ;; Font-lock performance becoming oppressive | 841 | ;; Font-lock performance becoming oppressive |