Commit ed8be7ff authored by Glenn Morris's avatar Glenn Morris
Browse files

Misc custom group fixes

* cus-start.el (show-trailing-whitespace): Move to editing basics.
* faces.el (trailing-whitespace): Don't use whitespace-faces group.
* obsolete/old-whitespace.el (whitespace-faces): Remove group.
(whitespace-highlight): Move to whitespace group.

* comint.el (comint-source):
* pcmpl-linux.el (pcmpl-linux):
* shell.el (shell-faces):
* eshell/esh-opt.el (eshell-opt):
* international/ccl.el (ccl): Remove empty custom groups.

* completion.el (dynamic-completion-mode):
* jit-lock.el (jit-lock-debug-mode):
* minibuffer.el (completion-in-region-mode):
* type-break.el (type-break-mode-line-message-mode)
(type-break-query-mode):
* emulation/tpu-edt.el (tpu-edt-mode):
* progmodes/subword.el (global-subword-mode, global-superword-mode):
* progmodes/vhdl-mode.el (vhdl-electric-mode, vhdl-stutter-mode):
* term/vt100.el (vt100-wide-mode): Specify explicit :group.

* term/xterm.el (xterm): Change parent group to terminals.

* master.el (master): Remove empty custom group.
(master-mode): Remove unused :group argument.
* textmodes/refill.el (refill): Remove empty custom group.
(refill-mode): Remove unused :group argument.

* textmodes/rst.el (rst-compile-toolsets): Use rst-compile group.

* cedet/semantic/symref/list.el (semantic-symref-auto-expand-results)
(semantic-symref-results-mode-hook)
(semantic-symref-results-summary-function): Fix :group.

* erc/erc-list.el (erc-list):
* erc/erc-menu.el (erc-menu):
* erc/erc-ring.el (erc-ring): Define custom groups, for define-erc-module.

* gnus/shr-color.el (shr-color-visible-luminance-min)
(shr-color-visible-distance-min): Use shr-color group.

* url/url-news.el (url-news): Remove empty custom group.
parent 82a7c41b
2013-05-15 Glenn Morris <rgm@gnu.org> 2013-05-15 Glenn Morris <rgm@gnu.org>
   
* cus-start.el (show-trailing-whitespace): Move to editing basics.
* faces.el (trailing-whitespace): Don't use whitespace-faces group.
* obsolete/old-whitespace.el (whitespace-faces): Remove group.
(whitespace-highlight): Move to whitespace group.
* comint.el (comint-source):
* pcmpl-linux.el (pcmpl-linux):
* shell.el (shell-faces):
* eshell/esh-opt.el (eshell-opt):
* international/ccl.el (ccl): Remove empty custom groups.
* completion.el (dynamic-completion-mode):
* jit-lock.el (jit-lock-debug-mode):
* minibuffer.el (completion-in-region-mode):
* type-break.el (type-break-mode-line-message-mode)
(type-break-query-mode):
* emulation/tpu-edt.el (tpu-edt-mode):
* progmodes/subword.el (global-subword-mode, global-superword-mode):
* progmodes/vhdl-mode.el (vhdl-electric-mode, vhdl-stutter-mode):
* term/vt100.el (vt100-wide-mode): Specify explicit :group.
* term/xterm.el (xterm): Change parent group to terminals.
* master.el (master): Remove empty custom group.
(master-mode): Remove unused :group argument.
* textmodes/refill.el (refill): Remove empty custom group.
(refill-mode): Remove unused :group argument.
* textmodes/rst.el (rst-compile-toolsets): Use rst-compile group.
* cus-dep.el: Provide a feature. * cus-dep.el: Provide a feature.
(custom-make-dependencies): Ignore dotfiles (dir-locals). (custom-make-dependencies): Ignore dotfiles (dir-locals).
Don't mistakenly ignore files whose basenames match a basename Don't mistakenly ignore files whose basenames match a basename
......
2013-05-15 Glenn Morris <rgm@gnu.org>
* semantic/symref/list.el (semantic-symref-auto-expand-results)
(semantic-symref-results-mode-hook)
(semantic-symref-results-summary-function): Fix :group.
2013-05-14 Glenn Morris <rgm@gnu.org> 2013-05-14 Glenn Morris <rgm@gnu.org>
* ede/simple.el, semantic/java.el: Set generated-autoload-load-name. * ede/simple.el, semantic/java.el: Set generated-autoload-load-name.
......
...@@ -178,12 +178,12 @@ Display the references in`semantic-symref-results-mode'." ...@@ -178,12 +178,12 @@ Display the references in`semantic-symref-results-mode'."
(defcustom semantic-symref-auto-expand-results nil (defcustom semantic-symref-auto-expand-results nil
"Non-nil to expand symref results on buffer creation." "Non-nil to expand symref results on buffer creation."
:group 'semantic-symref :group 'semantic-symref-results-mode
:type 'boolean) :type 'boolean)
(defcustom semantic-symref-results-mode-hook nil (defcustom semantic-symref-results-mode-hook nil
"Hook run when `semantic-symref-results-mode' starts." "Hook run when `semantic-symref-results-mode' starts."
:group 'semantic-symref :group 'semantic-symref-results-mode
:type 'hook) :type 'hook)
(defvar semantic-symref-current-results nil (defvar semantic-symref-current-results nil
...@@ -217,7 +217,7 @@ RESULTS is an object of class `semantic-symref-results'." ...@@ -217,7 +217,7 @@ RESULTS is an object of class `semantic-symref-results'."
(defcustom semantic-symref-results-summary-function 'semantic-format-tag-prototype (defcustom semantic-symref-results-summary-function 'semantic-format-tag-prototype
"*Function to use when creating items in Imenu. "*Function to use when creating items in Imenu.
Some useful functions are found in `semantic-format-tag-functions'." Some useful functions are found in `semantic-format-tag-functions'."
:group 'semantic-symref :group 'semantic-symref-results-mode
:type semantic-format-tag-custom-list) :type semantic-format-tag-custom-list)
(defun semantic-symref-results-dump (results) (defun semantic-symref-results-dump (results)
......
...@@ -148,10 +148,11 @@ ...@@ -148,10 +148,11 @@
"Completion facilities in comint." "Completion facilities in comint."
:group 'comint) :group 'comint)
(defgroup comint-source nil ;; Unused.
"Source finding facilities in comint." ;;; (defgroup comint-source nil
:prefix "comint-" ;;; "Source finding facilities in comint."
:group 'comint) ;;; :prefix "comint-"
;;; :group 'comint)
(defvar comint-prompt-regexp "^" (defvar comint-prompt-regexp "^"
"Regexp to recognize prompts in the inferior process. "Regexp to recognize prompts in the inferior process.
......
...@@ -2342,6 +2342,7 @@ With a prefix argument ARG, enable the mode if ARG is positive, ...@@ -2342,6 +2342,7 @@ With a prefix argument ARG, enable the mode if ARG is positive,
and disable it otherwise. If called from Lisp, enable the mode and disable it otherwise. If called from Lisp, enable the mode
if ARG is omitted or nil." if ARG is omitted or nil."
:global t :global t
:group 'completion
;; This is always good, not specific to dynamic-completion-mode. ;; This is always good, not specific to dynamic-completion-mode.
(define-key function-key-map [C-return] [?\C-\r]) (define-key function-key-map [C-return] [?\C-\r])
......
...@@ -449,7 +449,8 @@ since it could result in memory overflow and make Emacs crash." ...@@ -449,7 +449,8 @@ since it could result in memory overflow and make Emacs crash."
(other :tag "Always (t)" :value t)) (other :tag "Always (t)" :value t))
"24.3") "24.3")
;; xdisp.c ;; xdisp.c
(show-trailing-whitespace whitespace-faces boolean nil ;; The whitespace group is for whitespace.el.
(show-trailing-whitespace editing-basics boolean nil
:safe booleanp) :safe booleanp)
(scroll-step windows integer) (scroll-step windows integer)
(scroll-conservatively windows integer) (scroll-conservatively windows integer)
......
...@@ -983,7 +983,7 @@ and the total number of lines in the buffer." ...@@ -983,7 +983,7 @@ and the total number of lines in the buffer."
With a prefix argument ARG, enable the mode if ARG is positive, With a prefix argument ARG, enable the mode if ARG is positive,
and disable it otherwise. If called from Lisp, enable the mode and disable it otherwise. If called from Lisp, enable the mode
if ARG is omitted or nil." if ARG is omitted or nil."
:global t :global t :group 'tpu
(if tpu-edt-mode (tpu-edt-on) (tpu-edt-off))) (if tpu-edt-mode (tpu-edt-on) (tpu-edt-off)))
(defalias 'TPU-EDT-MODE 'tpu-edt-mode) (defalias 'TPU-EDT-MODE 'tpu-edt-mode)
......
2013-05-15 Glenn Morris <rgm@gnu.org>
* erc-list.el (erc-list):
* erc-menu.el (erc-menu):
* erc-ring.el (erc-ring): Define custom groups, for define-erc-module.
* erc-list.el: Provide a feature.
2013-05-09 Glenn Morris <rgm@gnu.org> 2013-05-09 Glenn Morris <rgm@gnu.org>
* erc-desktop-notifications.el (erc-notifications-icon): * erc-desktop-notifications.el (erc-notifications-icon):
......
...@@ -30,6 +30,10 @@ ...@@ -30,6 +30,10 @@
(require 'erc) (require 'erc)
(defgroup erc-list nil
"Support for the /list command."
:group 'erc)
;; This is implicitly the width of the channel name column. Pick ;; This is implicitly the width of the channel name column. Pick
;; something small enough that the topic has a chance of being ;; something small enough that the topic has a chance of being
;; readable, but long enough that most channel names won't make for ;; readable, but long enough that most channel names won't make for
...@@ -214,6 +218,8 @@ to RFC and send the LIST header (#321) at start of list transmission." ...@@ -214,6 +218,8 @@ to RFC and send the LIST header (#321) at start of list transmission."
"")))) ""))))
(put 'erc-cmd-LIST 'do-not-parse-args t) (put 'erc-cmd-LIST 'do-not-parse-args t)
(provide 'erc-list)
;;; erc-list.el ends here ;;; erc-list.el ends here
;; ;;
;; Local Variables: ;; Local Variables:
......
...@@ -30,6 +30,10 @@ ...@@ -30,6 +30,10 @@
(require 'erc) (require 'erc)
(require 'easymenu) (require 'easymenu)
(defgroup erc-menu nil
"ERC menu support."
:group 'erc)
(defvar erc-menu-definition (defvar erc-menu-definition
(list "ERC" (list "ERC"
["Connect to server..." erc t] ["Connect to server..." erc t]
......
...@@ -38,6 +38,10 @@ ...@@ -38,6 +38,10 @@
(require 'comint) (require 'comint)
(require 'ring) (require 'ring)
(defgroup erc-ring nil
"An input ring for ERC."
:group 'erc)
;;;###autoload (autoload 'erc-ring-mode "erc-ring" nil t) ;;;###autoload (autoload 'erc-ring-mode "erc-ring" nil t)
(define-erc-module ring nil (define-erc-module ring nil
"Stores input in a ring so that previous commands and messages can "Stores input in a ring so that previous commands and messages can
......
...@@ -27,11 +27,12 @@ ...@@ -27,11 +27,12 @@
(eval-when-compile (require 'esh-ext)) (eval-when-compile (require 'esh-ext))
(defgroup eshell-opt nil ;; Unused.
"The options processing code handles command argument parsing for ;;; (defgroup eshell-opt nil
Eshell commands implemented in Lisp." ;;; "The options processing code handles command argument parsing for
:tag "Command options processing" ;;; Eshell commands implemented in Lisp."
:group 'eshell) ;;; :tag "Command options processing"
;;; :group 'eshell)
;;; User Functions: ;;; User Functions:
......
...@@ -2292,7 +2292,6 @@ terminal type to a different value." ...@@ -2292,7 +2292,6 @@ terminal type to a different value."
(t :inverse-video t)) (t :inverse-video t))
"Basic face for highlighting trailing whitespace." "Basic face for highlighting trailing whitespace."
:version "21.1" :version "21.1"
:group 'whitespace-faces ; like `show-trailing-whitespace'
:group 'basic-faces) :group 'basic-faces)
(defface escape-glyph (defface escape-glyph
......
2013-05-15 Glenn Morris <rgm@gnu.org>
* shr-color.el (shr-color-visible-luminance-min)
(shr-color-visible-distance-min): Use shr-color group.
2013-05-11 Glenn Morris <rgm@gnu.org> 2013-05-11 Glenn Morris <rgm@gnu.org>
   
* gnus-vm.el: Make it loadable without VM. * gnus-vm.el: Make it loadable without VM.
......
...@@ -36,14 +36,14 @@ ...@@ -36,14 +36,14 @@
(defcustom shr-color-visible-luminance-min 40 (defcustom shr-color-visible-luminance-min 40
"Minimum luminance distance between two colors to be considered visible. "Minimum luminance distance between two colors to be considered visible.
Must be between 0 and 100." Must be between 0 and 100."
:group 'shr :group 'shr-color
:type 'number) :type 'number)
(defcustom shr-color-visible-distance-min 5 (defcustom shr-color-visible-distance-min 5
"Minimum color distance between two colors to be considered visible. "Minimum color distance between two colors to be considered visible.
This value is used to compare result for `ciede2000'. It's an This value is used to compare result for `ciede2000'. It's an
absolute value without any unit." absolute value without any unit."
:group 'shr :group 'shr-color
:type 'integer) :type 'integer)
(defconst shr-color-html-colors-alist (defconst shr-color-html-colors-alist
......
...@@ -43,10 +43,11 @@ ...@@ -43,10 +43,11 @@
;;; Code: ;;; Code:
(defgroup ccl nil ;; Unused.
"CCL (Code Conversion Language) compiler." ;;; (defgroup ccl nil
:prefix "ccl-" ;;; "CCL (Code Conversion Language) compiler."
:group 'i18n) ;;; :prefix "ccl-"
;;; :group 'i18n)
(defconst ccl-command-table (defconst ccl-command-table
[if branch loop break repeat write-repeat write-read-repeat [if branch loop break repeat write-repeat write-read-repeat
......
...@@ -258,7 +258,7 @@ the variable `jit-lock-stealth-nice'." ...@@ -258,7 +258,7 @@ the variable `jit-lock-stealth-nice'."
When this minor mode is enabled, jit-lock runs as little code as possible When this minor mode is enabled, jit-lock runs as little code as possible
during redisplay and moves the rest to a timer, where things during redisplay and moves the rest to a timer, where things
like `debug-on-error' and Edebug can be used." like `debug-on-error' and Edebug can be used."
:global t :global t :group 'jit-lock
(when jit-lock-defer-timer (when jit-lock-defer-timer
(cancel-timer jit-lock-defer-timer) (cancel-timer jit-lock-defer-timer)
(setq jit-lock-defer-timer nil)) (setq jit-lock-defer-timer nil))
......
...@@ -53,10 +53,11 @@ ...@@ -53,10 +53,11 @@
;;; Code: ;;; Code:
(defgroup master nil ;; Unused.
"Support for master/slave relationships between buffers." ;;; (defgroup master nil
:version "22.1" ;;; "Support for master/slave relationships between buffers."
:group 'convenience) ;;; :version "22.1"
;;; :group 'convenience)
;; Variables that don't need initialization. ;; Variables that don't need initialization.
...@@ -84,7 +85,8 @@ using the following commands: ...@@ -84,7 +85,8 @@ using the following commands:
The slave buffer is stored in the buffer-local variable `master-of'. The slave buffer is stored in the buffer-local variable `master-of'.
You can set this variable using `master-set-slave'. You can show You can set this variable using `master-set-slave'. You can show
yourself the value of `master-of' by calling `master-show-slave'." yourself the value of `master-of' by calling `master-show-slave'."
:group 'master ;; Not global, so no effect.
;;; :group 'master
:keymap :keymap
'(("\C-c\C-n" . master-says-scroll-up) '(("\C-c\C-n" . master-says-scroll-up)
("\C-c\C-p" . master-says-scroll-down) ("\C-c\C-p" . master-says-scroll-down)
......
...@@ -1856,6 +1856,7 @@ With a prefix argument ARG, enable the modemode if ARG is ...@@ -1856,6 +1856,7 @@ With a prefix argument ARG, enable the modemode if ARG is
positive, and disable it otherwise. If called from Lisp, enable positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil." the mode if ARG is omitted or nil."
:global t :global t
:group 'minibuffer
(setq completion-in-region--data nil) (setq completion-in-region--data nil)
;; (remove-hook 'pre-command-hook #'completion-in-region--prech) ;; (remove-hook 'pre-command-hook #'completion-in-region--prech)
(remove-hook 'post-command-hook #'completion-in-region--postch) (remove-hook 'post-command-hook #'completion-in-region--postch)
......
...@@ -288,12 +288,6 @@ To disable timer scans, set this to zero." ...@@ -288,12 +288,6 @@ To disable timer scans, set this to zero."
:type 'boolean :type 'boolean
:group 'whitespace) :group 'whitespace)
(defgroup whitespace-faces nil
"Faces used in whitespace."
:prefix "whitespace-"
:group 'whitespace
:group 'faces)
(defface whitespace-highlight '((((class color) (background light)) (defface whitespace-highlight '((((class color) (background light))
(:background "green1")) (:background "green1"))
(((class color) (background dark)) (((class color) (background dark))
...@@ -305,7 +299,7 @@ To disable timer scans, set this to zero." ...@@ -305,7 +299,7 @@ To disable timer scans, set this to zero."
(background dark)) (background dark))
(:background "white"))) (:background "white")))
"Face used for highlighting the bogus whitespaces that exist in the buffer." "Face used for highlighting the bogus whitespaces that exist in the buffer."
:group 'whitespace-faces) :group 'whitespace)
(define-obsolete-face-alias 'whitespace-highlight-face (define-obsolete-face-alias 'whitespace-highlight-face
'whitespace-highlight "22.1") 'whitespace-highlight "22.1")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment