Make yank-transform-functions into defvar

* doc/lispref/text.texi (Yanking): Adjust.
* lisp/simple.el (yank-transform-functions): Make into defvar
because it's not that useful as a user option.

diff --git a/doc/lispref/text.texi b/doc/lispref/text.texi
index 4439bc48658f82ce1fb05ae22737b95dea38d674..622f03d2a8521e338503be94d77864577c54b962 100644 (file)
--- a/doc/lispref/text.texi
+++ b/doc/lispref/text.texi
@@ -1111,7 +1111,7 @@ or specifying key bindings.  It takes effect after
 @code{yank-handled-properties}.
 @end defopt
 
-@defopt yank-transform-functions
+@defvar yank-transform-functions
 This variable is a list of functions.  Each function is called (in
 order) with the string to be yanked as the argument, and should
 return a (possibly transformed) string.  This variable can be set
@@ -1127,7 +1127,7 @@ could say something like:
         '(string-clean-whitespace)))
     (call-interactively #'yank)))
 @end lisp
-@end defopt
+@end defvar
 
 @node Yank Commands
 @subsection Functions for Yanking

diff --git a/etc/NEWS b/etc/NEWS
index 857f300384dab05e4b49700ee334f996fccef42d..92ebe220166fc3053de01b873486d27c629acab1 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -2268,8 +2268,8 @@ This command lets you examine all data in the current selection and
 the clipboard, and insert it into the buffer.
 
 +++
-** New user option 'yank-transform-functions'.
-This function allows the user to alter the string to be inserted.
+** New variable 'yank-transform-functions'.
+This variable allows the user to alter the string to be inserted.
 
 ---
 ** New command 'yank-in-context'.

diff --git a/lisp/simple.el b/lisp/simple.el
index 3318ac4731c7529206477a3b7977ed50286dcbb2..4fd6ea009d2c1f543f35e23dec07769febdae30b 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -5946,17 +5946,14 @@ See also `yank-handled-properties'."
   :group 'killing
   :version "24.3")
 
-(defcustom yank-transform-functions nil
+(defvar yank-transform-functions nil
   "Hook run on strings to be yanked.
 Each function in this list will be called (in order) with the
 string to be yanked as the sole argument, and should return the (possibly)
 transformed string.
 
 The functions will be called with the destination buffer as the current
-buffer, and with point at the place where the string is to be inserted."
-  :type 'hook
-  :version "29.1"
-  :group 'killing)
+buffer, and with point at the place where the string is to be inserted.")
 
 (defvar yank-window-start nil)
 (defvar yank-undo-function nil