mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

(minibuffer-contents, minibuffer-contents-no-properties)

Browse Source 
(delete-minibuffer-contents): New functions.
This commit is contained in:
Miles Bader 2000-12-01 03:31:49 +00:00
parent d5b1993e01
commit b90d06b07e
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/simple.el
View File

@ -882,9 +882,23 @@ Return 0 if current buffer is not a mini-buffer."
(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)