From 8ceb54fbc2f879e0e80f58c18761bd54db07e5f7 Mon Sep 17 00:00:00 2001
From: Tanaka Akira <akr@users.sourceforge.net>
Date: Thu, 15 Apr 1999 18:25:40 +0000
Subject: zsh-3.1.5-pws-15

---
 Src/Zle/zle_params.c | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'Src/Zle/zle_params.c')

diff --git a/Src/Zle/zle_params.c b/Src/Zle/zle_params.c
index adde116f2..d9fefe659 100644
--- a/Src/Zle/zle_params.c
+++ b/Src/Zle/zle_params.c
@@ -61,6 +61,8 @@ static struct zleparam {
 	zleunsetfn, NULL },
     { "RBUFFER", PM_SCALAR,  FN(set_rbuffer), FN(get_rbuffer),
 	zleunsetfn, NULL },
+    { "PREBUFFER",  PM_SCALAR | PM_READONLY,  NULL,  FN(get_prebuffer),
+	zleunsetfn, NULL },
     { "WIDGET", PM_SCALAR | PM_READONLY, NULL, FN(get_widget),
         zleunsetfn, NULL },
     { "LASTWIDGET", PM_SCALAR | PM_READONLY, NULL, FN(get_lwidget),
@@ -210,6 +212,16 @@ get_rbuffer(Param pm)
     return metafy((char *)line + cs, ll - cs, META_HEAPDUP);
 }
 
+/**/
+static char *
+get_prebuffer(Param pm)
+{
+    if (chline)
+	return dupstrpfx(chline, hptr - chline);
+    else
+	return dupstring("");
+}
+
 /**/
 static char *
 get_widget(Param pm)
-- 
cgit 1.4.1