Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-24

Merge from lorentey@elte.hu--2004/emacs--hacks--0, emacs--cvs-trunk--0

Patches applied:

 * lorentey@elte.hu--2004/emacs--hacks--0--patch-2
   Prevent special events from appending dashes to the echo string.

 * lorentey@elte.hu--2004/emacs--hacks--0--patch-4
   Added ChangeLog entry.

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-451
   Update from CVS: lisp/subr.el (get-buffer-window-list): Doc fix.

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-452
 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-454
   Update from CVS

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-455
   Bash the dashes

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-456
 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-458
   Update from CVS

1 files changed, 15 insertions, 0 deletions

diff --git a/src/keyboard.c b/src/keyboard.c
index 382f99058d4..eb8c0c43fe6 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -802,6 +802,21 @@ echo_dash ()
       == SCHARS (current_kboard->echo_string))
     return;
 
+  /* Do nothing if we have already put a dash at the end.  */
+  if (SCHARS (current_kboard->echo_string) > 1)
+    {
+          Lisp_Object last_char, prev_char, idx;
+
+          idx = make_number (SCHARS (current_kboard->echo_string) - 2);
+          prev_char = Faref (current_kboard->echo_string, idx);
+
+          idx = make_number (SCHARS (current_kboard->echo_string) - 1);
+          last_char = Faref (current_kboard->echo_string, idx);
+
+          if (XINT (last_char) == '-' && XINT (prev_char) != ' ')
+            return;
+    }
+
   /* Put a dash at the end of the buffer temporarily,
      but make it go away when the next character is added.  */
   current_kboard->echo_string = concat2 (current_kboard->echo_string,