* 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.
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.
(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
(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)
"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.
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])
(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)
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):
(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
""))))
(put 'erc-cmd-LIST 'do-not-parse-args t)
+(provide 'erc-list)
+
;;; erc-list.el ends here
;;
;; Local Variables:
(require 'erc)
(require 'easymenu)
+(defgroup erc-menu nil
+ "ERC menu support."
+ :group 'erc)
+
(defvar erc-menu-definition
(list "ERC"
["Connect to server..." erc t]
(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
(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:
(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.
(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
;;; 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
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))
;;; 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.
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)
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)
: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))
(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")
;;;; Customization variables
+;; Unused. Cf org-completion.
(defgroup org-complete nil
"Outline-based notes management and organizer."
:tag "Org"
(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:
;;;###autoload
(define-global-minor-mode global-subword-mode subword-mode
+ :group 'convenience
(lambda () (subword-mode 1)))
(defun subword-forward (&optional arg)
;;;###autoload
(define-global-minor-mode global-superword-mode superword-mode
+ :group 'convenience
(lambda () (superword-mode 1)))
\f
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
"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")
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)))
(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.
;;; 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.
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
(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)
`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.
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)
\f
;;; 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):
(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)
projects / emacs.git / commitdiff