   "Insert the given string."
   (save-excursion
     (shm-appropriate-adjustment-point)
-    (shm-adjust-dependents (point) 1))
+    (shm-adjust-dependents (point) (length string)))
   (insert string)
   (shm/init t))
 

       ;; When inside a list, indent to the list's position with an
       ;; auto-inserted comma.
       ((eq 'List (shm-node-cons parent))
        (insert ",")
        (shm-set-node-overlay parent-pair))
       (t
        (insert ",")
        (shm-set-node-overlay parent-pair))))))

(defun shm/single-quote ()

          (cond
           ((= (point) (shm-node-start current))
            (let ((point (point)))
              (shm-insert-string " " qop " ")
              (goto-char point)))
           ((= (point) (shm-node-end current))
            (shm-insert-string " " qop " "))
           (t (error "Please go to the start or end of the node to indicate direction."))))
         (t (error "Unable to figure out the operator.")))))
     (t (error "Not in an infix application.")))))
