Only show first line of long values in object inspector

jscheid · Sep 24, 2012 · b460122 · b460122
1 parent df1deab
commit b460122
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/kite-object.el b/kite-object.el
@@ -249,7 +249,9 @@ given PROPERTIES vector."
 (defun kite--object-create-property-widget (parent-widget property)
   (let* ((value-type (plist-get (plist-get property :value) :type))
          (value-subtype (plist-get (plist-get property :value) :subtype))
-         (value (kite--format-object (plist-get property :value)))
+         (value (car (split-string
+                      (kite--format-object (plist-get property :value))
+                      "\n")))
          (name-face (if (eq (plist-get property :enumerable) t)
                         'kite-property-name
                       'kite-proto-property-name))