]> code.delx.au - gnu-emacs-elpa/commitdiff
Don't change lighter to back-end name, if it isn't a symbol.
authorNikolaj Schumacher <git@nschum.de>
Wed, 6 May 2009 10:31:42 +0000 (12:31 +0200)
committerNikolaj Schumacher <git@nschum.de>
Wed, 6 May 2009 10:31:42 +0000 (12:31 +0200)
company.el

index edd4797a81bf0bc43af3209a3426643b040ec69b..c8097e991d140afaee2e213f611b1e4ab7612ce9 100644 (file)
@@ -966,8 +966,9 @@ keymap during active completions (`company-active-map'):
                 c (company-calculate-candidates prefix))
           ;; t means complete/unique.  We don't start, so no hooks.
           (when (consp c)
-            (setq company-prefix prefix
-                  company-lighter (concat " " (symbol-name backend)))
+            (setq company-prefix prefix)
+            (when (symbolp backend)
+              (setq company-lighter (concat " " (symbol-name backend))))
             (company-update-candidates c)
             (run-hook-with-args 'company-completion-started-hook
                                 (company-explicit-action-p))