5 files changed, 124 insertions, 5 deletions

diff --git a/java/org/gnu/emacs/EmacsApplication.java b/java/org/gnu/emacs/EmacsApplication.java
index 125da05cfd4..87085c32d62 100644
--- a/java/org/gnu/emacs/EmacsApplication.java
+++ b/java/org/gnu/emacs/EmacsApplication.java
@@ -19,9 +19,59 @@ along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.  */
 
 package org.gnu.emacs;
 
+import java.io.File;
+import java.io.FileFilter;
+
 import android.app.Application;
+import android.util.Log;
 
-public class EmacsApplication extends Application
+public class EmacsApplication extends Application implements FileFilter
 {
-  /* This class currently does nothing.  */
+  private static final String TAG = "EmacsApplication";
+
+  /* The name of the dump file to use.  */
+  public static String dumpFileName;
+
+  @Override
+  public boolean
+  accept (File file)
+  {
+    return (!file.isDirectory ()
+            && file.getName ().endsWith (".pdmp"));
+  }
+
+  @Override
+  public void
+  onCreate ()
+  {
+    File filesDirectory;
+    File[] allFiles;
+    String wantedDumpFile;
+    int i;
+
+    wantedDumpFile = ("emacs-" + EmacsNative.getFingerprint ()
+                      + ".pdmp");
+
+    Log.d (TAG, "onCreate: looking for " + wantedDumpFile);
+
+    /* Obtain a list of all files ending with ``.pdmp''.  Then, look
+       for a file named ``emacs-<fingerprint>.pdmp'' and delete the
+       rest.  */
+    filesDirectory = getFilesDir ();
+    allFiles = filesDirectory.listFiles (this);
+
+    /* Now try to find the right dump file.  */
+    for (i = 0; i < allFiles.length; ++i)
+      {
+        if (allFiles[i].getName ().equals (wantedDumpFile))
+          dumpFileName = allFiles[i].getAbsolutePath ();
+        else
+          /* Delete this outdated dump file.  */
+          allFiles[i].delete ();
+      }
+
+    Log.d (TAG, "onCreate: found " + dumpFileName);
+
+    super.onCreate ();
+  }
 };
diff --git a/java/org/gnu/emacs/EmacsNative.java b/java/org/gnu/emacs/EmacsNative.java
index 962538bef7b..9636561a524 100644
--- a/java/org/gnu/emacs/EmacsNative.java
+++ b/java/org/gnu/emacs/EmacsNative.java
@@ -25,6 +25,10 @@ import android.content.res.AssetManager;
 
 public class EmacsNative
 {
+  /* Obtain the fingerprint of this build of Emacs.  The fingerprint
+     can be used to determine the dump file name.  */
+  public static native String getFingerprint ();
+
   /* Set certain parameters before initializing Emacs.  This proves
      that libemacs.so is being loaded from Java code.
 
diff --git a/java/org/gnu/emacs/EmacsPreferencesActivity.java b/java/org/gnu/emacs/EmacsPreferencesActivity.java
index 0db983984fd..ed1db68f732 100644
--- a/java/org/gnu/emacs/EmacsPreferencesActivity.java
+++ b/java/org/gnu/emacs/EmacsPreferencesActivity.java
@@ -19,6 +19,8 @@ along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.  */
 
 package org.gnu.emacs;
 
+import java.io.File;
+
 import android.app.Activity;
 import android.content.Intent;
 import android.os.Bundle;
@@ -93,6 +95,31 @@ public class EmacsPreferencesActivity extends Activity
       });
     layout.addView (textView);
 
+    textView = new TextView (this);
+    textView.setPadding (8, 20, 20, 8);
+
+    params = new LinearLayout.LayoutParams (LayoutParams.MATCH_PARENT,
+                                            LayoutParams.WRAP_CONTENT);
+    textView.setLayoutParams (params);
+    textView.setText ("Erase dump file");
+    textView.setOnClickListener (new View.OnClickListener () {
+        @Override
+        public void
+        onClick (View view)
+        {
+          String wantedDumpFile;
+          File file;
+
+          wantedDumpFile = ("emacs-" + EmacsNative.getFingerprint ()
+                            + ".pdmp");
+          file = new File (getFilesDir (), wantedDumpFile);
+
+          if (file.exists ())
+            file.delete ();
+        }
+      });
+    layout.addView (textView);
+
     super.onCreate (savedInstanceState);
   }
 };
diff --git a/java/org/gnu/emacs/EmacsService.java b/java/org/gnu/emacs/EmacsService.java
index 95f21b211a3..4db1ea5359f 100644
--- a/java/org/gnu/emacs/EmacsService.java
+++ b/java/org/gnu/emacs/EmacsService.java
@@ -43,6 +43,8 @@ import android.content.Context;
 import android.content.Intent;
 import android.content.res.AssetManager;
 
+import android.net.Uri;
+
 import android.os.Build;
 import android.os.Looper;
 import android.os.IBinder;
@@ -504,4 +506,27 @@ public class EmacsService extends Service
                                                       EmacsService.class));
       }
   }
+
+  /* Ask the system to open the specified URL.
+     Value is NULL upon success, or a string describing the error
+     upon failure.  */
+
+  public String
+  browseUrl (String url)
+  {
+    Intent intent;
+
+    try
+      {
+        intent = new Intent (Intent.ACTION_VIEW, Uri.parse (url));
+        intent.setFlags (Intent.FLAG_ACTIVITY_NEW_TASK);
+        startActivity (intent);
+      }
+    catch (Exception e)
+      {
+        return e.toString ();
+      }
+
+    return null;
+  }
 };
diff --git a/java/org/gnu/emacs/EmacsThread.java b/java/org/gnu/emacs/EmacsThread.java
index 21d8612703a..5b76d11db4b 100644
--- a/java/org/gnu/emacs/EmacsThread.java
+++ b/java/org/gnu/emacs/EmacsThread.java
@@ -38,10 +38,23 @@ public class EmacsThread extends Thread
   {
     String args[];
 
-    if (!startDashQ)
-      args = new String[] { "libandroid-emacs.so", };
+    if (EmacsApplication.dumpFileName == null)
+      {
+        if (!startDashQ)
+          args = new String[] { "libandroid-emacs.so", };
+        else
+          args = new String[] { "libandroid-emacs.so", "-Q", };
+      }
     else
-      args = new String[] { "libandroid-emacs.so", "-Q", };
+      {
+        if (!startDashQ)
+          args = new String[] { "libandroid-emacs.so", "--dump-file",
+                                EmacsApplication.dumpFileName, };
+        else
+          args = new String[] { "libandroid-emacs.so", "-Q",
+                                "--dump-file",
+                                EmacsApplication.dumpFileName, };
+      }
 
     /* Run the native code now.  */
     EmacsNative.initEmacs (args);