Mercurial > hg > xemacs-beta
comparison lisp/ilisp/completer.el @ 4:b82b59fe008d r19-15b3
Import from CVS: tag r19-15b3
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:46:56 +0200 |
| parents | 376386a54a3c |
| children | ec9a17fef872 |
comparison
equal
deleted
inserted
replaced
| 3:30df88044ec6 | 4:b82b59fe008d |
|---|---|
| 68 ;;; by d *byte-recompile-directory if completer-any-delimiter is " " | 68 ;;; by d *byte-recompile-directory if completer-any-delimiter is " " |
| 69 ;;; ~/i.e *~/ilisp.el or ~/il-el.el or ~/ilisp.elc | 69 ;;; ~/i.e *~/ilisp.el or ~/il-el.el or ~/ilisp.elc |
| 70 ;;; /u/mi/ /usr/misc/ | 70 ;;; /u/mi/ /usr/misc/ |
| 71 ;;; | 71 ;;; |
| 72 | 72 |
| 73 | |
| 74 (require 'cl) | |
| 75 | |
| 73 ;;;%Globals | 76 ;;;%Globals |
| 74 ;;;%%Switches | 77 ;;;%%Switches |
| 75 (defvar completer-load-hook nil | 78 (defvar completer-load-hook nil |
| 76 "Hook called when minibuffer partial completion is loaded.") | 79 "Hook called when minibuffer partial completion is loaded.") |
| 77 | 80 |
| 121 (defvar completer-string nil "Last completer string.") | 124 (defvar completer-string nil "Last completer string.") |
| 122 (defvar completer-table nil "Last completer table.") | 125 (defvar completer-table nil "Last completer table.") |
| 123 (defvar completer-pred nil "Last completer pred.") | 126 (defvar completer-pred nil "Last completer pred.") |
| 124 (defvar completer-mode nil "Last completer mode.") | 127 (defvar completer-mode nil "Last completer mode.") |
| 125 (defvar completer-result nil "Last completer result.") | 128 (defvar completer-result nil "Last completer result.") |
| 129 | |
| 130 (eval-when (eval load compile) | |
| 131 (if (not (fboundp 'completion-display-completion-list-function)) | |
| 132 (setf completion-display-completion-list-function | |
| 133 'display-completion-list))) | |
| 134 | |
| 126 | 135 |
| 127 ;;;%Utilities | 136 ;;;%Utilities |
| 128 (defun completer-message (message &optional point) | 137 (defun completer-message (message &optional point) |
| 129 "Display MESSAGE at optional POINT for two seconds." | 138 "Display MESSAGE at optional POINT for two seconds." |
| 130 (setq point (or point (point-max)) | 139 (setq point (or point (point-max)) |
| 736 (setq completer-last-pattern nil) | 745 (setq completer-last-pattern nil) |
| 737 (exit-minibuffer)) | 746 (exit-minibuffer)) |
| 738 | 747 |
| 739 ;;; | 748 ;;; |
| 740 (defun completer-new-cmd (cmd) | 749 (defun completer-new-cmd (cmd) |
| 741 "Return t if we can't execute the old minibuffer version of CMD." | 750 "Return T if we can't execute the old minibuffer version of CMD." |
| 742 (if (or completer-disable | 751 (if (or completer-disable |
| 743 (let ((string (completer-minibuf-string))) | 752 (let ((string (completer-minibuf-string))) |
| 744 (or | 753 (or |
| 745 (not (string-match | 754 (not (string-match |
| 746 (concat "[" completer-words "/~]") | 755 (concat "[" completer-words "/~]") |