diff options
author | Richard M. Stallman <rms@gnu.org> | 2006-09-18 17:19:16 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 2006-09-18 17:19:16 +0000 |
commit | e5e0a7db2646824a6231feb06d2a690757a391ad (patch) | |
tree | 2347c65bb7737f1c2f1e2ac7eadd4d8682616d92 /lisp/textmodes/conf-mode.el | |
parent | d7131bd33f73392e8b82952170353152b33f278b (diff) | |
download | emacs-e5e0a7db2646824a6231feb06d2a690757a391ad.tar.gz |
(conf-space-mode): Doc fix.
Delete duplicate make-local-variable form.
(conf-space-keywords): Add autoload cookie.
Fix typo (`keywords', not `keyword').
Diffstat (limited to 'lisp/textmodes/conf-mode.el')
-rw-r--r-- | lisp/textmodes/conf-mode.el | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/lisp/textmodes/conf-mode.el b/lisp/textmodes/conf-mode.el index 98a81831dd4..f7a725242ed 100644 --- a/lisp/textmodes/conf-mode.el +++ b/lisp/textmodes/conf-mode.el @@ -446,10 +446,11 @@ x.2.y.1.z.2.zz =" (define-derived-mode conf-space-mode conf-unix-mode "Conf[Space]" "Conf Mode starter for space separated conf files. \"Assignments\" are with ` '. Keywords before the parameters are -recognized according to the variable `conf-space-keywords'. Interactively -with a prefix ARG of `0' no keywords will be recognized. With -any other prefix arg you will be prompted for a regexp to match -the keywords. +recognized according to the variable `conf-space-keywords-alist'. +Alternatively, you can specify a value for the file local variable +`conf-space-keywords'. +Use the function `conf-space-keywords' if you want to specify keywords +in an interactive fashion instead. For details see `conf-mode'. Example: @@ -469,9 +470,9 @@ add /dev/mixer desktop" (setq conf-assignment-sign nil) (make-local-variable 'conf-space-keywords) (cond (buffer-file-name - ;; By setting conf-space-keywords directly, - ;; we let a value in the local variables list take precedence. - (make-local-variable 'conf-space-keywords) + ;; We set conf-space-keywords directly, but a value which is + ;; in the local variables list or interactively specified + ;; (see the function conf-space-keywords) takes precedence. (setq conf-space-keywords (assoc-default buffer-file-name conf-space-keywords-alist 'string-match)))) @@ -480,13 +481,14 @@ add /dev/mixer desktop" ;; recompute other things from that afterward. (add-hook 'hack-local-variables-hook 'conf-space-mode-internal nil t)) +;;;###autoload (defun conf-space-keywords (keywords) "Enter Conf Space mode using regexp KEYWORDS to match the keywords. See `conf-space-mode'." (interactive "sConf Space keyword regexp: ") (delay-mode-hooks (conf-space-mode)) - (if (string-equal keyword "") + (if (string-equal keywords "") (setq keywords nil)) (setq conf-space-keywords keywords) (conf-space-mode-internal) @@ -517,7 +519,7 @@ See `conf-space-mode'." (concat "^[ \t]*\\(?:" conf-space-keywords "\\)[ \t]+\\([^ \t\n]+\\)\\(?:[ \t]\\|$\\)") "^[ \t]*\\([^ \t\n[]+\\)\\(?:[ \t]\\|$\\)") - 1) + 1) imenu-generic-expression))) ;;;###autoload |