aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2019-11-16 14:32:09 +1300
committerPhil Sainty2019-11-18 21:25:36 +1300
commit62187142b9e71d73ad7d1ddafb4a33bf72bcaa15 (patch)
treee6dfeff2cad5143e0d1c3ab1893fb01591a6402d
parent952bd2050d7a9b48ed4d7413248ef467d7992077 (diff)
downloademacs-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.el48
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
464See `so-long-detected-long-line-p' for details." 464See `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.
478See `so-long-detected-long-line-p' for details." 477See `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
491See `so-long-detected-long-line-p' for details." 489See `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.
552Defaults to `so-long-detected-long-line-p'." 547Defaults 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'.
630If the value is nil, or not defined in `so-long-action-alist', then no action 623If the value is nil, or not defined in `so-long-action-alist', then no action
631will be taken." 624will 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.
779Please submit bug reports to recommend additional modes for this list, whether 770Please submit bug reports to recommend additional modes for this list, whether
780they are in Emacs core, GNU ELPA, or elsewhere." 771they 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
822See also `so-long-revert-hook'." 811See 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
830See also `so-long-hook'." 818See 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'."
838If nil, no mode line indicator will be displayed." 825If 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