aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/cedet/semantic/debug.el
diff options
context:
space:
mode:
authorLars Ingebrigtsen2019-06-13 18:01:42 +0200
committerLars Ingebrigtsen2019-06-14 14:24:18 +0200
commit7b837cd707753919dea0c14207c11643f7a88e87 (patch)
tree63146c38abe7b66778ebd40e8a05a4f1a7cc1152 /lisp/cedet/semantic/debug.el
parent07df91d45a950d7bef323b57dc7e46b34997143f (diff)
downloademacs-7b837cd707753919dea0c14207c11643f7a88e87.tar.gz
emacs-7b837cd707753919dea0c14207c11643f7a88e87.zip
Use CLOS-style accessors in oref/oset
* lisp/cedet/srecode/texi.el (srecode-semantic-handle-:texitag): * lisp/cedet/srecode/table.el (srecode-mode-table-new): (srecode-dump): * lisp/cedet/srecode/srt-mode.el (srecode-parse-this-macro): (semantic-analyze-possible-completions): * lisp/cedet/srecode/semantic.el (srecode-compound-toString): (srecode-semantic-apply-tag-to-dict-default): * lisp/cedet/srecode/mode.el (srecode-minor-mode-templates-menu): (srecode-edit): * lisp/cedet/srecode/insert.el (srecode-insert-method): (srecode-inserter-apply-state): (srecode-insert-ask-default): (srecode-insert-method-ask): (srecode-insert-method-field): (srecode-insert-method-helper): (srecode-parse-input): (srecode-match-end): (srecode-insert-include-lookup): (srecode-insert-method): * lisp/cedet/srecode/find.el (srecode-template-table-in-project-p): (srecode-template-get-table): (srecode-template-get-table-for-binding): (srecode-all-template-hash): * lisp/cedet/srecode/extract.el (srecode-inserter-extract): (srecode-inserter-extract): * lisp/cedet/srecode/el.el (srecode-semantic-apply-tag-to-dict): * lisp/cedet/srecode/dictionary.el (initialize-instance): (srecode-dictionary-add-template-table): (srecode-compound-toString): * lisp/cedet/srecode/cpp.el (srecode-semantic-apply-tag-to-dict): * lisp/cedet/srecode/compile.el (srecode-compile-template-table): (srecode-dump): * lisp/cedet/srecode/args.el (srecode-semantic-handle-:project): * lisp/cedet/semantic/texi.el (semantic-analyze-possible-completions): * lisp/cedet/semantic/symref/list.el (semantic-symref-results-dump): (semantic-symref-list-create-macro-on-open-hit): (semantic-symref-list-rename-open-hits): (semantic-symref-list-map-open-hits): * lisp/cedet/semantic/symref/idutils.el (semantic-symref-perform-search): (semantic-symref-parse-tool-output-one-line): * lisp/cedet/semantic/symref/global.el (semantic-symref-perform-search): (semantic-symref-parse-tool-output-one-line): * lisp/cedet/semantic/symref/cscope.el (semantic-symref-perform-search): (semantic-symref-parse-tool-output-one-line): * lisp/cedet/semantic/mru-bookmark.el (semantic-mrub-ring-to-assoc-list): * lisp/cedet/semantic/grammar.el (semantic-analyze-possible-completions): * lisp/cedet/semantic/decorate/include.el (semantic-decoration-include-describe): * lisp/cedet/semantic/debug.el (semantic-debug-highlight-lexical-token): (semantic-debug-highlight-rule): * lisp/cedet/semantic/db-typecache.el (semanticdb-typecache-for-database): * lisp/cedet/semantic/complete.el (semantic-collector-calculate-completions-raw): * lisp/cedet/semantic/bovine/make.el (semantic-analyze-possible-completions): * lisp/cedet/semantic/analyze/refs.el (semantic-analyze-refs-impl): (semantic-analyze-refs-proto): * lisp/cedet/semantic/analyze/debug.el (semantic-analyzer-debug-describe-scope): * lisp/cedet/semantic/analyze.el (semantic-analyze-interesting-tag): (semantic-analyze-interesting-tag): (semantic-analyze-pulse): * lisp/cedet/ede/util.el (ede-update-version): * lisp/cedet/ede/shell.el (ede-shell-run-something): * lisp/cedet/ede/project-am.el (project-am-load-makefile): (project-rescan): (project-am-macro): (ede-buffer-mine): (project-compile-target-command): (project-am-package-info): * lisp/cedet/ede/files.el (ede--project-inode): (ede-directory-get-open-project): (ede-directory-get-toplevel-open-project): (ede-find-subproject-for-directory): (ede-toplevel-project): * lisp/cedet/ede/cpp-root.el (initialize-instance): (project-compile-project): (project-compile-target): * lisp/cedet/ede/config.el (ede-config-get-configuration): (project-debug-target): (project-run-target): (project-compile-project): (ede-preprocessor-map): (ede-java-classpath): * lisp/cedet/ede/base.el (ede-normalize-file/directory): Use CLOS-style oref/oset accessors instead of eieio-style :colon accessors. This avoids compilation warnings and is allegedly faster.
Diffstat (limited to 'lisp/cedet/semantic/debug.el')
-rw-r--r--lisp/cedet/semantic/debug.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/cedet/semantic/debug.el b/lisp/cedet/semantic/debug.el
index e5c04d1b8d7..b5bb00d8cda 100644
--- a/lisp/cedet/semantic/debug.el
+++ b/lisp/cedet/semantic/debug.el
@@ -170,7 +170,7 @@ These buffers are brought into view when layout occurs.")
170(cl-defmethod semantic-debug-highlight-lexical-token ((iface semantic-debug-interface) token) 170(cl-defmethod semantic-debug-highlight-lexical-token ((iface semantic-debug-interface) token)
171 "For IFACE, highlight TOKEN in the source buffer . 171 "For IFACE, highlight TOKEN in the source buffer .
172TOKEN is a lexical token." 172TOKEN is a lexical token."
173 (set-buffer (oref iface :source-buffer)) 173 (set-buffer (oref iface source-buffer))
174 174
175 (object-add-to-list iface 'overlays 175 (object-add-to-list iface 'overlays
176 (semantic-lex-highlight-token token)) 176 (semantic-lex-highlight-token token))
@@ -183,7 +183,7 @@ TOKEN is a lexical token."
183NONTERM is the name of the rule currently being processed that shows up 183NONTERM is the name of the rule currently being processed that shows up
184as a nonterminal (or tag) in the source buffer. 184as a nonterminal (or tag) in the source buffer.
185If RULE and MATCH indices are specified, highlight those also." 185If RULE and MATCH indices are specified, highlight those also."
186 (set-buffer (oref iface :parser-buffer)) 186 (set-buffer (oref iface parser-buffer))
187 187
188 (let* ((rules (semantic-find-tags-by-class 'nonterminal (current-buffer))) 188 (let* ((rules (semantic-find-tags-by-class 'nonterminal (current-buffer)))
189 (nt (semantic-find-first-tag-by-name nonterm rules)) 189 (nt (semantic-find-first-tag-by-name nonterm rules))