summaryrefslogtreecommitdiff
path: root/lisp/cedet/semantic
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/cedet/semantic')
-rw-r--r--lisp/cedet/semantic/ctxt.el1
-rw-r--r--lisp/cedet/semantic/decorate/mode.el7
-rw-r--r--lisp/cedet/semantic/idle.el2
3 files changed, 4 insertions, 6 deletions
diff --git a/lisp/cedet/semantic/ctxt.el b/lisp/cedet/semantic/ctxt.el
index 629bbdee561..b010a30da7f 100644
--- a/lisp/cedet/semantic/ctxt.el
+++ b/lisp/cedet/semantic/ctxt.el
@@ -397,7 +397,6 @@ work on C like languages."
t)
(error nil))
(looking-at fieldsep1)))
- (setq symlist (list ""))
(forward-sexp -1)
;; Skip array expressions.
(while (looking-at "\\s(") (forward-sexp -1))
diff --git a/lisp/cedet/semantic/decorate/mode.el b/lisp/cedet/semantic/decorate/mode.el
index a4aa535eb1a..ba06c73936b 100644
--- a/lisp/cedet/semantic/decorate/mode.el
+++ b/lisp/cedet/semantic/decorate/mode.el
@@ -374,7 +374,7 @@ IGNORE any input arguments."
"Define a new decoration style with NAME.
DOC is a documentation string describing the decoration style NAME.
It is appended to auto-generated doc strings.
-An Optional list of FLAGS can also be specified. Flags are:
+An optional list of FLAGS can also be specified. Flags are:
:enabled <value> - specify the default enabled value for NAME.
:load <value> - specify a feature (as a string) with the rest of
the definition for decoration mode NAME.
@@ -428,11 +428,10 @@ decoration API found in this library."
(when (stringp ,loadfile)
(unless (fboundp ',predicatedef)
(autoload ',predicatedef ',loadfile "Return non-nil to decorate TAG."
- nil 'function))
+ ))
(unless (fboundp ',highlighterdef)
- (autoload ',highlighterdef ',loadfile "Decorate TAG."
- nil 'function))
+ (autoload ',highlighterdef ',loadfile "Decorate TAG."))
))
))
diff --git a/lisp/cedet/semantic/idle.el b/lisp/cedet/semantic/idle.el
index 6c223c2b9f2..d024e5d8237 100644
--- a/lisp/cedet/semantic/idle.el
+++ b/lisp/cedet/semantic/idle.el
@@ -578,7 +578,7 @@ This routine creates the following functions and variables:"
(setup (intern (concat (symbol-name name) "-mode-setup")))
(func (intern (concat (symbol-name name) "-idle-function"))))
- `(eval-and-compile
+ `(progn
(define-minor-mode ,global
,(concat "Toggle " (symbol-name global) ".
With ARG, turn the minor mode on if ARG is positive, off otherwise.