|
 |
905788b |
From 6fac61a3471e4b29e1a052bdc8783c97105371c5 Mon Sep 17 00:00:00 2001
|
|
|
905788b |
From: Peter Lemenkov <lemenkov@gmail.com>
|
|
|
905788b |
Date: Fri, 11 May 2012 16:56:22 +0400
|
|
|
bf95278 |
Subject: [PATCH 2/6] No such function - lists:delete_nth/2
|
|
|
905788b |
|
|
|
905788b |
Signed-off-by: Peter Lemenkov <lemenkov@gmail.com>
|
|
|
905788b |
---
|
|
|
905788b |
src/wings_pref.erl | 6 +++++-
|
|
|
905788b |
1 file changed, 5 insertions(+), 1 deletion(-)
|
|
|
905788b |
|
|
|
905788b |
diff --git a/src/wings_pref.erl b/src/wings_pref.erl
|
|
|
905788b |
index 7511d44..ca713b4 100644
|
|
|
905788b |
--- a/src/wings_pref.erl
|
|
|
905788b |
+++ b/src/wings_pref.erl
|
|
|
905788b |
@@ -624,7 +624,7 @@ pref({load,Request,St}) ->
|
|
|
905788b |
wings_pref:set_value(pref_directory, PrefDir),
|
|
|
905788b |
pref(load);
|
|
|
905788b |
false ->
|
|
|
905788b |
- Recent = lists:delete_nth(Recent0, Key),
|
|
|
905788b |
+ Recent = delete_nth(Recent0, Key),
|
|
|
905788b |
wings_pref:set_value(recent_prefs, Recent),
|
|
|
905788b |
wings_u:error_msg(?__(11,"This file has been moved or deleted."))
|
|
|
905788b |
end
|
|
|
905788b |
@@ -1033,3 +1033,7 @@ load_pref_category([{Other,true}|Options], List, St) ->
|
|
|
905788b |
end,
|
|
|
905788b |
load_pref_category(Options, List, St);
|
|
|
905788b |
load_pref_category([], _, _) -> ok.
|
|
|
905788b |
+
|
|
|
905788b |
+delete_nth([_|T], 1) -> T;
|
|
|
905788b |
+delete_nth([H|T], N) -> [H|delete_nth(T, N-1)];
|
|
|
905788b |
+delete_nth([], _) -> [].
|
|
|
905788b |
--
|
|
|
905788b |
1.8.1.4
|
|
|
905788b |
|