[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/src/keyboard.c [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/src/keyboard.c [emacs-unicode-2] |
Date: |
Fri, 16 Jul 2004 23:12:57 -0400 |
Index: emacs/src/keyboard.c
diff -c emacs/src/keyboard.c:1.753.2.6 emacs/src/keyboard.c:1.753.2.7
*** emacs/src/keyboard.c:1.753.2.6 Sun Jul 11 22:08:04 2004
--- emacs/src/keyboard.c Sat Jul 17 02:46:48 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,