Function: mode-local-print-bindings

mode-local-print-bindings is a byte-compiled function defined in mode-local.el.gz.

Signature

(mode-local-print-bindings TABLE)

Documentation

Print bindings in TABLE.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/mode-local.el.gz
(defun mode-local-print-bindings (table)
  "Print bindings in TABLE."
  (let (us ;; List of unspecified symbols
        mc ;; List of mode local constants
        mv ;; List of mode local variables
        ov ;; List of overloaded functions
        fo ;; List of final overloaded functions
        )
    ;; Order symbols by type
    (mapatoms
     (lambda (s) (push s (cond
                          ((get s 'mode-variable-flag)
                           (if (get s 'constant-flag) mc mv))
                          ((get s 'override-flag)
                           (if (get s 'constant-flag) fo ov))
                          (t us))))
     table)
    ;; Print symbols by type
    (when us
      (princ "\n  !! Unspecified symbols\n")
      (mapc #'mode-local-print-binding us))
    (when mc
      (princ "\n  ** Mode local constants\n")
      (mapc #'mode-local-print-binding mc))
    (when mv
      (princ "\n  ** Mode local variables\n")
      (mapc #'mode-local-print-binding mv))
    (when fo
      (princ "\n  ** Final overloaded functions\n")
      (mapc #'mode-local-print-binding fo))
    (when ov
      (princ "\n  ** Overloaded functions\n")
      (mapc #'mode-local-print-binding ov))
    ))