diff options
| author | Glenn Morris | 2013-06-19 16:29:09 -0400 |
|---|---|---|
| committer | Glenn Morris | 2013-06-19 16:29:09 -0400 |
| commit | c5803bd730ef156328d78b7385bb1671c2927168 (patch) | |
| tree | a062a110bf0326af34c252c4109d1ba099ff6637 | |
| parent | 3db52056f15cab9be1302b05b052664791a3f171 (diff) | |
| download | emacs-c5803bd730ef156328d78b7385bb1671c2927168.tar.gz emacs-c5803bd730ef156328d78b7385bb1671c2927168.zip | |
* lisp/cedet/semantic/idle.el (define-semantic-idle-service):
No need to use eval-and-compile, progn will do.
(eval-and-compile ends up causing spurious warnings.)
| -rw-r--r-- | lisp/cedet/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/cedet/semantic/idle.el | 2 |
2 files changed, 5 insertions, 2 deletions
diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog index dca0aa9cb9f..30d516f778f 100644 --- a/lisp/cedet/ChangeLog +++ b/lisp/cedet/ChangeLog | |||
| @@ -1,4 +1,7 @@ | |||
| 1 | 2013-06-19 Glenn Morris <rgm@gnu.org> | 1 | 2013-06-19 Glenn Morris <rgm@fencepost.gnu.org> |
| 2 | |||
| 3 | * semantic/idle.el (define-semantic-idle-service): | ||
| 4 | No need to use eval-and-compile, progn will do. | ||
| 2 | 5 | ||
| 3 | * semantic/decorate/mode.el (define-semantic-decoration-style): | 6 | * semantic/decorate/mode.el (define-semantic-decoration-style): |
| 4 | Doc fix. | 7 | Doc fix. |
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:" | |||
| 578 | (setup (intern (concat (symbol-name name) "-mode-setup"))) | 578 | (setup (intern (concat (symbol-name name) "-mode-setup"))) |
| 579 | (func (intern (concat (symbol-name name) "-idle-function")))) | 579 | (func (intern (concat (symbol-name name) "-idle-function")))) |
| 580 | 580 | ||
| 581 | `(eval-and-compile | 581 | `(progn |
| 582 | (define-minor-mode ,global | 582 | (define-minor-mode ,global |
| 583 | ,(concat "Toggle " (symbol-name global) ". | 583 | ,(concat "Toggle " (symbol-name global) ". |
| 584 | With ARG, turn the minor mode on if ARG is positive, off otherwise. | 584 | With ARG, turn the minor mode on if ARG is positive, off otherwise. |