-(defun company-yasnippet--adjust-key (key prefix key-prefix)
- (let ((pl (length prefix))
- (kpl (length key-prefix)))
- (cond
- ((= pl kpl)
- key)
- ((> pl kpl)
- (concat (substring prefix 0 (- pl kpl)) key))
- (t
- (substring key (- kpl pl))))))
-