From dd9b52a6930c42eeefb45938df309bebe9acec37 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 24 May 2010 17:01:10 -0400 Subject: [PATCH] * emacs-lisp/bytecomp.el (byte-compile-interactive-only-functions): Add delete-backward-char. --- lisp/emacs-lisp/bytecomp.el | 2 +- src/cmds.c | 4 +++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index b593596a526..394169be99d 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -353,7 +353,7 @@ else the global value will be modified." (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 --git a/src/cmds.c b/src/cmds.c index fd337f378bb..3ad6f988b2d 100644 --- a/src/cmds.c +++ b/src/cmds.c @@ -270,7 +270,9 @@ DEFUN ("delete-backward-char", Fdelete_backward_char, Sdelete_backward_char, 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; { -- 2.11.4.GIT