Commit 49c14a05 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

Comment out change of 2001-09-13.

parent 483e0218
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment