1 files changed, 244 insertions, 0 deletions

diff --git a/lisp/icomplete.el b/lisp/icomplete.el
new file mode 100644
index 00000000000..cad24952a26
--- /dev/null
+++ b/lisp/icomplete.el
@@ -0,0 +1,244 @@
+;;; icomplete.el - minibuffer completion incremental feedback
+;;; This package is in the publid domain.
+
+;;; Author: Ken Manheimer <klm@nist.gov>
+;;; Maintainer: Ken Manheimer <klm@nist.gov>
+;;; Version: icomplete.el,v 3.2 1993/11/19 18:42:52 klm Exp klm
+;;; Created: Mar 1993 klm@nist.gov - first release to usenet
+;;; Keywords: help, abbrev
+
+;;; Commentary:
+
+;;; Loading this package implements a more finely-grained completion
+;;; feedback scheme, indicating, within the minibuffer, the
+;;; prospective minibuffer completion candidates, as you type.  See
+;;; the documentation string for 'icomplete-prompt' for a specific
+;;; description of icompletion.
+
+;;; This will not work on Emacs 18 versions - there may be a version
+;;; for v18 in the elisp archives, at archive.cis.ohio-state.edu, in
+;;; /pub/gnu/emacs/elisp-archive.
+
+;;; Code:
+
+;;;_ + Provide
+(provide 'icomplete)
+
+;;;_ + User Customization variables
+;;;_  = icomplete-inhibit
+(defvar icomplete-inhibit nil
+  "*Set this variable to t at any time to inhibit icomplete.")
+
+;;;_ + Setup
+;;;_  - Internal Variables
+;;;_   = icomplete-eoinput 1
+(defvar icomplete-eoinput 1
+  "Point where minibuffer input ends and completion info begins.")
+(make-variable-buffer-local 'icomplete-eoinput)
+;;;_  > icomplete-prime-session ()
+(defun icomplete-prime-session ()
+
+  "Prep emacs v 19 for icompletion.  For emacs v19.18 and later revs,
+icomplete is installed in 'minibuffer-setup-hook'.  Global pre- and
+post-command-hook functions are used in v19.17 and earlier revs."
+
+      (let* ((v19-rev (and (string-match "^19\\.\\([0-9]+\\)" emacs-version)
+                       (string-to-int (substring emacs-version
+                                                 (match-beginning 1)
+                                                 (match-end 1))))))
+
+        (cond ((and v19-rev             ; emacs v 19, some rev,
+                    (> v19-rev 17))
+               ;; Post v19rev17, has minibuffer-setup-hook, use it:
+               (add-hook 'minibuffer-setup-hook 'icomplete-prime-minibuffer))
+              (v19-rev
+               ;; v19rev17 and prior (including lucid): use global
+               ;; pre- and post-command-hooks, instead:
+               (add-hook 'pre-command-hook 'icomplete-pre-command-hook 'append)
+               (add-hook 'post-command-hook
+                         'icomplete-post-command-hook 'append))
+              ((format "icomplete: non v19 emacs, %s - %s"
+                       emacs-version "try elisp-archive icomplete")))))
+;;;_  > icomplete-prime-minibuffer ()
+(defun icomplete-prime-minibuffer ()
+
+  "Prep emacs, v 19.18 or later, for icomplete.  \(icomplete-prime-
+session establishes global hooks, instead, in emacs 19 versions 19.17
+and prior.\)  Run via minibuffer-setup-hook \(emacs 19.18 or later\),
+adds icomplete pre- and post-command hooks to do icomplete display
+management."
+
+  ;; We append the hooks because preliminary version of blink-paren
+  ;; post-command-hook i have interferes with proper operation of
+  ;; minibuffer quit.
+  (make-local-variable 'pre-command-hook)
+  (make-local-variable 'post-command-hook)
+  (add-hook 'pre-command-hook 'icomplete-pre-command-hook)
+  (add-hook 'post-command-hook 'icomplete-post-command-hook))
+;;;_  > icomplete-window-minibuffer-p ()
+(defmacro icomplete-window-minibuffer-p ()
+
+  "Returns non-nil if current window is a minibuffer window.
+Trivially equates to '(window-minibuffer-p nil)', with the nil
+provided in case the argument is not optional in Lucid emacs (which
+some net correspondance seems to indicate)."
+
+  '(window-minibuffer-p nil))
+
+;;;_ + Completion
+;;;_  - Completion feedback hooks
+;;;_   > icomplete-pre-command-hook ()
+(defun icomplete-pre-command-hook ()
+  "Cleanup completions exhibit before user's new input (or whatever) is dealt
+with."
+  (if (and (icomplete-window-minibuffer-p)
+           (not (symbolp minibuffer-completion-table))
+           (not icomplete-inhibit))
+      (if (and (boundp 'icomplete-eoinput)
+               icomplete-eoinput)
+          (if (> icomplete-eoinput (point-max))
+              ;; Oops, got rug pulled out from under us - reinit:
+              (setq icomplete-eoinput (point-max))
+            (let ((buffer-undo-list buffer-undo-list )) ; prevent entry
+              (delete-region icomplete-eoinput (point-max))))
+        (make-local-variable 'icomplete-eoinput)
+        (setq icomplete-eoinput 1))))
+;;;_   > icomplete-post-command-hook ()
+(defun icomplete-post-command-hook ()
+  "Exhibit completions, leaving icomplete-eoinput with position where user
+input leaves off and exhibit begins, so icomplete-pre-command-hook can
+subsequently cleanup."
+  (if (and (icomplete-window-minibuffer-p)      ; ... in a minibuffer.
+           (not icomplete-inhibit)      ; ... not specifically inhibited.
+           ;(sit-for 0)                 ; ... redisplay and if there's input
+                                        ; waiting, then don't icomplete
+                                        ; (stigs suggestion) (too jumpy!)
+           ;; Inhibit for file-name and other custom-func completions:
+           (not (symbolp minibuffer-completion-table))
+           )
+      (let ((buffer-undo-list buffer-undo-list ))       ; prevent entry
+        (icomplete-exhibit))))
+;;;_   > icomplete-window-setup-hook ()
+(defun icomplete-window-setup-hook ()
+  "Exhibit completions, leaving icomplete-eoinput with position where user
+input leaves off and exhibit begins, so icomplete-pre-command-hook can
+subsequently cleanup."
+  (if (and (icomplete-window-minibuffer-p)      ; ... in a minibuffer.
+           )
+      (message "ic ws doing")(sit-for 1)))
+;;;_   > icomplete-exhibit ()
+(defun icomplete-exhibit ()
+  "Exhibit completions, leaving icomplete-eoinput with position where user
+input leaves off and exhibit begins, so icomplete-pre-command-hook can
+subsequently cleanup."
+  (if (not (symbolp minibuffer-completion-table))
+      (let ((contents (buffer-substring (point-min)(point-max)))
+            (buffer-undo-list t))
+        (save-excursion
+          (goto-char (point-max))
+                                        ; Register the end of input, so we
+                                        ; know where the extra stuff
+                                        ; (match-status info) begins:
+          (if (not (boundp 'icomplete-eoinput))
+              ;; In case it got wiped out by major mode business:
+              (make-local-variable 'icomplete-eoinput))
+          (setq icomplete-eoinput (point))
+                                        ; Insert the match-status information:
+          (if (> (point-max) 1)
+              (insert-string
+                (icomplete-prompt contents
+                                  minibuffer-completion-table
+                                  minibuffer-completion-predicate
+                                  (not
+                                   minibuffer-completion-confirm))))))))
+
+;;;_  - Completion feedback producer
+;;;_   > icomplete-prompt (name candidates predicate require-match)
+(defun icomplete-prompt (name candidates predicate require-match)
+  "Identify prospective candidates for minibuffer completion.
+
+The display is updated with each minibuffer keystroke when icomplete
+is enabled \(by loading the 'icomplete' elisp package\) and doing
+minibuffer completion.
+
+Prospective completion suffixes (if any) are displayed, bracketed by
+one of \(), \[], or \{} pairs.  The choice of brackets is as follows:
+
+  \(...) - a single prospect is identified and matching is enforced,
+  \[...] - a single prospect is identified but matching is optional, or
+  \{...} - multiple prospects, separated by commas, are indicated, and
+          further input is required to distingish a single one.
+
+The displays for disambiguous matches have \" [Matched]\" appended
+\(whether complete or not), or \" \[No matches]\", if no eligible
+matches exist."
+
+  (let ((comps (all-completions name candidates predicate))
+                                        ; "-determined" - only one candidate
+        (open-bracket-determined (if require-match "(" "["))
+        (close-bracket-determined (if require-match ")" "]"))
+                                        ;"-prospects" - more than one candidate
+        (open-bracket-prospects "{")
+        (close-bracket-prospects "}")
+        )
+    (cond ((null comps) (format " %sNo matches%s"
+                                open-bracket-determined
+                                close-bracket-determined))
+          ((null (cdr comps))           ;one match
+           (concat (if (and (> (length (car comps))
+                               (length name)))
+                       (concat open-bracket-determined
+                               (substring (car comps) (length name))
+                               close-bracket-determined)
+                     "")
+                   " [Matched]"))
+          (t                            ;multiple matches
+           (let* ((most (try-completion name candidates predicate))
+                  (most-len (length most))
+                  most-is-exact
+                  (alternatives
+                   (apply
+                    'concat
+                    (cdr (apply 'append
+                                (mapcar '(lambda (com)
+                                           (if (= (length com) most-len)
+                                               ;; Most is one exact match,
+                                               ;; note that and leave out
+                                               ;; for later indication:
+                                               (progn
+                                                 (setq most-is-exact t)
+                                                 ())
+                                             (list ","
+                                                   (substring com
+                                                              most-len))))
+                                        comps))))))
+             (concat (and (> most-len (length name))
+                          (concat open-bracket-determined
+                                  (substring most (length name))
+                                  close-bracket-determined))
+                     open-bracket-prospects
+                     (if most-is-exact
+                         (concat "," alternatives)
+                       alternatives)
+                     close-bracket-prospects))))))
+
+;;;_ + Initialization
+(icomplete-prime-session)
+
+;;;_* Local emacs vars.
+'(
+Local variables:
+eval: (save-excursion
+        (if (not (condition-case err (outline-mode t)
+                   (wrong-number-of-arguments nil)))
+            (progn
+              (message
+               "Allout outline-mode not loaded, not adjusting buffer exposure")
+              (sit-for 1))
+          (message "Adjusting '%s' visibility" (buffer-name))
+          (outline-lead-with-comment-string ";;;_")
+          (goto-char 0)
+          (outline-exposure -1 0)))
+End:)
+
+;;; icomplete.el ends here