changeset 34071:e54fa77a9d6e

(minibuffer-contents, minibuffer-contents-no-properties) (delete-minibuffer-contents): New functions.

--- a/lisp/simple.el	Fri Dec 01 02:59:07 2000 +0000
+++ b/lisp/simple.el	Fri Dec 01 03:31:49 2000 +0000
@@ -882,9 +882,23 @@
 
 (defun minibuffer-prompt-end ()
   "Return the buffer position of the end of the minibuffer prompt.
-Return 0 if current buffer is not a mini-buffer."
+Return (point-min) if current buffer is not a mini-buffer."
   (field-beginning (point-max)))
 
+(defun minibuffer-contents ()
+  "Return the user input in a minbuffer as a string.
+The current buffer must be a minibuffer."
+  (field-string (point-max)))
+
+(defun minibuffer-contents-no-properties ()
+  "Return the user input in a minbuffer as a string, without text-properties.
+The current buffer must be a minibuffer."
+  (field-string-no-properties (point-max)))
+
+(defun delete-minibuffer-contents  ()
+  "Delete all user input in a minibuffer.
+The current buffer must be a minibuffer."
+  (delete-field (point-max)))
 
 ;Put this on C-x u, so we can force that rather than C-_ into startup msg
 (defalias 'advertised-undo 'undo)