# HG changeset patch # User Gerd Moellmann # Date 1000465700 0 # Node ID c5d6010e15eeebfdc8f12dfdec29ae920e78392c # Parent 25dc021070bc3ea61ea095e2fc246c1b36996345 Comment out change of 2001-09-13. diff -r 25dc021070bc -r c5d6010e15ee lisp/simple.el --- a/lisp/simple.el Fri Sep 14 03:34:31 2001 +0000 +++ b/lisp/simple.el Fri Sep 14 11:08:20 2001 +0000 @@ -4188,23 +4188,23 @@ ;;; 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