Mercurial > hg > xemacs-beta
comparison lisp/minibuf.el @ 444:576fb035e263 r21-2-37
Import from CVS: tag r21-2-37
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:36:19 +0200 |
| parents | abe6d1db359e |
| children | 0784d089fdc9 |
comparison
equal
deleted
inserted
replaced
| 443:a8296e22da4e | 444:576fb035e263 |
|---|---|
| 194 (set-keymap-parents map (list minibuffer-local-map)) | 194 (set-keymap-parents map (list minibuffer-local-map)) |
| 195 (define-key map "\t" 'comint-dynamic-complete) | 195 (define-key map "\t" 'comint-dynamic-complete) |
| 196 (define-key map "\M-\t" 'comint-dynamic-complete) | 196 (define-key map "\M-\t" 'comint-dynamic-complete) |
| 197 (define-key map "\M-?" 'comint-dynamic-list-completions) | 197 (define-key map "\M-?" 'comint-dynamic-list-completions) |
| 198 map) | 198 map) |
| 199 "Minibuffer keymap used by shell-command and related commands.") | 199 "Minibuffer keymap used by `shell-command' and related commands.") |
| 200 | 200 |
| 201 (defcustom use-dialog-box t | 201 (defcustom use-dialog-box t |
| 202 "*Variable controlling usage of the dialog box. | 202 "*Variable controlling usage of the dialog box. |
| 203 If nil, the dialog box will never be used, even in response to mouse events." | 203 If nil, the dialog box will never be used, even in response to mouse events." |
| 204 :type 'boolean | 204 :type 'boolean |
| 374 Sixth arg ABBREV-TABLE, if non-nil, becomes the value of `local-abbrev-table' | 374 Sixth arg ABBREV-TABLE, if non-nil, becomes the value of `local-abbrev-table' |
| 375 in the minibuffer. | 375 in the minibuffer. |
| 376 Seventh arg DEFAULT, if non-nil, will be returned when user enters | 376 Seventh arg DEFAULT, if non-nil, will be returned when user enters |
| 377 an empty string. | 377 an empty string. |
| 378 | 378 |
| 379 See also the variable completion-highlight-first-word-only for control over | 379 See also the variable `completion-highlight-first-word-only' for |
| 380 completion display." | 380 control over completion display." |
| 381 (if (and (not enable-recursive-minibuffers) | 381 (if (and (not enable-recursive-minibuffers) |
| 382 (> (minibuffer-depth) 0) | 382 (> (minibuffer-depth) 0) |
| 383 (eq (selected-window) (minibuffer-window))) | 383 (eq (selected-window) (minibuffer-window))) |
| 384 (error "Command attempted to use minibuffer while in minibuffer")) | 384 (error "Command attempted to use minibuffer while in minibuffer")) |
| 385 | 385 |
| 1210 ;; otherwise, terminate input | 1210 ;; otherwise, terminate input |
| 1211 (throw 'exit nil))))))) | 1211 (throw 'exit nil))))))) |
| 1212 | 1212 |
| 1213 (defun minibuffer-smart-maybe-select-highlighted-completion | 1213 (defun minibuffer-smart-maybe-select-highlighted-completion |
| 1214 (event &optional click-count) | 1214 (event &optional click-count) |
| 1215 "Like minibuffer-smart-select-highlighted-completion but does nothing if | 1215 "Like `minibuffer-smart-select-highlighted-completion' but does nothing if |
| 1216 there is no completion (as opposed to executing the global binding). Useful | 1216 there is no completion (as opposed to executing the global binding). Useful |
| 1217 as the value of `mouse-track-click-hook'." | 1217 as the value of `mouse-track-click-hook'." |
| 1218 (interactive "e") | 1218 (interactive "e") |
| 1219 (minibuffer-smart-select-highlighted-completion-1 event nil)) | 1219 (minibuffer-smart-select-highlighted-completion-1 event nil)) |
| 1220 | 1220 |