Mercurial > hg > xemacs-beta
comparison lisp/minibuf.el @ 510:5bdbc721d46a
[xemacs-hg @ 2001-05-06 08:33:35 by ben]
implement printing the selection when it's selected.
force redisplay when set-charset-ccl-program called.
if bytecomp or byte-optimize need recompiling, then load
the .el version of them first, recompile them, and reload
the .elc versions to recompile everything else (so we won't
be waiting until the cows come home).
| author | ben |
|---|---|
| date | Sun, 06 May 2001 08:33:41 +0000 |
| parents | 7039e6323819 |
| children | 685b588e92d8 |
comparison
equal
deleted
inserted
replaced
| 509:68eb53e4b7e5 | 510:5bdbc721d46a |
|---|---|
| 338 minibuffer history if its length is less than that value." | 338 minibuffer history if its length is less than that value." |
| 339 :type '(choice (const :tag "Any" nil) | 339 :type '(choice (const :tag "Any" nil) |
| 340 integer) | 340 integer) |
| 341 :group 'minibuffer) | 341 :group 'minibuffer) |
| 342 | 342 |
| 343 (define-error 'input-error "Keyboard input error") | 343 (define-error 'input-error "Keyboard input error" 'io-error) |
| 344 | |
| 345 (put 'input-error 'display-error | |
| 346 #'(lambda (error-object stream) | |
| 347 (princ (cadr error-object) stream))) | |
| 348 | 344 |
| 349 (defun read-from-minibuffer (prompt &optional initial-contents | 345 (defun read-from-minibuffer (prompt &optional initial-contents |
| 350 keymap | 346 keymap |
| 351 readp | 347 readp |
| 352 history | 348 history |