diff options
| author | Richard M. Stallman <rms@gnu.org> | 2001-11-19 14:08:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2001-11-19 14:08:59 +0000 |
| commit | c940380872fe2544fa8d28527d6e3ce7c8222249 (patch) | |
| tree | 343d387eaafe6125a76295f84c10f872fdb0913c /lisp | |
| parent | 3132f345bc1ab68e4425178266e3d4ad1b2ccd02 (diff) | |
| download | emacs-c940380872fe2544fa8d28527d6e3ce7c8222249.tar.gz emacs-c940380872fe2544fa8d28527d6e3ce7c8222249.tar.bz2 emacs-c940380872fe2544fa8d28527d6e3ce7c8222249.zip | |
(iswitchb-cannot-complete-hook): New variable to
control behaviour when no further completion is possible.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/iswitchb.el | 12 |
2 files changed, 15 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b5b244a4e61..32a3c1eec6a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2001-11-18 Stephen Eglen <stephen@gnu.org> + + * iswitchb.el (iswitchb-cannot-complete-hook): New variable to + control behaviour when no further completion is possible. + 2001-11-19 Colin Walters <walters@verbum.org> * calc/calc-macs.el (calc-wrapper, calc-slow-wrapper) diff --git a/lisp/iswitchb.el b/lisp/iswitchb.el index 9e1b80e8f2e..74aa2085082 100644 --- a/lisp/iswitchb.el +++ b/lisp/iswitchb.el @@ -271,6 +271,14 @@ example functions that filter buffernames." :type '(repeat regexp) :group 'iswitchb) +(defcustom iswitchb-cannot-complete-hook 'iswitchb-completion-help + "*Hook run when `iswitchb-complete' can't complete any more. +The most useful values are `iswitchb-completion-help', which pops up a +window with completion alternatives, or `iswitchb-next-match' or +`iswitchb-prev-match', which cycle the buffer list." + :type 'hook + :group 'iswitchb) + ;;; Examples for setting the value of iswitchb-buffer-ignore ;(defun iswitchb-ignore-c-mode (name) ; "Ignore all c mode buffers -- example function for iswitchb." @@ -632,7 +640,7 @@ The result is stored in `iswitchb-common-match-string'." (interactive) (let (res) (cond ((not iswitchb-matches) - (iswitchb-completion-help)) + (run-hooks 'iswitchb-cannot-complete-hook)) ((= 1 (length iswitchb-matches)) ;; only one choice, so select it. @@ -649,7 +657,7 @@ The result is stored in `iswitchb-common-match-string'." (delete-region (minibuffer-prompt-end) (point)) (insert res)) ;; else nothing to complete - (iswitchb-completion-help) + (run-hooks 'iswitchb-cannot-complete-hook) ))))) ;;; TOGGLE FUNCTIONS |