emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r112597: Misc custom group fixes


From: Glenn Morris
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r112597: Misc custom group fixes
Date: Wed, 15 May 2013 19:55:41 -0400
User-agent: Bazaar (2.6b2)

------------------------------------------------------------
revno: 112597
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2013-05-15 19:55:41 -0400
message:
  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.
modified:
  lisp/ChangeLog
  lisp/cedet/ChangeLog
  lisp/cedet/semantic/symref/list.el
  lisp/comint.el
  lisp/completion.el
  lisp/cus-start.el
  lisp/emulation/tpu-edt.el
  lisp/erc/ChangeLog
  lisp/erc/erc-list.el
  lisp/erc/erc-menu.el
  lisp/erc/erc-ring.el
  lisp/eshell/esh-opt.el
  lisp/faces.el
  lisp/gnus/ChangeLog
  lisp/gnus/shr-color.el
  lisp/international/ccl.el
  lisp/jit-lock.el
  lisp/master.el
  lisp/minibuffer.el
  lisp/obsolete/old-whitespace.el
  lisp/org/org-pcomplete.el
  lisp/pcmpl-linux.el
  lisp/progmodes/subword.el
  lisp/progmodes/vhdl-mode.el
  lisp/shell.el
  lisp/term/vt100.el
  lisp/term/xterm.el
  lisp/textmodes/refill.el
  lisp/textmodes/rst.el
  lisp/type-break.el
  lisp/url/ChangeLog
  lisp/url/url-news.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-05-15 23:35:10 +0000
+++ b/lisp/ChangeLog    2013-05-15 23:55:41 +0000
@@ -1,5 +1,35 @@
 2013-05-15  Glenn Morris  <address@hidden>
 
+       * 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

=== modified file 'lisp/cedet/ChangeLog'
--- a/lisp/cedet/ChangeLog      2013-05-14 02:10:23 +0000
+++ b/lisp/cedet/ChangeLog      2013-05-15 23:55:41 +0000
@@ -1,3 +1,9 @@
+2013-05-15  Glenn Morris  <address@hidden>
+
+       * 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  <address@hidden>
 
        * ede/simple.el, semantic/java.el: Set generated-autoload-load-name.

=== modified file 'lisp/cedet/semantic/symref/list.el'
--- a/lisp/cedet/semantic/symref/list.el        2013-01-01 09:11:05 +0000
+++ b/lisp/cedet/semantic/symref/list.el        2013-05-15 23:55:41 +0000
@@ -178,12 +178,12 @@
 
 (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 @@
 (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)

=== modified file 'lisp/comint.el'
--- a/lisp/comint.el    2013-05-09 17:54:29 +0000
+++ b/lisp/comint.el    2013-05-15 23:55:41 +0000
@@ -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.

=== modified file 'lisp/completion.el'
--- a/lisp/completion.el        2013-01-01 09:11:05 +0000
+++ b/lisp/completion.el        2013-05-15 23:55:41 +0000
@@ -2342,6 +2342,7 @@
 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])
 

=== modified file 'lisp/cus-start.el'
--- a/lisp/cus-start.el 2013-05-09 01:40:20 +0000
+++ b/lisp/cus-start.el 2013-05-15 23:55:41 +0000
@@ -449,7 +449,8 @@
                       (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)

=== modified file 'lisp/emulation/tpu-edt.el'
--- a/lisp/emulation/tpu-edt.el 2013-05-12 10:22:44 +0000
+++ b/lisp/emulation/tpu-edt.el 2013-05-15 23:55:41 +0000
@@ -983,7 +983,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
+  :global t :group 'tpu
   (if tpu-edt-mode (tpu-edt-on) (tpu-edt-off)))
 
 (defalias 'TPU-EDT-MODE 'tpu-edt-mode)

=== modified file 'lisp/erc/ChangeLog'
--- a/lisp/erc/ChangeLog        2013-05-09 01:40:20 +0000
+++ b/lisp/erc/ChangeLog        2013-05-15 23:55:41 +0000
@@ -1,3 +1,11 @@
+2013-05-15  Glenn Morris  <address@hidden>
+
+       * 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  <address@hidden>
 
        * erc-desktop-notifications.el (erc-notifications-icon):

=== modified file 'lisp/erc/erc-list.el'
--- a/lisp/erc/erc-list.el      2013-01-01 09:11:05 +0000
+++ b/lisp/erc/erc-list.el      2013-05-15 23:55:41 +0000
@@ -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 @@
                                        ""))))
 (put 'erc-cmd-LIST 'do-not-parse-args t)
 
+(provide 'erc-list)
+
 ;;; erc-list.el ends here
 ;;
 ;; Local Variables:

=== modified file 'lisp/erc/erc-menu.el'
--- a/lisp/erc/erc-menu.el      2013-01-01 09:11:05 +0000
+++ b/lisp/erc/erc-menu.el      2013-05-15 23:55:41 +0000
@@ -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]

=== modified file 'lisp/erc/erc-ring.el'
--- a/lisp/erc/erc-ring.el      2013-01-01 09:11:05 +0000
+++ b/lisp/erc/erc-ring.el      2013-05-15 23:55:41 +0000
@@ -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

=== modified file 'lisp/eshell/esh-opt.el'
--- a/lisp/eshell/esh-opt.el    2013-01-01 09:11:05 +0000
+++ b/lisp/eshell/esh-opt.el    2013-05-15 23:55:41 +0000
@@ -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:
 

=== modified file 'lisp/faces.el'
--- a/lisp/faces.el     2013-05-11 02:27:28 +0000
+++ b/lisp/faces.el     2013-05-15 23:55:41 +0000
@@ -2292,7 +2292,6 @@
     (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

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-05-11 02:25:11 +0000
+++ b/lisp/gnus/ChangeLog       2013-05-15 23:55:41 +0000
@@ -1,3 +1,8 @@
+2013-05-15  Glenn Morris  <address@hidden>
+
+       * shr-color.el (shr-color-visible-luminance-min)
+       (shr-color-visible-distance-min): Use shr-color group.
+
 2013-05-11  Glenn Morris  <address@hidden>
 
        * gnus-vm.el: Make it loadable without VM.

=== modified file 'lisp/gnus/shr-color.el'
--- a/lisp/gnus/shr-color.el    2013-05-09 01:40:20 +0000
+++ b/lisp/gnus/shr-color.el    2013-05-15 23:55:41 +0000
@@ -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

=== modified file 'lisp/international/ccl.el'
--- a/lisp/international/ccl.el 2013-01-01 09:11:05 +0000
+++ b/lisp/international/ccl.el 2013-05-15 23:55:41 +0000
@@ -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

=== modified file 'lisp/jit-lock.el'
--- a/lisp/jit-lock.el  2013-04-23 12:29:14 +0000
+++ b/lisp/jit-lock.el  2013-05-15 23:55:41 +0000
@@ -258,7 +258,7 @@
 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))

=== modified file 'lisp/master.el'
--- a/lisp/master.el    2013-01-01 09:11:05 +0000
+++ b/lisp/master.el    2013-05-15 23:55:41 +0000
@@ -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 @@
 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)

=== modified file 'lisp/minibuffer.el'
--- a/lisp/minibuffer.el        2013-04-23 12:27:06 +0000
+++ b/lisp/minibuffer.el        2013-05-15 23:55:41 +0000
@@ -1856,6 +1856,7 @@
 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)

=== modified file 'lisp/obsolete/old-whitespace.el'
--- a/lisp/obsolete/old-whitespace.el   2013-01-01 09:11:05 +0000
+++ b/lisp/obsolete/old-whitespace.el   2013-05-15 23:55:41 +0000
@@ -288,12 +288,6 @@
   :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 @@
                                  (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")
 

=== modified file 'lisp/org/org-pcomplete.el'
--- a/lisp/org/org-pcomplete.el 2013-01-01 09:11:05 +0000
+++ b/lisp/org/org-pcomplete.el 2013-05-15 23:55:41 +0000
@@ -46,6 +46,7 @@
 
 ;;;; Customization variables
 
+;; Unused.  Cf org-completion.
 (defgroup org-complete nil
   "Outline-based notes management and organizer."
   :tag "Org"

=== modified file 'lisp/pcmpl-linux.el'
--- a/lisp/pcmpl-linux.el       2013-01-01 09:11:05 +0000
+++ b/lisp/pcmpl-linux.el       2013-05-15 23:55:41 +0000
@@ -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:
 

=== modified file 'lisp/progmodes/subword.el'
--- a/lisp/progmodes/subword.el 2013-03-30 01:32:12 +0000
+++ b/lisp/progmodes/subword.el 2013-05-15 23:55:41 +0000
@@ -148,6 +148,7 @@
 
 ;;;###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 @@
 
 ;;;###autoload
 (define-global-minor-mode global-superword-mode superword-mode
+  :group 'convenience
   (lambda () (superword-mode 1)))
 
 

=== modified file 'lisp/progmodes/vhdl-mode.el'
--- a/lisp/progmodes/vhdl-mode.el       2013-05-08 16:27:53 +0000
+++ b/lisp/progmodes/vhdl-mode.el       2013-05-15 23:55:41 +0000
@@ -8327,14 +8327,14 @@
 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

=== modified file 'lisp/shell.el'
--- a/lisp/shell.el     2013-01-02 16:13:04 +0000
+++ b/lisp/shell.el     2013-05-15 23:55:41 +0000
@@ -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")

=== modified file 'lisp/term/vt100.el'
--- a/lisp/term/vt100.el        2013-01-01 09:11:05 +0000
+++ b/lisp/term/vt100.el        2013-05-15 23:55:41 +0000
@@ -46,6 +46,7 @@
 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)))
 

=== modified file 'lisp/term/xterm.el'
--- a/lisp/term/xterm.el        2013-05-14 02:08:35 +0000
+++ b/lisp/term/xterm.el        2013-05-15 23:55:41 +0000
@@ -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.

=== modified file 'lisp/textmodes/refill.el'
--- a/lisp/textmodes/refill.el  2013-01-01 09:11:05 +0000
+++ b/lisp/textmodes/refill.el  2013-05-15 23:55:41 +0000
@@ -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 @@
 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

=== modified file 'lisp/textmodes/rst.el'
--- a/lisp/textmodes/rst.el     2013-01-01 09:11:05 +0000
+++ b/lisp/textmodes/rst.el     2013-05-15 23:55:41 +0000
@@ -3932,7 +3932,7 @@
                              (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)
 

=== modified file 'lisp/type-break.el'
--- a/lisp/type-break.el        2013-05-09 01:40:20 +0000
+++ b/lisp/type-break.el        2013-05-15 23:55:41 +0000
@@ -418,7 +418,7 @@
         `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 @@
 
 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

=== modified file 'lisp/url/ChangeLog'
--- a/lisp/url/ChangeLog        2013-03-11 16:31:55 +0000
+++ b/lisp/url/ChangeLog        2013-05-15 23:55:41 +0000
@@ -1,3 +1,7 @@
+2013-05-15  Glenn Morris  <address@hidden>
+
+       * url-news.el (url-news): Remove empty custom group.
+
 2013-02-16  Glenn Morris  <address@hidden>
 
        * url-http.el (url-http-wait-for-headers-change-function):

=== modified file 'lisp/url/url-news.el'
--- a/lisp/url/url-news.el      2013-01-01 09:11:05 +0000
+++ b/lisp/url/url-news.el      2013-05-15 23:55:41 +0000
@@ -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)


reply via email to

[Prev in Thread] Current Thread [Next in Thread]