diff options
Diffstat (limited to 'lisp/cedet/semantic/lex.el')
| -rw-r--r-- | lisp/cedet/semantic/lex.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/cedet/semantic/lex.el b/lisp/cedet/semantic/lex.el index 2690122f067..8dbc9e7ae83 100644 --- a/lisp/cedet/semantic/lex.el +++ b/lisp/cedet/semantic/lex.el @@ -686,9 +686,9 @@ displayed in the minibuffer. Press SPC to move to the next lexical token." "Highlight the lexical TOKEN. TOKEN is a lexical token with a START And END position. Return the overlay." - (let ((o (semantic-make-overlay (semantic-lex-token-start token) - (semantic-lex-token-end token)))) - (semantic-overlay-put o 'face 'highlight) + (let ((o (make-overlay (semantic-lex-token-start token) + (semantic-lex-token-end token)))) + (overlay-put o 'face 'highlight) o)) ;;; Lexical analyzer creation @@ -752,11 +752,11 @@ a LOCAL option.") (progn (when token (setq o (semantic-lex-highlight-token token))) - (semantic-read-event + (read-event (format "%S :: Depth: %d :: SPC - continue" token semantic-lex-current-depth)) ) (when o - (semantic-overlay-delete o)))))) + (delete-overlay o)))))) (defmacro define-lex (name doc &rest analyzers) "Create a new lexical analyzer with NAME. |