diff options
| author | Alan Mackenzie | 2017-02-18 16:01:15 +0000 |
|---|---|---|
| committer | Alan Mackenzie | 2017-02-18 16:01:15 +0000 |
| commit | 861ff2ba2cfc19065b13bf9b9670b44e1496c64e (patch) | |
| tree | 77d1c2572d929d0f2d0ae0f7de9da559a65dd739 | |
| parent | 7d15daf713f7fe2d067a10812cdfcb32963f596e (diff) | |
| download | emacs-861ff2ba2cfc19065b13bf9b9670b44e1496c64e.tar.gz emacs-861ff2ba2cfc19065b13bf9b9670b44e1496c64e.zip | |
Fix edebug-spec on c-lang-defvar.
This allows c-lang-defvars with the symbol 'dont-doc in the place of the
optional documentation to be instrumented for edebug.
lisp/progmodes/cc-langs.el (top-level): Amend the edebug-spec for
c-lang-defvar.
(c-opt-identifier-concat-key, c-decl-prefix-or-start-re): remove redundant
'dont-doc.
| -rw-r--r-- | lisp/progmodes/cc-langs.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/progmodes/cc-langs.el b/lisp/progmodes/cc-langs.el index 037404696d6..3b455fc0908 100644 --- a/lisp/progmodes/cc-langs.el +++ b/lisp/progmodes/cc-langs.el | |||
| @@ -204,7 +204,7 @@ the evaluated constant value at compile time." | |||
| 204 | ; (eval-after-load "edebug" ; 2006-07-09: def-edebug-spec is now in subr.el. | 204 | ; (eval-after-load "edebug" ; 2006-07-09: def-edebug-spec is now in subr.el. |
| 205 | ; ' | 205 | ; ' |
| 206 | (def-edebug-spec c-lang-defvar | 206 | (def-edebug-spec c-lang-defvar |
| 207 | (&define name def-form &optional stringp)) ;) | 207 | (&define name def-form &optional &or ("quote" symbolp) stringp)) |
| 208 | 208 | ||
| 209 | ;; Suppress "might not be defined at runtime" warning. | 209 | ;; Suppress "might not be defined at runtime" warning. |
| 210 | ;; This file is only used when compiling other cc files. | 210 | ;; This file is only used when compiling other cc files. |
| @@ -712,8 +712,7 @@ This value is by default merged into `c-operators'." | |||
| 712 | (when ops | 712 | (when ops |
| 713 | (c-make-keywords-re 'appendable ops)))) | 713 | (c-make-keywords-re 'appendable ops)))) |
| 714 | (c-lang-defvar c-opt-identifier-concat-key | 714 | (c-lang-defvar c-opt-identifier-concat-key |
| 715 | (c-lang-const c-opt-identifier-concat-key) | 715 | (c-lang-const c-opt-identifier-concat-key)) |
| 716 | 'dont-doc) | ||
| 717 | 716 | ||
| 718 | (c-lang-defconst c-opt-identifier-concat-key-depth | 717 | (c-lang-defconst c-opt-identifier-concat-key-depth |
| 719 | ;; Number of regexp grouping parens in `c-opt-identifier-concat-key'. | 718 | ;; Number of regexp grouping parens in `c-opt-identifier-concat-key'. |
| @@ -2975,8 +2974,7 @@ constructs." | |||
| 2975 | (c-make-keywords-re t (c-lang-const c-decl-start-kwds))) | 2974 | (c-make-keywords-re t (c-lang-const c-decl-start-kwds))) |
| 2976 | (c-lang-const c-decl-prefix-re))) | 2975 | (c-lang-const c-decl-prefix-re))) |
| 2977 | (c-lang-defvar c-decl-prefix-or-start-re | 2976 | (c-lang-defvar c-decl-prefix-or-start-re |
| 2978 | (c-lang-const c-decl-prefix-or-start-re) | 2977 | (c-lang-const c-decl-prefix-or-start-re)) |
| 2979 | 'dont-doc) | ||
| 2980 | 2978 | ||
| 2981 | (c-lang-defconst c-cast-parens | 2979 | (c-lang-defconst c-cast-parens |
| 2982 | ;; List containing the paren characters that can open a cast, or nil in | 2980 | ;; List containing the paren characters that can open a cast, or nil in |