Mercurial > emacs
changeset 39289:c5d6010e15ee
Comment out change of 2001-09-13.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Fri, 14 Sep 2001 11:08:20 +0000 |
parents | 25dc021070bc |
children | c5853621fe9b |
files | lisp/simple.el |
diffstat | 1 files changed, 18 insertions(+), 18 deletions(-) [+] |
line wrap: on
line diff
--- 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