emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master 6165cb2 083/173: Don't "adjust key" (#422)


From: Dmitry Gutov
Subject: [elpa] master 6165cb2 083/173: Don't "adjust key" (#422)
Date: Thu, 23 Jun 2016 00:28:40 +0000 (UTC)

branch: master
commit 6165cb2d7bfd1ad704436704f2e44a62e9ea3cba
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>

    Don't "adjust key" (#422)
---
 company-yasnippet.el |   13 +------------
 1 file changed, 1 insertion(+), 12 deletions(-)

diff --git a/company-yasnippet.el b/company-yasnippet.el
index 37970b0..8dac5e9 100644
--- a/company-yasnippet.el
+++ b/company-yasnippet.el
@@ -84,7 +84,7 @@
               (maphash
                (lambda (name template)
                  (push
-                  (propertize (company-yasnippet--adjust-key key prefix 
key-prefix)
+                  (propertize key
                               'yas-annotation name
                               'yas-template template
                               'yas-prefix-offset (- (length key-prefix)
@@ -95,17 +95,6 @@
        res))
    tables))
 
-(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))))))
-
 ;;;###autoload
 (defun company-yasnippet (command &optional arg &rest ignore)
   "`company-mode' backend for `yasnippet'.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]