[Emacs-diffs] trunk r113918: Advertise using `kill-new' and `kill-append' in Lisp programs.

[Xue Fuqiao]

------------------------------------------------------------
revno: 113918
revision-id: address@hidden
parent: address@hidden
committer: Xue Fuqiao <address@hidden>
branch nick: trunk
timestamp: Fri 2013-08-16 16:11:44 +0800
message:
  Advertise using `kill-new' and `kill-append' in Lisp programs.
  
  * lisp/simple.el (copy-region-as-kill, kill-ring-save): Advertise using
  `kill-new' and `kill-append' in Lisp programs.
modified:
  doc/emacs/killing.texi         
killing.texi-20091113204419-o5vbwnq5f7feedwu-6258
  doc/lispref/text.texi          text.texi-20091113204419-o5vbwnq5f7feedwu-6215
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/simple.el                 simple.el-20091113204419-o5vbwnq5f7feedwu-403

=== modified file 'doc/emacs/killing.texi'
--- a/doc/emacs/killing.texi    2013-01-01 09:11:05 +0000
+++ b/doc/emacs/killing.texi    2013-08-16 08:11:44 +0000
@@ -109,6 +109,8 @@
 delete all the text in the region if it is active (@pxref{Using
 Region}).
 
address@hidden FIXME: `cycle-spacing' should be documented, too.  (Maybe not in
address@hidden this node, tho.)  --xfq
 @kindex M-\
 @findex delete-horizontal-space
 @kindex M-SPC

=== modified file 'doc/lispref/text.texi'
--- a/doc/lispref/text.texi     2013-08-16 06:03:18 +0000
+++ b/doc/lispref/text.texi     2013-08-16 08:11:44 +0000
@@ -779,6 +779,7 @@
 blank lines immediately following it.
 
 A blank line is defined as a line containing only tabs and spaces.
address@hidden and the Newline character?
 
 @code{delete-blank-lines} returns @code{nil}.
 @end deffn

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-08-16 07:17:33 +0000
+++ b/lisp/ChangeLog    2013-08-16 08:11:44 +0000
@@ -23,6 +23,11 @@
        New functions.
        (image-animate-timeout): Respect image :speed property.
 
+2013-08-16  Xue Fuqiao  <address@hidden>
+
+       * simple.el (copy-region-as-kill, kill-ring-save): Advertise using
+       `kill-new' and `kill-append' in Lisp programs.
+
 2013-08-15  Stefan Monnier  <address@hidden>
 
        * emacs-lisp/debug.el (debugger-setup-buffer): Put point on the

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2013-08-13 14:26:39 +0000
+++ b/lisp/simple.el    2013-08-16 08:11:44 +0000
@@ -3622,7 +3622,10 @@
 If `interprogram-cut-function' is non-nil, also save the text for a window
 system cut and paste.
 
-This command's old key binding has been given to `kill-ring-save'."
+This command's old key binding has been given to `kill-ring-save'.
+
+Do not use this function in Lisp programs, use `kill-new' or
+`kill-append' instead."
   (interactive "r")
   (if (eq last-command 'kill-region)
       (kill-append (filter-buffer-substring beg end) (< end beg))
@@ -3640,7 +3643,10 @@
 use \\[append-next-kill] before \\[kill-ring-save].
 
 This command is similar to `copy-region-as-kill', except that it gives
-visual feedback indicating the extent of the region being copied."
+visual feedback indicating the extent of the region being copied.
+
+Do not use this function in Lisp programs, use `kill-new' or
+`kill-append' instead."
   (interactive "r")
   (copy-region-as-kill beg end)
   ;; This use of called-interactively-p is correct because the code it