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)
This commit is contained in:
Eli Zaretskii 2016-10-08 16:37:42 +03:00
parent 2913fa2d47
commit 67d14c8222
20 changed files with 31 additions and 25 deletions

View file

@ -61,6 +61,10 @@ affected by this, as SGI stopped supporting IRIX in December 2013.
* 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.

View file

@ -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."

View file

@ -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."

View file

@ -42,7 +42,7 @@
(defgroup lpr nil
"Print Emacs buffer on line printer."
:group 'wp)
:group 'text)
;;;###autoload

View file

@ -101,7 +101,7 @@
(defgroup relax-ng nil
"Validation of XML using RELAX NG."
:group 'wp
:group 'text
:group 'nxml
:group 'languages)

View file

@ -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.

View file

@ -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)

View file

@ -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)

View file

@ -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

View file

@ -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'."

View file

@ -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."

View file

@ -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-")

View file

@ -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."

View file

@ -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."

View file

@ -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.

View file

@ -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"))

View file

@ -641,7 +641,7 @@
"Text based table manipulation utilities."
:tag "Table"
:prefix "table-"
:group 'wp
:group 'text
:version "22.1")
(defgroup table-hooks nil

View file

@ -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.

View file

@ -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]\\)"

View file

@ -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."