diff options
| author | Miles Bader | 2000-11-21 16:01:32 +0000 |
|---|---|---|
| committer | Miles Bader | 2000-11-21 16:01:32 +0000 |
| commit | 8f62f2b891a56211db15ab6a6ba2d05960b26545 (patch) | |
| tree | b4988d093c5e26cfef1947ce03926c46269f6d8c | |
| parent | 6e7d0ff7bc8ac16899501cebf9460bcfc26c9fb0 (diff) | |
| download | emacs-8f62f2b891a56211db15ab6a6ba2d05960b26545.tar.gz emacs-8f62f2b891a56211db15ab6a6ba2d05960b26545.zip | |
Add entry for `minibuffer-prompt-properties'.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/cus-start.el | 20 |
2 files changed, 25 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 80099608acc..107634bf8b2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2000-11-22 Miles Bader <miles@gnu.org> | ||
| 2 | |||
| 3 | * cus-start.el: Add entry for `minibuffer-prompt-properties'. | ||
| 4 | * simple.el (minibuffer-avoid-prompt): New function. | ||
| 5 | |||
| 1 | 2000-11-21 Gerd Moellmann <gerd@gnu.org> | 6 | 2000-11-21 Gerd Moellmann <gerd@gnu.org> |
| 2 | 7 | ||
| 3 | * Makefile.in (.SUFFIXES): Add .SUFFIXES. | 8 | * Makefile.in (.SUFFIXES): Add .SUFFIXES. |
diff --git a/lisp/cus-start.el b/lisp/cus-start.el index 620a870090b..1dbed46d4be 100644 --- a/lisp/cus-start.el +++ b/lisp/cus-start.el | |||
| @@ -156,6 +156,26 @@ | |||
| 156 | ;; minibuf.c | 156 | ;; minibuf.c |
| 157 | (completion-auto-help minibuffer boolean) | 157 | (completion-auto-help minibuffer boolean) |
| 158 | (enable-recursive-minibuffers minibuffer boolean) | 158 | (enable-recursive-minibuffers minibuffer boolean) |
| 159 | (minibuffer-prompt-properties | ||
| 160 | minibuffer | ||
| 161 | (list | ||
| 162 | (checklist :inline t | ||
| 163 | (const :tag "Read-Only" | ||
| 164 | :doc "Prevent prompt from being modified" | ||
| 165 | :format "%t%n%h" | ||
| 166 | :inline t | ||
| 167 | (read-only t)) | ||
| 168 | (const :tag "Inviolable" | ||
| 169 | :doc "Prevent point from ever entering prompt" | ||
| 170 | :format "%t%n%h" | ||
| 171 | :inline t | ||
| 172 | (point-entered minibuffer-avoid-prompt))) | ||
| 173 | (repeat :inline t | ||
| 174 | :tag "Other Properties" | ||
| 175 | (list :inline t | ||
| 176 | :format "%v" | ||
| 177 | (symbol :tag "Property") | ||
| 178 | (sexp :tag "Value"))))) | ||
| 159 | (minibuffer-auto-raise minibuffer boolean) | 179 | (minibuffer-auto-raise minibuffer boolean) |
| 160 | ;; msdos.c | 180 | ;; msdos.c |
| 161 | (dos-unsupported-char-glyph display integer) | 181 | (dos-unsupported-char-glyph display integer) |