procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Quieten semantic normal usage

Browse source 
* lisp/cedet/semantic/lex.el (semantic-flex): Mark obsolete at
compile time in the normal way, not at run-time.  (Bug#30035)
This commit is contained in:
Glenn Morris 2018-01-09 13:54:11 -05:00
parent e25f961e37
commit 34b41e3bc6
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/cedet/semantic/lex.el
View file

@ -471,6 +471,7 @@ PROPERTY set."
;;; Lexical Analyzer framework settings ;;; Lexical Analyzer framework settings
;; ;;
;; FIXME change to non-obsolete default.
(defvar semantic-lex-analyzer 'semantic-flex (defvar semantic-lex-analyzer 'semantic-flex
"The lexical analyzer used for a given buffer. "The lexical analyzer used for a given buffer.
See `semantic-lex' for documentation. See `semantic-lex' for documentation.
@ -1857,7 +1858,7 @@ end of the return token will be larger than END. To truly restrict
scanning, use `narrow-to-region'. scanning, use `narrow-to-region'.
The last argument, LENGTH specifies that `semantic-flex' should only The last argument, LENGTH specifies that `semantic-flex' should only
return LENGTH tokens." return LENGTH tokens."
(message "`semantic-flex' is an obsolete function. Use `define-lex' to create lexers.") (declare (obsolete define-lex "23.2"))
(if (not semantic-flex-keywords-obarray) (if (not semantic-flex-keywords-obarray)
(setq semantic-flex-keywords-obarray [ nil ])) (setq semantic-flex-keywords-obarray [ nil ]))
(let ((ts nil) (let ((ts nil)