[Emacs-diffs] /srv/bzr/emacs/emacs-23 r99813: * emacs-lisp/bytecomp.el (byte-compile-interactive-only-functions):

[Stefan Monnier]

------------------------------------------------------------
revno: 99813
committer: Stefan Monnier <address@hidden>
branch nick: emacs-23
timestamp: Mon 2010-05-24 17:01:10 -0400
message:
  * emacs-lisp/bytecomp.el (byte-compile-interactive-only-functions):
  Add delete-backward-char.
modified:
  .bzrignore
  lisp/emacs-lisp/bytecomp.el
  src/cmds.c

=== modified file '.bzrignore'
--- a/.bzrignore        2010-05-19 15:23:53 +0000
+++ b/.bzrignore        2010-05-24 21:01:10 +0000
@@ -66,3 +66,4 @@
 src/deps
 configure.lineno
 src/core
+core

=== modified file 'lisp/emacs-lisp/bytecomp.el'
--- a/lisp/emacs-lisp/bytecomp.el       2010-01-13 08:35:10 +0000
+++ b/lisp/emacs-lisp/bytecomp.el       2010-05-24 21:01:10 +0000
@@ -353,7 +353,7 @@
 (defvar byte-compile-interactive-only-functions
   '(beginning-of-buffer end-of-buffer replace-string replace-regexp
     insert-file insert-buffer insert-file-literally previous-line next-line
-    goto-line comint-run)
+    goto-line comint-run delete-backward-char)
   "List of commands that are not meant to be called from Lisp.")
 
 (defvar byte-compile-not-obsolete-vars nil

=== modified file 'src/cmds.c'
--- a/src/cmds.c        2010-01-13 08:35:10 +0000
+++ b/src/cmds.c        2010-05-24 21:01:10 +0000
@@ -270,7 +270,9 @@
        doc: /* Delete the previous N characters (following if N is negative).
 Optional second arg KILLFLAG non-nil means kill instead (save in kill ring).
 Interactively, N is the prefix arg, and KILLFLAG is set if
-N was explicitly specified.  */)
+N was explicitly specified.
+This is meant for interactive use only; from Lisp, better use `delete-char'
+with a negated argument.  */)
      (n, killflag)
      Lisp_Object n, killflag;
 {