Comment out change of 2001-09-13.

diff --git a/lisp/simple.el b/lisp/simple.el
index 19fee9a0c92b9f98569dfbd1dffe5c59d53dbd43..91a99a7a3e037c0498834022d60488b6fe7f2ea2 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4188,23 +4188,23 @@ See also `normal-erase-is-backspace'."
 
 ;;; Minibuffer prompt stuff.
 
-(defun minibuffer-prompt-modification (start end)
-  (error "You cannot modify the prompt"))
-
-
-(defun minibuffer-prompt-insertion (start end)
-  (let ((inhibit-modification-hooks t))
-    (delete-region start end)
-    ;; Discard undo information for the text insertion itself
-    ;; and for the text deletion.above.
-    (when (consp buffer-undo-list)
-      (setq buffer-undo-list (cddr buffer-undo-list)))
-    (message "You cannot modify the prompt")))
-
-
-(setq minibuffer-prompt-properties 
-  (list 'modification-hooks '(minibuffer-prompt-modification)
-       'insert-in-front-hooks '(minibuffer-prompt-insertion)))
-  
+;(defun minibuffer-prompt-modification (start end)
+;  (error "You cannot modify the prompt"))
+;
+;
+;(defun minibuffer-prompt-insertion (start end)
+;  (let ((inhibit-modification-hooks t))
+;    (delete-region start end)
+;    ;; Discard undo information for the text insertion itself
+;    ;; and for the text deletion.above.
+;    (when (consp buffer-undo-list)
+;      (setq buffer-undo-list (cddr buffer-undo-list)))
+;    (message "You cannot modify the prompt")))
+;
+;
+;(setq minibuffer-prompt-properties 
+;  (list 'modification-hooks '(minibuffer-prompt-modification)
+;      'insert-in-front-hooks '(minibuffer-prompt-insertion)))
+;  
 
 ;;; simple.el ends here