/[emacs]/emacs/src/keyboard.c
ViewVC logotype

Diff of /emacs/src/keyboard.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.782 by teirllm, Tue Jul 6 23:32:37 2004 UTC revision 1.783 by miles, Wed Jul 14 22:42:44 2004 UTC
# Line 802  echo_dash () Line 802  echo_dash ()
802        == SCHARS (current_kboard->echo_string))        == SCHARS (current_kboard->echo_string))
803      return;      return;
804    
805      /* Do nothing if we have already put a dash at the end.  */
806      if (SCHARS (current_kboard->echo_string) > 1)
807        {
808              Lisp_Object last_char, prev_char, idx;
809    
810              idx = make_number (SCHARS (current_kboard->echo_string) - 2);
811              prev_char = Faref (current_kboard->echo_string, idx);
812    
813              idx = make_number (SCHARS (current_kboard->echo_string) - 1);
814              last_char = Faref (current_kboard->echo_string, idx);
815    
816              if (XINT (last_char) == '-' && XINT (prev_char) != ' ')
817                return;
818        }
819    
820    /* Put a dash at the end of the buffer temporarily,    /* Put a dash at the end of the buffer temporarily,
821       but make it go away when the next character is added.  */       but make it go away when the next character is added.  */
822    current_kboard->echo_string = concat2 (current_kboard->echo_string,    current_kboard->echo_string = concat2 (current_kboard->echo_string,

Legend:
Removed from v.1.782  
changed lines
  Added in v.1.783

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26