diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-05-24 17:01:10 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-05-24 17:01:10 -0400 |
| commit | dd9b52a6930c42eeefb45938df309bebe9acec37 (patch) | |
| tree | 7250101ce756e75d824d82e3c21b5f8e1803d445 | |
| parent | f5b416d2ef84115b7b0690dfff48be7ce3b4d79a (diff) | |
| download | emacs-dd9b52a6930c42eeefb45938df309bebe9acec37.tar.gz | |
* emacs-lisp/bytecomp.el (byte-compile-interactive-only-functions):
Add delete-backward-char.
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 2 | ||||
| -rw-r--r-- | 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; { |