diff options
Diffstat (limited to 'lisp/cedet/srecode/mode.el')
| -rw-r--r-- | lisp/cedet/srecode/mode.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/cedet/srecode/mode.el b/lisp/cedet/srecode/mode.el index 566ab5d366a..c92c45fa885 100644 --- a/lisp/cedet/srecode/mode.el +++ b/lisp/cedet/srecode/mode.el @@ -196,7 +196,7 @@ MENU-DEF is the menu to bind this into." ;;(srecode-load-tables-for-mode major-mode) (let* ((modetable (srecode-get-mode-table major-mode)) - (subtab (when modetable (oref modetable :tables))) + (subtab (when modetable (slot-value modetable 'tables))) (context nil) (active nil) (ltab nil) @@ -319,17 +319,17 @@ Template is chosen based on the mode of the starting buffer." (if (not temp) (error "No Template named %s" template-name)) ;; We need a template specific table, since tables chain. - (let ((tab (oref temp :table)) + (let ((tab (slot-value temp 'table)) (names nil) ) - (find-file (oref tab :file)) - (setq names (semantic-find-tags-by-name (oref temp :object-name) + (find-file (slot-value tab 'file)) + (setq names (semantic-find-tags-by-name (slot-value temp 'object-name) (current-buffer))) (cond ((= (length names) 1) (semantic-go-to-tag (car names)) (semantic-momentary-highlight-tag (car names))) ((> (length names) 1) - (let* ((ctxt (semantic-find-tags-by-name (oref temp :context) + (let* ((ctxt (semantic-find-tags-by-name (slot-value temp 'context) (current-buffer))) (cls (semantic-find-tags-by-class 'context ctxt)) ) |