changeset 107379:3c0cd76e49ff

Fix last change to use existing comm Custom group instead of `net'. * cus-edit.el (net): Remove group. (comm): Promote to top-level group. * url/url-vars.el (url): * net/browse-url.el (browse-url): * net/xesam.el (xesam): * net/tramp.el (tramp): * net/goto-addr.el (goto-address): * net/ange-ftp.el (ange-ftp): Put in comm group.
author Chong Yidong <cyd@stupidchicken.com>
date Fri, 12 Mar 2010 14:13:38 -0500
parents 904ccd8f2acb
children 2c9f719ae74b
files lisp/ChangeLog lisp/cus-edit.el lisp/net/ange-ftp.el lisp/net/browse-url.el lisp/net/goto-addr.el lisp/net/tramp.el lisp/net/xesam.el lisp/url/ChangeLog lisp/url/url-vars.el
diffstat 9 files changed, 12 insertions(+), 16 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Fri Mar 12 12:47:22 2010 -0500
+++ b/lisp/ChangeLog	Fri Mar 12 14:13:38 2010 -0500
@@ -2,13 +2,13 @@
 
 	* cus-edit.el (processes): Remove from development group.
 	(oop, hypermedia): Delete group.
-	(net): New group.
+	(comm): Promote to top-level group.
 
 	* net/browse-url.el (browse-url):
 	* net/xesam.el (xesam):
 	* net/tramp.el (tramp):
 	* net/goto-addr.el (goto-address):
-	* net/ange-ftp.el (ange-ftp): Put in net group.
+	* net/ange-ftp.el (ange-ftp): Put in comm group.
 
 	* view.el (view): Remove from editing group.
 
--- a/lisp/cus-edit.el	Fri Mar 12 12:47:22 2010 -0500
+++ b/lisp/cus-edit.el	Fri Mar 12 14:13:38 2010 -0500
@@ -192,8 +192,9 @@
   "Interfacing to external utilities."
   :group 'emacs)
 
-(defgroup net nil
-  "Networking support."
+(defgroup comm nil
+  "Communications, networking, and remote access to files."
+  :tag "Communication"
   :group 'emacs)
 
 (defgroup processes nil
@@ -274,11 +275,6 @@
   "Fitting Emacs with its environment."
   :group 'emacs)
 
-(defgroup comm nil
-  "Communications, networking, remote access to files."
-  :tag "Communication"
-  :group 'environment)
-
 (defgroup hardware nil
   "Support for interfacing with miscellaneous hardware."
   :group 'environment)
--- a/lisp/net/ange-ftp.el	Fri Mar 12 12:47:22 2010 -0500
+++ b/lisp/net/ange-ftp.el	Fri Mar 12 14:13:38 2010 -0500
@@ -676,7 +676,7 @@
   "Accessing remote files and directories using FTP
    made as simple and transparent as possible."
   :group 'files
-  :group 'net
+  :group 'comm
   :prefix "ange-ftp-")
 
 (defcustom ange-ftp-name-format
--- a/lisp/net/browse-url.el	Fri Mar 12 12:47:22 2010 -0500
+++ b/lisp/net/browse-url.el	Fri Mar 12 14:13:38 2010 -0500
@@ -216,7 +216,7 @@
   :prefix "browse-url-"
   :link '(emacs-commentary-link "browse-url")
   :group 'external
-  :group 'net)
+  :group 'comm)
 
 ;;;###autoload
 (defcustom browse-url-browser-function
--- a/lisp/net/goto-addr.el	Fri Mar 12 12:47:22 2010 -0500
+++ b/lisp/net/goto-addr.el	Fri Mar 12 14:13:38 2010 -0500
@@ -76,7 +76,7 @@
 (defgroup goto-address nil
   "Click to browse URL or to send to e-mail address."
   :group 'mouse
-  :group 'net)
+  :group 'comm)
 
 
 ;; I don't expect users to want fontify'ing without highlighting.
--- a/lisp/net/tramp.el	Fri Mar 12 12:47:22 2010 -0500
+++ b/lisp/net/tramp.el	Fri Mar 12 14:13:38 2010 -0500
@@ -176,7 +176,7 @@
 (defgroup tramp nil
   "Edit remote files with a combination of rsh and rcp or similar programs."
   :group 'files
-  :group 'net
+  :group 'comm
   :version "22.1")
 
 ;; Maybe we need once a real Tramp mode, with key bindings etc.
--- a/lisp/net/xesam.el	Fri Mar 12 12:47:22 2010 -0500
+++ b/lisp/net/xesam.el	Fri Mar 12 14:13:38 2010 -0500
@@ -151,7 +151,7 @@
 (defgroup xesam nil
   "Xesam compatible interface to search engines."
   :group 'extensions
-  :group 'net
+  :group 'comm
   :version "23.1")
 
 (defcustom xesam-query-type 'user-query
--- a/lisp/url/ChangeLog	Fri Mar 12 12:47:22 2010 -0500
+++ b/lisp/url/ChangeLog	Fri Mar 12 14:13:38 2010 -0500
@@ -1,6 +1,6 @@
 2010-03-12  Chong Yidong  <cyd@stupidchicken.com>
 
-	* url-vars.el (url): Put in net group.
+	* url-vars.el (url): Put in comm group.
 
 2010-03-10  Chong Yidong  <cyd@stupidchicken.com>
 
--- a/lisp/url/url-vars.el	Fri Mar 12 12:47:22 2010 -0500
+++ b/lisp/url/url-vars.el	Fri Mar 12 14:13:38 2010 -0500
@@ -30,7 +30,7 @@
 (defgroup url nil
   "Uniform Resource Locator tool."
   :version "22.1"
-  :group 'net)
+  :group 'comm)
 
 (defgroup url-file nil
   "URL storage."