diff options
| author | David Aspinall | 1999-01-12 15:31:21 +0000 |
|---|---|---|
| committer | David Aspinall | 1999-01-12 15:31:21 +0000 |
| commit | efd98aef97291c7ae9f1ffb1cd4801ab400afcb5 (patch) | |
| tree | 3a0c00e41765fe564160e9ae6235843e9504cbc1 | |
| parent | 383e516fd802d0d8b781aaf6c38064bd34decb5f (diff) | |
Changed read-no-blanks-input to read-string, former is defunct.
| -rw-r--r-- | isa/thy-mode.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/isa/thy-mode.el b/isa/thy-mode.el index a5b8f6be..ff9361da 100644 --- a/isa/thy-mode.el +++ b/isa/thy-mode.el @@ -605,13 +605,14 @@ If not, will turn off simulated minor mode and run thy-indent-line." ;;; ; These could be improved, e.g. to enforce syntax for identifiers. -; Also, xemacs lacks a proper read-no-blanks-input ! +; Unfortunately, Xemacs, and now Emacs too, lack a +; read-no-blanks-input function! (defun isa-read-idlist (prompt &optional init) "Read a list of identifiers from the minibuffer." (let ((items init) item) (while (not (string= "" - (setq item (read-no-blanks-input + (setq item (read-string (format prompt (or items "")))))) (setq items (nconc items (list item)))) items)) @@ -621,7 +622,7 @@ If not, will turn off simulated minor mode and run thy-indent-line." ;; don't allow empty input (let ((result "")) (while (string= result "") - (setq result (read-no-blanks-input prompt init))) + (setq result (read-string prompt init))) result)) (defun isa-read-string (prompt &optional init) |