Commit ed8be7ff authored by Glenn Morris's avatar Glenn Morris

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>
* 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.
(custom-make-dependencies): Ignore dotfiles (dir-locals).
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>
* ede/simple.el, semantic/java.el: Set generated-autoload-load-name.
......
......@@ -178,12 +178,12 @@ Display the references in`semantic-symref-results-mode'."
(defcustom semantic-symref-auto-expand-results nil
"Non-nil to expand symref results on buffer creation."
:group 'semantic-symref
:group 'semantic-symref-results-mode
:type 'boolean)
(defcustom semantic-symref-results-mode-hook nil
"Hook run when `semantic-symref-results-mode' starts."
:group 'semantic-symref
:group 'semantic-symref-results-mode
:type 'hook)
(defvar semantic-symref-current-results nil
......@@ -217,7 +217,7 @@ RESULTS is an object of class `semantic-symref-results'."
(defcustom semantic-symref-results-summary-function 'semantic-format-tag-prototype
"*Function to use when creating items in Imenu.
Some useful functions are found in `semantic-format-tag-functions'."
:group 'semantic-symref
:group 'semantic-symref-results-mode
:type semantic-format-tag-custom-list)
(defun semantic-symref-results-dump (results)
......
......@@ -148,10 +148,11 @@
"Completion facilities in comint."
:group 'comint)
(defgroup comint-source nil
"Source finding facilities in comint."
:prefix "comint-"
:group 'comint)
;; Unused.
;;; (defgroup comint-source nil
;;; "Source finding facilities in comint."
;;; :prefix "comint-"
;;; :group 'comint)
(defvar comint-prompt-regexp "^"
"Regexp to recognize prompts in the inferior process.
......
......@@ -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
if ARG is omitted or nil."
:global t
:group 'completion
;; This is always good, not specific to dynamic-completion-mode.
(define-key function-key-map [C-return] [?\C-\r])
......
......@@ -449,7 +449,8 @@ since it could result in memory overflow and make Emacs crash."
(other :tag "Always (t)" :value t))
"24.3")
;; 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)
(scroll-step windows integer)
(scroll-conservatively windows integer)
......
......@@ -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,
and disable it otherwise. If called from Lisp, enable the mode
if ARG is omitted or nil."
:global t
:global t :group 'tpu
(if tpu-edt-mode (tpu-edt-on) (tpu-edt-off)))
(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>
* erc-desktop-notifications.el (erc-notifications-icon):
......
......@@ -30,6 +30,10 @@
(require 'erc)
(defgroup erc-list nil
"Support for the /list command."
:group 'erc)
;; This is implicitly the width of the channel name column. Pick
;; something small enough that the topic has a chance of being
;; 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."
""))))
(put 'erc-cmd-LIST 'do-not-parse-args t)
(provide 'erc-list)
;;; erc-list.el ends here
;;
;; Local Variables:
......
......@@ -30,6 +30,10 @@
(require 'erc)
(require 'easymenu)
(defgroup erc-menu nil
"ERC menu support."
:group 'erc)
(defvar erc-menu-definition
(list "ERC"
["Connect to server..." erc t]
......
......@@ -38,6 +38,10 @@
(require 'comint)
(require 'ring)
(defgroup erc-ring nil
"An input ring for ERC."
:group 'erc)
;;;###autoload (autoload 'erc-ring-mode "erc-ring" nil t)
(define-erc-module ring nil
"Stores input in a ring so that previous commands and messages can
......
......@@ -27,11 +27,12 @@
(eval-when-compile (require 'esh-ext))
(defgroup eshell-opt nil
"The options processing code handles command argument parsing for
Eshell commands implemented in Lisp."
:tag "Command options processing"
:group 'eshell)
;; Unused.
;;; (defgroup eshell-opt nil
;;; "The options processing code handles command argument parsing for
;;; Eshell commands implemented in Lisp."
;;; :tag "Command options processing"
;;; :group 'eshell)
;;; User Functions:
......
......@@ -2292,7 +2292,6 @@ terminal type to a different value."
(t :inverse-video t))
"Basic face for highlighting trailing whitespace."
:version "21.1"
:group 'whitespace-faces ; like `show-trailing-whitespace'
:group 'basic-faces)
(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>
* gnus-vm.el: Make it loadable without VM.
......
......@@ -36,14 +36,14 @@
(defcustom shr-color-visible-luminance-min 40
"Minimum luminance distance between two colors to be considered visible.
Must be between 0 and 100."
:group 'shr
:group 'shr-color
:type 'number)
(defcustom shr-color-visible-distance-min 5
"Minimum color distance between two colors to be considered visible.
This value is used to compare result for `ciede2000'. It's an
absolute value without any unit."
:group 'shr
:group 'shr-color
:type 'integer)
(defconst shr-color-html-colors-alist
......
......@@ -43,10 +43,11 @@
;;; Code:
(defgroup ccl nil
"CCL (Code Conversion Language) compiler."
:prefix "ccl-"
:group 'i18n)
;; Unused.
;;; (defgroup ccl nil
;;; "CCL (Code Conversion Language) compiler."
;;; :prefix "ccl-"
;;; :group 'i18n)
(defconst ccl-command-table
[if branch loop break repeat write-repeat write-read-repeat
......
......@@ -258,7 +258,7 @@ the variable `jit-lock-stealth-nice'."
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
like `debug-on-error' and Edebug can be used."
:global t
:global t :group 'jit-lock
(when jit-lock-defer-timer
(cancel-timer jit-lock-defer-timer)
(setq jit-lock-defer-timer nil))
......
......@@ -53,10 +53,11 @@
;;; Code:
(defgroup master nil
"Support for master/slave relationships between buffers."
:version "22.1"
:group 'convenience)
;; Unused.
;;; (defgroup master nil
;;; "Support for master/slave relationships between buffers."
;;; :version "22.1"
;;; :group 'convenience)
;; Variables that don't need initialization.
......@@ -84,7 +85,8 @@ using the following commands:
The slave buffer is stored in the buffer-local variable `master-of'.
You can set this variable using `master-set-slave'. You can show
yourself the value of `master-of' by calling `master-show-slave'."
:group 'master
;; Not global, so no effect.
;;; :group 'master
:keymap
'(("\C-c\C-n" . master-says-scroll-up)
("\C-c\C-p" . master-says-scroll-down)
......
......@@ -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
the mode if ARG is omitted or nil."
:global t
:group 'minibuffer
(setq completion-in-region--data nil)
;; (remove-hook 'pre-command-hook #'completion-in-region--prech)
(remove-hook 'post-command-hook #'completion-in-region--postch)
......
......@@ -288,12 +288,6 @@ To disable timer scans, set this to zero."
:type 'boolean
:group 'whitespace)
(defgroup whitespace-faces nil
"Faces used in whitespace."
:prefix "whitespace-"
:group 'whitespace
:group 'faces)
(defface whitespace-highlight '((((class color) (background light))
(:background "green1"))
(((class color) (background dark))
......@@ -305,7 +299,7 @@ To disable timer scans, set this to zero."
(background dark))
(:background "white")))
"Face used for highlighting the bogus whitespaces that exist in the buffer."
:group 'whitespace-faces)
:group 'whitespace)
(define-obsolete-face-alias 'whitespace-highlight-face
'whitespace-highlight "22.1")
......
......@@ -46,6 +46,7 @@
;;;; Customization variables
;; Unused. Cf org-completion.
(defgroup org-complete nil
"Outline-based notes management and organizer."
:tag "Org"
......
......@@ -31,9 +31,10 @@
(require 'pcomplete)
(defgroup pcmpl-linux nil
"Functions for dealing with GNU/Linux completions."
:group 'pcomplete)
;; Unused.
;;; (defgroup pcmpl-linux nil
;;; "Functions for dealing with GNU/Linux completions."
;;; :group 'pcomplete)
;; Functions:
......
......@@ -148,6 +148,7 @@ as words.
;;;###autoload
(define-global-minor-mode global-subword-mode subword-mode
:group 'convenience
(lambda () (subword-mode 1)))
(defun subword-forward (&optional arg)
......@@ -301,6 +302,7 @@ edit them as words.
;;;###autoload
(define-global-minor-mode global-superword-mode superword-mode
:group 'convenience
(lambda () (superword-mode 1)))
......
......@@ -8327,14 +8327,14 @@ project is defined."
With a prefix argument ARG, enable the mode if ARG is positive,
and disable it otherwise. If called from Lisp, enable it if ARG
is omitted or nil."
:global t)
:global t :group 'vhdl-mode)
(define-minor-mode vhdl-stutter-mode
"Toggle VHDL stuttering mode.
With a prefix argument ARG, enable the mode if ARG is positive,
and disable it otherwise. If called from Lisp, enable it if ARG
is omitted or nil."
:global t)
:global t :group 'vhdl-mode)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Stuttering
......
......@@ -111,9 +111,10 @@
"Directory support in shell mode."
:group 'shell)
(defgroup shell-faces nil
"Faces in shell buffers."
:group 'shell)
;; Unused.
;;; (defgroup shell-faces nil
;;; "Faces in shell buffers."
;;; :group 'shell)
;;;###autoload
(defcustom shell-dumb-shell-regexp (purecopy "cmd\\(proxy\\)?\\.exe")
......
......@@ -46,6 +46,7 @@ With a prefix argument ARG, switch to 132-column mode if ARG is
positive, and 80-column mode otherwise. If called from Lisp,
switch to 132-column mode if ARG is omitted or nil."
:global t :init-value (= (frame-width) 132)
:group 'terminals
(send-string-to-terminal (if vt100-wide-mode "\e[?3h" "\e[?3l"))
(set-frame-width terminal-frame (if vt100-wide-mode 132 80)))
......
......@@ -27,7 +27,7 @@
(defgroup xterm nil
"XTerm support."
:version "24.1"
:group 'environment)
:group 'terminals)
(defcustom xterm-extra-capabilities 'check
"Whether Xterm supports some additional, more modern, features.
......
......@@ -83,9 +83,10 @@
;;; Code:
(defgroup refill nil
"Refilling paragraphs on changes."
:group 'fill)
;; Unused.
;;; (defgroup refill nil
;;; "Refilling paragraphs on changes."
;;; :group 'fill)
(defvar refill-ignorable-overlay nil
"Portion of the most recently filled paragraph not needing filling.
......@@ -222,7 +223,8 @@ characters only cause refilling if they would cause
auto-filling.
For true \"word wrap\" behavior, use `visual-line-mode' instead."
:group 'refill
;; Not global, so no effect.
;;; :group 'refill
:lighter " Refill"
:keymap '(("\177" . backward-delete-char-untabify))
;; Remove old state if necessary
......
......@@ -3932,7 +3932,7 @@ string)) to be used for converting the document."
(choice :tag "Command options"
(const :tag "No options" nil)
(string :tag "Options"))))
:group 'rst
:group 'rst-compile
:package-version "1.2.0")
(rst-testcover-defcustom)
......
......@@ -418,7 +418,7 @@ Variables controlling the display of messages in the mode line include:
`global-mode-string'
`type-break-mode-line-break-message'
`type-break-mode-line-warning'"
:global t)
:global t :group 'type-break)
(define-minor-mode type-break-query-mode
"Toggle typing break queries.
......@@ -428,7 +428,7 @@ enable them if ARG is omitted or nil.
The user may also enable or disable this mode simply by setting
the variable of the same name."
:global t)
:global t :group 'type-break)
;;; session file functions
......
2013-05-15 Glenn Morris <rgm@gnu.org>
* url-news.el (url-news): Remove empty custom group.
2013-02-16 Glenn Morris <rgm@gnu.org>
* url-http.el (url-http-wait-for-headers-change-function):
......
......@@ -28,9 +28,10 @@
(autoload 'url-warn "url")
(autoload 'gnus-group-read-ephemeral-group "gnus-group")
(defgroup url-news nil
"News related options."
:group 'url)
;; Unused.
;;; (defgroup url-news nil
;;; "News related options."
;;; :group 'url)
(defun url-news-open-host (host port user pass)
(if (fboundp 'nnheader-init-server-buffer)
......
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