   (when force-renew
     (setq shm-current-node-overlay nil))
   (shm-set-node-overlay))
-
-
-
-
-
-
-
 
 (defun shm-auto-insert-stmt (type)
   "Insert template


;; Requirements






(defun shm-present-type-info (node info)
  "Present type info to the user."
  (let ((info. (concat (shm-kill-node 'buffer-substring-no-properties node nil t)


;; Requirements


;; Globals


