X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=glib%2Fglib.markup.lisp;fp=glib%2Fglib.markup.lisp;h=c7c1df934d0edc9ebe64d0632b95eb707e672062;hb=6950e782a8e1d7aea44e29cc25ba070d913642b0;hp=0000000000000000000000000000000000000000;hpb=8ee73448cf7fb0ee832219593e6ffa1eb53e4e45;p=cl-gtk2.git

diff --git a/glib/glib.markup.lisp b/glib/glib.markup.lisp
new file mode 100644
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)