aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDave Love2000-05-22 19:14:50 +0000
committerDave Love2000-05-22 19:14:50 +0000
commit5f34457e85849f67321e31f617e2ae76e952adc8 (patch)
tree1b7edb5b07bbeaa5b3645783c6da75ad13027d8f
parent643c911e6fadc7ebb110387a720bfb8a097e3f35 (diff)
downloademacs-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.el3
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.
102When Partial Completion mode is enabled, TAB (or M-TAB if `PC-meta-flag' is 103When 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))))