Move markup to glib, use G-STRING.

[cl-gtk2.git] / glib / glib.markup.lisp

diff --git a/glib/glib.markup.lisp b/glib/glib.markup.lisp
new file mode 100644 (file)
index 0000000..c7c1df9
--- /dev/null
+++ b/glib/glib.markup.lisp
@@ -0,0 +1,10 @@
+(in-package :glib)
+
+(defcfun g-markup-escape-text g-string
+  (text :string)
+  (length :int))
+
+(defun markup-escape-text (string)
+  (g-markup-escape-text string (length string)))
+
+(export 'markup-escape-text)