diff options
| -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)))) |