* src/dispnew.c (bitch_at_user): Use `user-error'.

diff --git a/src/ChangeLog b/src/ChangeLog
index 4ece74002760f5320f4c69bbfb6cc8ec470d9e18..257fdb3af964137eb75164fa79b412163f655807 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2013-03-17  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * dispnew.c (bitch_at_user): Use `user-error'.
+
 2013-03-17  Ken Brown  <kbrown@cornell.edu>
 
        * dispextern.h (RGB_PIXEL_COLOR): Move here from image.c.  Use it
@@ -12,8 +16,8 @@
        * nsterm.h (EmacsSavePanel, EmacsOpenPanel): Add getFilename
        and getDirectory.
 
-       * nsfns.m (ns_filename_from_panel, ns_directory_from_panel): New
-       functions.
+       * nsfns.m (ns_filename_from_panel, ns_directory_from_panel):
+       New functions.
        (Fns_read_file_name): ret is BOOL.  If ! dir_only_p, don't choose
        directories.  If filename is nil, get directory name (Bug#13932).
        Use getFilename and getDirectory.
@@ -46,10 +50,6 @@
        (syms_of_coding): Declare disable-ascii-optimization as a Lisp
        variable.
 
-       * global.h (struct emacs_globals): New member
-       f_disable_ascii_optimization.
-       (disable_ascii_optimization): New macro.
-
        * lisp.h (adjust_after_replace): Cancel externing it.
        (insert_from_gap): Adjust prototype.
 

diff --git a/src/dispnew.c b/src/dispnew.c
index 47adab6b8f76c9d18e359aea6f4361a53ddfa045..f23562cb97a2f1c9b568c4034c425350bc79a65c 100644 (file)
--- a/src/dispnew.c
+++ b/src/dispnew.c
@@ -5725,7 +5725,11 @@ bitch_at_user (void)
   if (noninteractive)
     putchar (07);
   else if (!INTERACTIVE)  /* Stop executing a keyboard macro.  */
-    error ("Keyboard macro terminated by a command ringing the bell");
+    {
+      const char *msg
+       = "Keyboard macro terminated by a command ringing the bell";
+      Fsignal (Quser_error, Fcons (build_string (msg), Qnil));
+    }
   else
     ring_bell (XFRAME (selected_frame));
 }