[Emacs-diffs] Changes to emacs/src/keyboard.c [lexbind]

[Miles Bader]

Index: emacs/src/keyboard.c
diff -c emacs/src/keyboard.c:1.681.2.15 emacs/src/keyboard.c:1.681.2.16
*** emacs/src/keyboard.c:1.681.2.15     Thu Jul  8 08:13:18 2004
--- emacs/src/keyboard.c        Sat Jul 17 02:51:57 2004
***************
*** 802,807 ****
--- 802,822 ----
        == 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,