Function: srecode-make-mode-table

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

Signature

(srecode-make-mode-table MODE)

Documentation

Get the SRecoder mode table for the major mode MODE.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/srecode/table.el.gz
(defun srecode-make-mode-table (mode)
  "Get the SRecoder mode table for the major mode MODE."
  (let ((old (eieio-instance-tracker-find
	      mode 'major-mode 'srecode-mode-table-list)))
    (if old
	old
      (let* ((ms (if (stringp mode) mode (symbol-name mode)))
	     (new (srecode-mode-table ms
				      :major-mode mode
				      :modetables nil
				      :tables nil)))
	;; Save this new mode table in that mode's variable.
	(eval `(setq-mode-local ,mode srecode-table ,new) t)

	new))))