diff options
author | Kim F. Storm <[email protected]> | 2002-06-01 00:00:29 +0000 |
---|---|---|
committer | Kim F. Storm <[email protected]> | 2002-06-01 00:00:29 +0000 |
commit | ba36181bdff1ce1bbf3029024a9a6c795c51e40b (patch) | |
tree | 2f8bc7fc614f6253769374ef4fd50c1fe977e2c2 /lisp | |
parent | 89a2b3d123bb847ddac6dd4d1b3bfc7cc4e278ef (diff) |
(choose-completion-string-functions): New special hook.
(choose-completion-string1): Renamed from choose-completion-string.
(choose-completion-string): Run choose-completion-string-functions
until success, and only call choose-completion-string1 if it fails.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/simple.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 305dc3e981..5115fbef72 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -3777,6 +3777,13 @@ With prefix argument N, move N items (negative N means move backward)." (forward-char 1)) (delete-char len))) +(defvar choose-completion-string-functions nil + "List of functions which may override the standard `choose-completion-string'. +Each function in the list is called in turn with arguments CHOICE BUFFER BASE-SIZE +like choose-completion-string. If a function in the list returns non-nil, that +function is supposed to have inserted the completion in the minibuffer. +If all functions in the list return nil, use the default completion selection.") + ;; Switch to BUFFER and insert the completion choice CHOICE. ;; BASE-SIZE, if non-nil, says how many characters of BUFFER's text ;; to keep. If it is nil, use choose-completion-delete-max-match instead. @@ -3785,6 +3792,11 @@ With prefix argument N, move N items (negative N means move backward)." ;; unless it is reading a file name and CHOICE is a directory, ;; or completion-no-auto-exit is non-nil. (defun choose-completion-string (choice &optional buffer base-size) + (unless (run-hook-with-args-until-success + 'choose-completion-string-functions choice buffer base-size) + (choose-completion-string1 choice buffer base-size))) + +(defun choose-completion-string1 (choice &optional buffer base-size) (let ((buffer (or buffer completion-reference-buffer)) (mini-p (string-match "\\` \\*Minibuf-[0-9]+\\*\\'" (buffer-name buffer)))) ;; If BUFFER is a minibuffer, barf unless it's the currently |