* lisp/emulation/edt-mapper.el: In batch mode, error rather than hang.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ec747affc95aa3024be48ccaea2a13949e8028f9..5b9cf1dc4550e73a8e72fc6bc27c34993db3b45e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2013-05-11  Glenn Morris  <rgm@gnu.org>
 
+       * emulation/edt-mapper.el: In batch mode, error rather than hang.
+
        * term.el (term-set-escape-char): Make it idempotent.
 
 2013-05-10  Leo Liu  <sdl.web@gmail.com>

diff --git a/lisp/emulation/edt-mapper.el b/lisp/emulation/edt-mapper.el
index 5ddb9513f0a1fa172904390b7d53b22f6f1db967..138e3e6d0da400f163cbe894229b7692cb22d669 100644 (file)
--- a/lisp/emulation/edt-mapper.el
+++ b/lisp/emulation/edt-mapper.el
@@ -96,6 +96,10 @@
 
 ;;; Code:
 
+;; Otherwise it just hangs.  This seems preferable.
+(if noninteractive
+    (error "edt-mapper cannot be loaded in batch mode"))
+
 ;;;
 ;;;  Decide Emacs Variant, GNU Emacs or XEmacs (aka Lucid Emacs).
 ;;;  Determine Window System, and X Server Vendor (if appropriate).