diff options
| author | Richard M. Stallman | 1997-04-13 07:51:54 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-04-13 07:51:54 +0000 |
| commit | 00ed33e7ab1f430e43aeff27c3aa767590b2207e (patch) | |
| tree | c0cb9b1be105cea21a951f8a31a5a654feeb62c8 /lisp/progmodes | |
| parent | d61140e89d8800ae17aef48fe5d97941ad005a87 (diff) | |
| download | emacs-00ed33e7ab1f430e43aeff27c3aa767590b2207e.tar.gz emacs-00ed33e7ab1f430e43aeff27c3aa767590b2207e.zip | |
Add defgroup; use defcustom for user vars.
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/cmacexp.el | 33 |
1 files changed, 23 insertions, 10 deletions
diff --git a/lisp/progmodes/cmacexp.el b/lisp/progmodes/cmacexp.el index f030ade3f67..6a7b2b4e26e 100644 --- a/lisp/progmodes/cmacexp.el +++ b/lisp/progmodes/cmacexp.el | |||
| @@ -3,7 +3,7 @@ | |||
| 3 | ;; Copyright (C) 1992, 1994, 1996 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1992, 1994, 1996 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Francesco Potorti` <pot@cnuce.cnr.it> | 5 | ;; Author: Francesco Potorti` <pot@cnuce.cnr.it> |
| 6 | ;; Version: $Id: cmacexp.el,v 1.25 1996/05/21 15:42:13 kwzh Exp rms $ | 6 | ;; Version: $Id: cmacexp.el,v 1.26 1996/06/07 22:59:27 rms Exp rms $ |
| 7 | ;; Adapted-By: ESR | 7 | ;; Adapted-By: ESR |
| 8 | ;; Keywords: c | 8 | ;; Keywords: c |
| 9 | 9 | ||
| @@ -90,13 +90,22 @@ | |||
| 90 | 90 | ||
| 91 | (provide 'cmacexp) | 91 | (provide 'cmacexp) |
| 92 | 92 | ||
| 93 | (defvar c-macro-shrink-window-flag nil | 93 | (defgroup c-macro nil |
| 94 | "*Non-nil means shrink the *Macroexpansion* window to fit its contents.") | 94 | "Expand C macros in a region." |
| 95 | :group 'c) | ||
| 95 | 96 | ||
| 96 | (defvar c-macro-prompt-flag nil | ||
| 97 | "*Non-nil makes `c-macro-expand' prompt for preprocessor arguments.") | ||
| 98 | 97 | ||
| 99 | (defvar c-macro-preprocessor | 98 | (defcustom c-macro-shrink-window-flag nil |
| 99 | "*Non-nil means shrink the *Macroexpansion* window to fit its contents." | ||
| 100 | :type 'boolean | ||
| 101 | :group 'c-macro) | ||
| 102 | |||
| 103 | (defcustom c-macro-prompt-flag nil | ||
| 104 | "*Non-nil makes `c-macro-expand' prompt for preprocessor arguments." | ||
| 105 | :type 'boolean | ||
| 106 | :group 'c-macro) | ||
| 107 | |||
| 108 | (defcustom c-macro-preprocessor | ||
| 100 | ;; Cannot rely on standard directory on MS-DOS to find CPP. | 109 | ;; Cannot rely on standard directory on MS-DOS to find CPP. |
| 101 | (cond ((eq system-type 'ms-dos) "cpp -C") | 110 | (cond ((eq system-type 'ms-dos) "cpp -C") |
| 102 | ;; Solaris has it in an unusual place. | 111 | ;; Solaris has it in an unusual place. |
| @@ -108,10 +117,14 @@ | |||
| 108 | "The preprocessor used by the cmacexp package. | 117 | "The preprocessor used by the cmacexp package. |
| 109 | 118 | ||
| 110 | If you change this, be sure to preserve the `-C' (don't strip comments) | 119 | If you change this, be sure to preserve the `-C' (don't strip comments) |
| 111 | option, or to set an equivalent one.") | 120 | option, or to set an equivalent one." |
| 112 | 121 | :type 'string | |
| 113 | (defvar c-macro-cppflags "" | 122 | :group 'c-macro) |
| 114 | "*Preprocessor flags used by `c-macro-expand'.") | 123 | |
| 124 | (defcustom c-macro-cppflags "" | ||
| 125 | "*Preprocessor flags used by `c-macro-expand'." | ||
| 126 | :type 'string | ||
| 127 | :group 'c-macro) | ||
| 115 | 128 | ||
| 116 | (defconst c-macro-buffer-name "*Macroexpansion*") | 129 | (defconst c-macro-buffer-name "*Macroexpansion*") |
| 117 | 130 | ||