# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1274734870 14400
# Node ID 6fcf1baf9c2a13674f46cf10446e81f720037723
# Parent  45004fc2d3e8723fc55686733445df0ebf8532c3
* emacs-lisp/bytecomp.el (byte-compile-interactive-only-functions):
Add delete-backward-char.

diff -r 45004fc2d3e8 -r 6fcf1baf9c2a .bzrignore
--- a/.bzrignore	Thu May 20 21:06:34 2010 -0700
+++ b/.bzrignore	Mon May 24 17:01:10 2010 -0400
@@ -66,3 +66,4 @@
 src/deps
 configure.lineno
 src/core
+core
diff -r 45004fc2d3e8 -r 6fcf1baf9c2a lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Thu May 20 21:06:34 2010 -0700
+++ b/lisp/emacs-lisp/bytecomp.el	Mon May 24 17:01:10 2010 -0400
@@ -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
diff -r 45004fc2d3e8 -r 6fcf1baf9c2a src/cmds.c
--- a/src/cmds.c	Thu May 20 21:06:34 2010 -0700
+++ b/src/cmds.c	Mon May 24 17:01:10 2010 -0400
@@ -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;
 {