Deprecate 'wp' group and introduce a new group 'text'

* lisp/textmodes/tildify.el (tildify):
* lisp/textmodes/text-mode.el (text-mode-hook):
* lisp/textmodes/table.el (table):
* lisp/textmodes/rst.el (rst):
* lisp/textmodes/refer.el (refer):
* lisp/textmodes/refbib.el (refbib):
* lisp/textmodes/picture.el (picture):
* lisp/textmodes/nroff-mode.el (nroff):
* lisp/textmodes/enriched.el (enriched):
* lisp/textmodes/bib-mode.el (bib):
* lisp/progmodes/ebnf2ps.el (ebnf2ps):
* lisp/nxml/rng-valid.el (relax-ng):
* lisp/view.el (view):
* lisp/ps-print.el (ps-print):
* lisp/printing.el (printing):
* lisp/outline.el (outlines):
* lisp/lpr.el (lpr):
* lisp/delim-col.el (columns): Use 'text' group instead of 'wp'.
* lisp/cus-edit.el (wp): Remove the "text" tag.
(text): New defgroup, inherits from the deprecated 'wp'.
(outlines): Remove, in favor of the definition in outline.el.
(tex): Inherit from 'text'.
Suggested by Drew Adams <drew.adams@oracle.com>.  (Bug#24549)

diff --git a/etc/NEWS b/etc/NEWS
index 4268a4009dcc7b7063cfcfbf9199f3da8729d54e..59fb72a2beceeac167b33bb275c3e0ddb8cbe29c 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -61,6 +61,10 @@ affected by this, as SGI stopped supporting IRIX in December 2013.
 \f
 * Changes in Emacs 26.1
 
+---
+The group 'wp', whose label was "text", is now deprecated.
+Use the new group 'text', which inherits from 'wp', instead.
+
 +++
 ** The new function 'call-shell-region' executes a command in an
 inferior shell with the buffer region as input.

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 2e39514cac6d70b0543f5b4bc4b57123469d4096..601445ab7f4ba6c8c32b04aa53e157d4a7337f5d 100644 (file)
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -175,10 +175,16 @@
   :group 'emacs)
 
 (defgroup wp nil
-  "Support for editing text files."
-  :tag "Text"
+  "Support for editing text files.
+Use group `text' for this instead.  This group is deprecated."
   :group 'emacs)
 
+(defgroup text nil
+  "Support for editing text files."
+  :group 'emacs
+  ;; Inherit from deprecated `wp' for compatibility, for now.
+  :group 'wp)
+
 (defgroup data nil
   "Support for editing binary data files."
   :group 'emacs)
@@ -197,10 +203,6 @@
   :link '(custom-manual "(emacs)Emulation")
   :group 'editing)
 
-(defgroup outlines nil
-  "Support for hierarchical outlining."
-  :group 'wp)
-
 (defgroup external nil
   "Interfacing to external utilities."
   :group 'emacs)
@@ -313,7 +315,7 @@
 (defgroup tex nil
   "Code related to the TeX formatter."
   :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces)
-  :group 'wp)
+  :group 'text)
 
 (defgroup faces nil
   "Support for multiple fonts."

diff --git a/lisp/delim-col.el b/lisp/delim-col.el
index cfa7c76622a1c949d364a4742fab79671308d7c0..dc637d5a57d93d6af0791620b12c0f59765230a1 100644 (file)
--- a/lisp/delim-col.el
+++ b/lisp/delim-col.el
@@ -125,7 +125,7 @@
   "Prettify columns."
   :link '(emacs-library-link :tag "Source Lisp File" "delim-col.el")
   :prefix "delimit-columns-"
-  :group 'wp)
+  :group 'text)
 
 (defcustom delimit-columns-str-before ""
   "Specify a string to be inserted before all columns."

diff --git a/lisp/lpr.el b/lisp/lpr.el
index 2fe32c7d5e74a9b2fe02b82e1968690654503701..d09f7791a9314b47a45600233f17a0704112a708 100644 (file)
--- a/lisp/lpr.el
+++ b/lisp/lpr.el
@@ -42,7 +42,7 @@
 
 (defgroup lpr nil
   "Print Emacs buffer on line printer."
-  :group 'wp)
+  :group 'text)
 
 
 ;;;###autoload

diff --git a/lisp/nxml/rng-valid.el b/lisp/nxml/rng-valid.el
index 946bf791ff8d2e49f9af5e3bed92f2929e5b47c5..239b1d11db149a98d2db12d9a7db20fb07e013f3 100644 (file)
--- a/lisp/nxml/rng-valid.el
+++ b/lisp/nxml/rng-valid.el
@@ -101,7 +101,7 @@
 
 (defgroup relax-ng nil
   "Validation of XML using RELAX NG."
-  :group 'wp
+  :group 'text
   :group 'nxml
   :group 'languages)
 

diff --git a/lisp/outline.el b/lisp/outline.el
index f6ab1e4953082dad273559f3034fddd765ceca97..6345bb59df41ce1af609bd9b0b57e83f4962f865 100644 (file)
--- a/lisp/outline.el
+++ b/lisp/outline.el
@@ -38,7 +38,7 @@
 (defgroup outlines nil
   "Support for hierarchical outlining."
   :prefix "outline-"
-  :group 'wp)
+  :group 'text)
 
 (defvar outline-regexp "[*\^L]+"
   "Regular expression to match the beginning of a heading.

diff --git a/lisp/printing.el b/lisp/printing.el
index d9cc2a3614a8cda2660273be1d54ff3d0524526d..7cdfb49a90f1ac3458891b051836b471c0b48cd6 100644 (file)
--- a/lisp/printing.el
+++ b/lisp/printing.el
@@ -1668,7 +1668,7 @@ separator; otherwise, ensure unix-style directory separator."
   :link '(emacs-library-link :tag "Source Lisp File" "printing.el")
   :prefix "pr-"
   :version "22.1"
-  :group 'wp
+  :group 'text
   :group 'postscript)
 
 

diff --git a/lisp/progmodes/ebnf2ps.el b/lisp/progmodes/ebnf2ps.el
index ffb93de8062e44134f1a918508f9d48805972cc2..c4e62683a6a7e40ef1f2a334ae0de5c83132cd5b 100644 (file)
--- a/lisp/progmodes/ebnf2ps.el
+++ b/lisp/progmodes/ebnf2ps.el
@@ -1191,7 +1191,7 @@ Elements of ALIST that are not conses are ignored."
   "Translate an EBNF to a syntactic chart on PostScript."
   :prefix "ebnf-"
   :version "20"
-  :group 'wp
+  :group 'text
   :group 'postscript)
 
 

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 6c2a8c6161aada31f78b0edd497a4ae758f36aa3..71523a90db60a3f79c16b21650b70a56f02538c3 100644 (file)
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -1495,7 +1495,7 @@ Please send all bug fixes and enhancements to
   :link '(emacs-library-link :tag "Source Lisp File" "ps-print.el")
   :prefix "ps-"
   :version "20"
-  :group 'wp
+  :group 'text
   :group 'postscript)
 
 (defgroup ps-print-horizontal nil

diff --git a/lisp/textmodes/bib-mode.el b/lisp/textmodes/bib-mode.el
index 62b666b2524664738c7e87b9193f3f0c1fa4df3f..8b40558e3a4e98734ed08a5f443b5ccba8370a4e 100644 (file)
--- a/lisp/textmodes/bib-mode.el
+++ b/lisp/textmodes/bib-mode.el
@@ -35,7 +35,7 @@
   "Major mode for editing bib files."
   :prefix "bib-"
   :group 'external
-  :group 'wp)
+  :group 'text)
 
 (defcustom bib-file "~/my-bibliography.bib"
   "Default name of file used by `addbib'."

diff --git a/lisp/textmodes/enriched.el b/lisp/textmodes/enriched.el
index 124be27f4f3abe8a519ab5321a597d86c3ea97ad..5562a75340afc61784814ac4d1fa59c11b47c115 100644 (file)
--- a/lisp/textmodes/enriched.el
+++ b/lisp/textmodes/enriched.el
@@ -46,7 +46,7 @@
 
 (defgroup enriched nil
   "Read and save files in text/enriched format."
-  :group 'wp)
+  :group 'text)
 
 (defcustom enriched-verbose t
   "If non-nil, give status messages when reading and writing files."

diff --git a/lisp/textmodes/nroff-mode.el b/lisp/textmodes/nroff-mode.el
index b064f6d2b3136003f2b48f1a16c4c48572206040..35996bc2509cce0e69d5d46f876fd9873a014321 100644 (file)
--- a/lisp/textmodes/nroff-mode.el
+++ b/lisp/textmodes/nroff-mode.el
@@ -37,7 +37,7 @@
 (defgroup nroff nil
   "Nroff mode."
   :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces)
-  :group 'wp
+  :group 'text
   :prefix "nroff-")
 
 

diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el
index b77f8e9717c975c8556ceb608b7a28cd23de11fc..01d67b5c1ddbc38c7648c7ec7904d161745e224a 100644 (file)
--- a/lisp/textmodes/picture.el
+++ b/lisp/textmodes/picture.el
@@ -33,7 +33,7 @@
 (defgroup picture nil
   "Editing text-based pictures (\"ASCII art\")."
   :prefix "picture-"
-  :group 'wp)
+  :group 'text)
 
 (defcustom picture-rectangle-ctl ?+
   "Character `picture-draw-rectangle' uses for top left corners."

diff --git a/lisp/textmodes/refbib.el b/lisp/textmodes/refbib.el
index b73916a22d68f3ebdd2151cedd0521a402389956..46bf3c7552bede1e7774ad9516025721e7ceddce 100644 (file)
--- a/lisp/textmodes/refbib.el
+++ b/lisp/textmodes/refbib.el
@@ -61,7 +61,7 @@
 (defgroup refbib nil
   "Convert refer-style references to ones usable by Latex bib."
   :prefix "r2b-"
-  :group 'wp)
+  :group 'text)
 
 (defcustom r2b-trace-on nil
   "Non-nil means trace conversion."

diff --git a/lisp/textmodes/refer.el b/lisp/textmodes/refer.el
index f2abf06ebdca8d0c1ad70e229ef8185d22b6b601..4c9e62bb4c828005417ca01e3737520640042249 100644 (file)
--- a/lisp/textmodes/refer.el
+++ b/lisp/textmodes/refer.el
@@ -73,7 +73,7 @@
 (defgroup refer nil
   "Look up references in bibliography files."
   :prefix "refer-"
-  :group 'wp)
+  :group 'text)
 
 (defcustom refer-bib-directory nil
   "Directory, or list of directories, to search for \\.bib files.

diff --git a/lisp/textmodes/rst.el b/lisp/textmodes/rst.el
index 029139e572e0060b256e1c73daafc281f3d02ce1..ddf8d3ce694388336ee2fd4bfacbc65aecd3a4bd 100644 (file)
--- a/lisp/textmodes/rst.el
+++ b/lisp/textmodes/rst.el
@@ -292,7 +292,7 @@ in parentheses follows the development revision and the time stamp.")
 ;; Initialize customization
 
 (defgroup rst nil "Support for reStructuredText documents."
-  :group 'wp
+  :group 'text
   :version "23.1"
   :link '(url-link "http://docutils.sourceforge.net/rst.html"))
 

diff --git a/lisp/textmodes/table.el b/lisp/textmodes/table.el
index 8330e1772d73bca27926ff80468c5e821a560078..e12a34095bb5be12983939a6a7dc173bb436423b 100644 (file)
--- a/lisp/textmodes/table.el
+++ b/lisp/textmodes/table.el
@@ -641,7 +641,7 @@
   "Text based table manipulation utilities."
   :tag "Table"
   :prefix "table-"
-  :group 'wp
+  :group 'text
   :version "22.1")
 
 (defgroup table-hooks nil

diff --git a/lisp/textmodes/text-mode.el b/lisp/textmodes/text-mode.el
index 731c2d2d85d173758781b0e2c3f040205e7dc32c..c42eec0c6560b165666804770130530e378b3d46 100644 (file)
--- a/lisp/textmodes/text-mode.el
+++ b/lisp/textmodes/text-mode.el
@@ -35,7 +35,7 @@
   "Normal hook run when entering Text mode and many related modes."
   :type 'hook
   :options '(turn-on-auto-fill turn-on-flyspell)
-  :group 'wp)
+  :group 'text)
 
 (defvar text-mode-variant nil
   "Non-nil if this buffer's major mode is a variant of Text mode.

diff --git a/lisp/textmodes/tildify.el b/lisp/textmodes/tildify.el
index 598060e9ec817712aaa95f9dfb121f84159e1b31..cd258b8c97083de406e7756c2cffba9f58c03e64 100644 (file)
--- a/lisp/textmodes/tildify.el
+++ b/lisp/textmodes/tildify.el
@@ -54,7 +54,7 @@
 (defgroup tildify nil
   "Add hard spaces or other text fragments to text buffers."
   :version "21.1"
-  :group 'wp)
+  :group 'text)
 
 (defcustom tildify-pattern
   "\\(?:[,:;(][ \t]*[a]\\|\\<[AIKOSUVZikosuvz]\\)\\([ \t]+\\|[ \t]*\n[ \t]*\\)\\(?:\\w\\|[([{\\]\\|<[a-zA-Z]\\)"

diff --git a/lisp/view.el b/lisp/view.el
index ff7d2c9deb19577a4aca6728a3a8a62b61f161ab..92cbd146d77a9791aebf0aa3323144edbd560358 100644 (file)
--- a/lisp/view.el
+++ b/lisp/view.el
@@ -48,7 +48,7 @@
   "Peruse file or buffer without editing."
   :link '(function-link view-mode)
   :link '(custom-manual "(emacs)Misc File Ops")
-  :group 'wp)
+  :group 'text)
 
 (defcustom view-highlight-face 'highlight
    "The face used for highlighting the match found by View mode search."