Mercurial > emacs

--- a/lisp/ChangeLog	Fri Mar 12 12:32:30 2010 -0500
+++ b/lisp/ChangeLog	Fri Mar 12 12:47:22 2010 -0500
@@ -1,3 +1,46 @@
+2010-03-12  Chong Yidong  <cyd@stupidchicken.com>
+
+	* cus-edit.el (processes): Remove from development group.
+	(oop, hypermedia): Delete group.
+	(net): New 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.
+
+	* view.el (view): Remove from editing group.
+
+	* uniquify.el (uniquify): Put in files group.
+
+	* net/browse-url.el (browse-url):
+	* ps-print.el (postscript): Put in external group.
+
+	* cus-edit.el (outlines):
+	* textmodes/text-mode.el (text-mode-hook):
+	* textmodes/table.el (table):
+	* textmodes/picture.el (picture):
+	* outline.el (outlines): Put in wp group.
+
+	* nxml/nxml-mode.el (nxml): Remove from wp group.
+
+	* net/tramp-imap.el (tramp-imap): Put in tramp group.
+
+	* mail/metamail.el (metamail): Remove from hypermedia group.
+
+	* cus-edit.el (abbrev):
+	* whitespace.el (whitespace):
+	* vcursor.el (vcursor):
+	* reveal.el (reveal):
+	* hl-line.el (hl-line): Put in convenience group.
+
+	* epg-config.el (epg): Put in data group.
+
+	* emulation/pc-select.el (pc-select): Put in emulations group.
+
+	* calculator.el (calculator): Put in applications group.
+
 2010-03-12  Dan Nicolaescu  <dann@ics.uci.edu>

 	Add .dir-locals.el support for file-less buffers.
--- a/lisp/calculator.el	Fri Mar 12 12:32:30 2010 -0500
+++ b/lisp/calculator.el	Fri Mar 12 12:47:22 2010 -0500
@@ -54,7 +54,7 @@
   :prefix "calculator"
   :version "21.1"
   :group 'tools
-  :group 'convenience)
+  :group 'applications)

 (defcustom calculator-electric-mode nil
   "Run `calculator' electrically, in the echo area.
--- a/lisp/cus-edit.el	Fri Mar 12 12:32:30 2010 -0500
+++ b/lisp/cus-edit.el	Fri Mar 12 12:47:22 2010 -0500
@@ -169,7 +169,7 @@
 (defgroup abbrev nil
   "Abbreviation handling, typing shortcuts, macros."
   :tag "Abbreviations"
-  :group 'editing)
+  :group 'convenience)

 (defgroup matching nil
   "Various sorts of searching and matching."
@@ -186,16 +186,19 @@

 (defgroup outlines nil
   "Support for hierarchical outlining."
-  :group 'editing)
+  :group 'wp)

 (defgroup external nil
   "Interfacing to external utilities."
   :group 'emacs)

+(defgroup net nil
+  "Networking support."
+  :group 'emacs)
+
 (defgroup processes nil
   "Process, subshell, compilation, and job control support."
-  :group 'external
-  :group 'development)
+  :group 'external)

 (defgroup convenience nil
   "Convenience features for faster editing."
@@ -225,10 +228,6 @@
   "Programming tools."
   :group 'programming)

-(defgroup oop nil
-  "Support for object-oriented programming."
-  :group 'programming)
-
 (defgroup applications nil
   "Applications written in Emacs."
   :group 'emacs)
@@ -327,10 +326,6 @@
   "Support for multiple fonts."
   :group 'emacs)

-(defgroup hypermedia nil
-  "Support for links between text or other media types."
-  :group 'emacs)
-
 (defgroup help nil
   "Support for on-line help systems."
   :group 'emacs)
--- a/lisp/emulation/pc-select.el	Fri Mar 12 12:32:30 2010 -0500
+++ b/lisp/emulation/pc-select.el	Fri Mar 12 12:47:22 2010 -0500
@@ -82,8 +82,7 @@
 (defgroup pc-select nil
   "Emulate pc bindings."
   :prefix "pc-select"
-  :group 'editing-basics
-  :group 'convenience)
+  :group 'emulations)

 (defcustom pc-select-override-scroll-error t
   "*Non-nil means don't generate error on scrolling past edge of buffer.
--- a/lisp/epg-config.el	Fri Mar 12 12:32:30 2010 -0500
+++ b/lisp/epg-config.el	Fri Mar 12 12:47:22 2010 -0500
@@ -34,7 +34,7 @@
 (defgroup epg ()
   "The EasyPG library."
   :version "23.1"
-  :group 'emacs)
+  :group 'data)

 (defcustom epg-gpg-program "gpg"
   "The `gpg' executable."
--- a/lisp/hl-line.el	Fri Mar 12 12:32:30 2010 -0500
+++ b/lisp/hl-line.el	Fri Mar 12 12:47:22 2010 -0500
@@ -72,7 +72,7 @@
 (defgroup hl-line nil
   "Highlight the current line."
   :version "21.1"
-  :group 'editing)
+  :group 'convenience)

 (defface hl-line
   '((t :inherit highlight))
--- a/lisp/mail/metamail.el	Fri Mar 12 12:32:30 2010 -0500
+++ b/lisp/mail/metamail.el	Fri Mar 12 12:47:22 2010 -0500
@@ -40,7 +40,6 @@
 (defgroup metamail nil
   "Metamail interface for Emacs."
   :group 'mail
-  :group 'hypermedia
   :group 'processes)

 (defcustom metamail-program-name "metamail"
--- a/lisp/net/ange-ftp.el	Fri Mar 12 12:32:30 2010 -0500
+++ b/lisp/net/ange-ftp.el	Fri Mar 12 12:47:22 2010 -0500
@@ -676,6 +676,7 @@
   "Accessing remote files and directories using FTP
    made as simple and transparent as possible."
   :group 'files
+  :group 'net
   :prefix "ange-ftp-")

 (defcustom ange-ftp-name-format
--- a/lisp/net/browse-url.el	Fri Mar 12 12:32:30 2010 -0500
+++ b/lisp/net/browse-url.el	Fri Mar 12 12:47:22 2010 -0500
@@ -215,7 +215,8 @@
   "Use a web browser to look at a URL."
   :prefix "browse-url-"
   :link '(emacs-commentary-link "browse-url")
-  :group 'hypermedia)
+  :group 'external
+  :group 'net)

 ;;;###autoload
 (defcustom browse-url-browser-function
--- a/lisp/net/goto-addr.el	Fri Mar 12 12:32:30 2010 -0500
+++ b/lisp/net/goto-addr.el	Fri Mar 12 12:47:22 2010 -0500
@@ -76,7 +76,7 @@
 (defgroup goto-address nil
   "Click to browse URL or to send to e-mail address."
   :group 'mouse
-  :group 'hypermedia)
+  :group 'net)


 ;; I don't expect users to want fontify'ing without highlighting.
--- a/lisp/net/tramp-imap.el	Fri Mar 12 12:32:30 2010 -0500
+++ b/lisp/net/tramp-imap.el	Fri Mar 12 12:47:22 2010 -0500
@@ -168,7 +168,7 @@
 (defgroup tramp-imap nil
   "Tramp over IMAP configuration."
   :version "23.2"
-  :group 'applications)
+  :group 'tramp)

 (defcustom tramp-imap-subject-marker "tramp-imap-subject-marker"
   "The subject marker that Tramp-IMAP will use."
--- a/lisp/net/tramp.el	Fri Mar 12 12:32:30 2010 -0500
+++ b/lisp/net/tramp.el	Fri Mar 12 12:47:22 2010 -0500
@@ -176,6 +176,7 @@
 (defgroup tramp nil
   "Edit remote files with a combination of rsh and rcp or similar programs."
   :group 'files
+  :group 'net
   :version "22.1")

 ;; Maybe we need once a real Tramp mode, with key bindings etc.
--- a/lisp/net/xesam.el	Fri Mar 12 12:32:30 2010 -0500
+++ b/lisp/net/xesam.el	Fri Mar 12 12:47:22 2010 -0500
@@ -151,7 +151,7 @@
 (defgroup xesam nil
   "Xesam compatible interface to search engines."
   :group 'extensions
-  :group 'hypermedia
+  :group 'net
   :version "23.1")

 (defcustom xesam-query-type 'user-query
--- a/lisp/nxml/nxml-mode.el	Fri Mar 12 12:32:30 2010 -0500
+++ b/lisp/nxml/nxml-mode.el	Fri Mar 12 12:47:22 2010 -0500
@@ -45,8 +45,7 @@

 (defgroup nxml nil
   "New XML editing mode."
-  :group 'languages
-  :group 'wp)
+  :group 'languages)

 (defgroup nxml-faces nil
   "Faces for XML syntax highlighting."
--- a/lisp/org/ChangeLog	Fri Mar 12 12:32:30 2010 -0500
+++ b/lisp/org/ChangeLog	Fri Mar 12 12:47:22 2010 -0500
@@ -1,3 +1,7 @@
+2010-03-12  Chong Yidong  <cyd@stupidchicken.com>
+
+	* org.el (org): Remove from hypermedia group.
+
 2010-03-10  Chong Yidong  <cyd@stupidchicken.com>

 	* Branch for 23.2.
--- a/lisp/org/org.el	Fri Mar 12 12:32:30 2010 -0500
+++ b/lisp/org/org.el	Fri Mar 12 12:47:22 2010 -0500
@@ -134,7 +134,6 @@
   "Outline-based notes management and organizer."
   :tag "Org"
   :group 'outlines
-  :group 'hypermedia
   :group 'calendar)

 (defcustom org-mode-hook nil
--- a/lisp/outline.el	Fri Mar 12 12:32:30 2010 -0500
+++ b/lisp/outline.el	Fri Mar 12 12:47:22 2010 -0500
@@ -41,7 +41,7 @@
 (defgroup outlines nil
   "Support for hierarchical outlining."
   :prefix "outline-"
-  :group 'editing)
+  :group 'wp)

 (defcustom outline-regexp "[*\^L]+"
   "Regular expression to match the beginning of a heading.
--- a/lisp/ps-print.el	Fri Mar 12 12:32:30 2010 -0500
+++ b/lisp/ps-print.el	Fri Mar 12 12:47:22 2010 -0500
@@ -1497,7 +1497,7 @@
   "Support for printing and PostScript."
   :tag "PostScript"
   :version "20"
-  :group 'emacs)
+  :group 'external)

 (defgroup ps-print nil
   "PostScript generator for Emacs."
--- a/lisp/reveal.el	Fri Mar 12 12:32:30 2010 -0500
+++ b/lisp/reveal.el	Fri Mar 12 12:47:22 2010 -0500
@@ -49,7 +49,7 @@

 (defgroup reveal nil
   "Reveal hidden text on the fly."
-  :group 'editing)
+  :group 'convenience)

 (defcustom reveal-around-mark t
   "Reveal text around the mark, if active."
--- a/lisp/textmodes/picture.el	Fri Mar 12 12:32:30 2010 -0500
+++ b/lisp/textmodes/picture.el	Fri Mar 12 12:47:22 2010 -0500
@@ -34,7 +34,7 @@
 (defgroup picture nil
   "Picture mode --- editing using quarter-plane screen model."
   :prefix "picture-"
-  :group 'editing)
+  :group 'wp)

 (defcustom picture-rectangle-ctl ?+
   "*Character `picture-draw-rectangle' uses for top left corners."
--- a/lisp/textmodes/table.el	Fri Mar 12 12:32:30 2010 -0500
+++ b/lisp/textmodes/table.el	Fri Mar 12 12:47:22 2010 -0500
@@ -640,14 +640,10 @@
 ;;;

 (defgroup table nil
-  "Text based table manipulation utilities.
-See `table-insert' for examples about how to use."
+  "Text based table manipulation utilities."
   :tag "Table"
   :prefix "table-"
-  :group 'editing
   :group 'wp
-  :group 'paragraphs
-  :group 'fill
   :version "22.1")

 (defgroup table-hooks nil
--- a/lisp/textmodes/text-mode.el	Fri Mar 12 12:32:30 2010 -0500
+++ b/lisp/textmodes/text-mode.el	Fri Mar 12 12:47:22 2010 -0500
@@ -32,7 +32,7 @@
   "Normal hook run when entering Text mode and many related modes."
   :type 'hook
   :options '(turn-on-auto-fill turn-on-flyspell)
-  :group 'data)
+  :group 'wp)

 (defvar text-mode-variant nil
   "Non-nil if this buffer's major mode is a variant of Text mode.
--- a/lisp/uniquify.el	Fri Mar 12 12:32:30 2010 -0500
+++ b/lisp/uniquify.el	Fri Mar 12 12:47:22 2010 -0500
@@ -89,7 +89,7 @@

 (defgroup uniquify nil
   "Unique buffer names dependent on file name."
-  :group 'applications)
+  :group 'files)


 (defcustom uniquify-buffer-name-style nil
--- a/lisp/url/ChangeLog	Fri Mar 12 12:32:30 2010 -0500
+++ b/lisp/url/ChangeLog	Fri Mar 12 12:47:22 2010 -0500
@@ -1,3 +1,7 @@
+2010-03-12  Chong Yidong  <cyd@stupidchicken.com>
+
+	* url-vars.el (url): Put in net group.
+
 2010-03-10  Chong Yidong  <cyd@stupidchicken.com>

 	* Branch for 23.2.
--- a/lisp/url/url-vars.el	Fri Mar 12 12:32:30 2010 -0500
+++ b/lisp/url/url-vars.el	Fri Mar 12 12:47:22 2010 -0500
@@ -30,7 +30,7 @@
 (defgroup url nil
   "Uniform Resource Locator tool."
   :version "22.1"
-  :group 'hypermedia)
+  :group 'net)

 (defgroup url-file nil
   "URL storage."
--- a/lisp/vcursor.el	Fri Mar 12 12:32:30 2010 -0500
+++ b/lisp/vcursor.el	Fri Mar 12 12:47:22 2010 -0500
@@ -325,7 +325,7 @@
 (defgroup vcursor nil
   "Manipulate an alternative (\"virtual\") cursor."
   :prefix "vcursor-"
-  :group 'editing)
+  :group 'convenience)

 (defface vcursor
   '((((class color)) (:foreground "blue" :background "cyan" :underline t))
--- a/lisp/view.el	Fri Mar 12 12:32:30 2010 -0500
+++ b/lisp/view.el	Fri Mar 12 12:47:22 2010 -0500
@@ -48,8 +48,7 @@
   "Peruse file or buffer without editing."
   :link '(function-link view-mode)
   :link '(custom-manual "(emacs)Misc File Ops")
-  :group 'wp
-  :group 'editing)
+  :group 'wp)

 (defcustom view-highlight-face 'highlight
    "The face used for highlighting the match found by View mode search."
--- a/lisp/whitespace.el	Fri Mar 12 12:32:30 2010 -0500
+++ b/lisp/whitespace.el	Fri Mar 12 12:47:22 2010 -0500
@@ -378,8 +378,7 @@
   "Visualize blanks (TAB, (HARD) SPACE and NEWLINE)."
   :link '(emacs-library-link :tag "Source Lisp File" "whitespace.el")
   :version "23.1"
-  :group 'wp
-  :group 'data)
+  :group 'convenience)


 (defcustom whitespace-style