* binding.el: Add comment describing why C-d binds to `delete-char'.

[bpt/emacs.git] / lisp / simple.el

diff --git a/lisp/simple.el b/lisp/simple.el
index 1844833..200e865 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1008,6 +1008,7 @@ KILLFLAG is set if N was explicitly specified."
 
        ;; Otherwise, do simple deletion.
        (t (delete-char n killflag))))
+(put 'delete-forward-char 'interactive-only 'delete-char)
 
 (defun mark-whole-buffer ()
   "Put point at beginning and mark at end of buffer.