Function: srecode-get-mode-table

srecode-get-mode-table is a byte-compiled function defined in table.el.gz.

Signature

(srecode-get-mode-table MODE)

Documentation

Get the SRecoder mode table for the major mode MODE.

This will find the mode table specific to MODE, and then calculate all inherited templates from parent modes.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/srecode/table.el.gz
(defun srecode-get-mode-table (mode)
  "Get the SRecoder mode table for the major mode MODE.
This will find the mode table specific to MODE, and then
calculate all inherited templates from parent modes."
  (let ((table nil))
    (dolist (mode (derived-mode-all-parents mode))
      (let ((tmptable (eieio-instance-tracker-find
		       mode 'major-mode 'srecode-mode-table-list)))
	(when tmptable
	  (if (not table)
	      (progn
                ;; If this is the first, update tables to have
                ;; all the mode specific tables in it.
                (setq table tmptable)
                (oset table tables (oref table modetables)))
	    ;; If there already is a table, then reset the tables
	    ;; slot to include all the tables belonging to this new child node.
	    (oset table tables (append (oref table modetables)
				       (oref tmptable modetables)))))
	))
    table))