diff options
| author | Dave Love | 2000-05-22 19:14:50 +0000 |
|---|---|---|
| committer | Dave Love | 2000-05-22 19:14:50 +0000 |
| commit | 5f34457e85849f67321e31f617e2ae76e952adc8 (patch) | |
| tree | 1b7edb5b07bbeaa5b3645783c6da75ad13027d8f | |
| parent | 643c911e6fadc7ebb110387a720bfb8a097e3f35 (diff) | |
| download | emacs-5f34457e85849f67321e31f617e2ae76e952adc8.tar.gz emacs-5f34457e85849f67321e31f617e2ae76e952adc8.zip | |
(PC-look-for-include-file): Use :alnum: character class.
(partial-completion-mode): Add autoload cookie.
| -rw-r--r-- | lisp/complete.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/complete.el b/lisp/complete.el index 5b77c72ff01..1bf418ed547 100644 --- a/lisp/complete.el +++ b/lisp/complete.el | |||
| @@ -97,6 +97,7 @@ | |||
| 97 | :group 'minibuffer | 97 | :group 'minibuffer |
| 98 | :group 'convenience) | 98 | :group 'convenience) |
| 99 | 99 | ||
| 100 | ;;;###autoload | ||
| 100 | (defcustom partial-completion-mode nil | 101 | (defcustom partial-completion-mode nil |
| 101 | "Toggle Partial Completion mode. | 102 | "Toggle Partial Completion mode. |
| 102 | When Partial Completion mode is enabled, TAB (or M-TAB if `PC-meta-flag' is | 103 | When Partial Completion mode is enabled, TAB (or M-TAB if `PC-meta-flag' is |
| @@ -829,7 +830,7 @@ or properties are considered." | |||
| 829 | (or (string-match "\\.el$" name) | 830 | (or (string-match "\\.el$" name) |
| 830 | (setq name (concat name ".el"))))) | 831 | (setq name (concat name ".el"))))) |
| 831 | (error "Not on an #include line")))))) | 832 | (error "Not on an #include line")))))) |
| 832 | (or (string-match "\\.[a-zA-Z0-9]+$" name) | 833 | (or (string-match "\\.[[:alnum:]]+$" name) |
| 833 | (setq name (concat name ".h"))) | 834 | (setq name (concat name ".h"))) |
| 834 | (if (eq punc ?\<) | 835 | (if (eq punc ?\<) |
| 835 | (let ((path (or path (PC-include-file-path)))) | 836 | (let ((path (or path (PC-include-file-path)))) |