File otp_src_19.3.4-lib-kernel-group-history.patch of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File otp_src_19.3.4-lib-kernel-group-history.patch of Package erlang

diff -Ndurp otp_src_19.3.4/lib/kernel/src/group.erl otp_src_19.3.4-lib-kernel-group-history/lib/kernel/src/group.erl
--- otp_src_19.3.4/lib/kernel/src/group.erl	2017-05-11 18:41:34.000000000 +0300
+++ otp_src_19.3.4-lib-kernel-group-history/lib/kernel/src/group.erl	2017-06-01 01:44:33.808478460 +0300
@@ -33,7 +33,14 @@ start(Drv, Shell, Options) ->
 server(Drv, Shell, Options) ->
     process_flag(trap_exit, true),
     edlin:init(),
-    put(line_buffer, proplists:get_value(line_buffer, Options, [])),
+    put(line_buffer, case lists:keyfind(line_buffer, 1, Options) of
+                         {_, V} -> V;
+                         _ -> try
+                                  apply(group_history, load, [])
+                              catch
+                                  _:_ -> []
+                              end
+                     end),
     put(read_mode, list),
     put(user_drv, Drv),
     put(expand_fun,
@@ -783,6 +790,7 @@ save_line_buffer("\n", Lines) ->
 save_line_buffer(Line, [Line|_Lines]=Lines) ->
     save_line_buffer(Lines);
 save_line_buffer(Line, Lines) ->
+    catch apply(group_history, add, [Line]),
     save_line_buffer([Line|Lines]).
 
 save_line_buffer(Lines) ->

Places

File otp_src_19.3.4-lib-kernel-group-history.patch of Package erlang

Places