From 49c14a0533e1aefde82d7deab2afd7107f313483 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 14 Sep 2001 11:08:20 +0000 Subject: [PATCH] Comment out change of 2001-09-13. --- lisp/simple.el | 36 ++++++++++++++++++------------------ 1 file changed, 18 insertions(+), 18 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 19fee9a0c92..91a99a7a3e0 100644 --- 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 -- 2.39.5