/[emacs]/emacs/lisp/progmodes/sql.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/sql.el

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

revision 1.31 by rms, Sun Jan 13 04:44:22 2002 UTC revision 1.32 by rms, Thu Jan 17 01:39:49 2002 UTC
# Line 1029  This function is used for `comint-input- Line 1029  This function is used for `comint-input-
1029                    t t string)))                    t t string)))
1030    (comint-send-string proc string)    (comint-send-string proc string)
1031    (if comint-input-sender-no-newline    (if comint-input-sender-no-newline
1032        (if (not (string-equal input ""))        (if (not (string-equal string ""))
1033            (process-send-eof))            (process-send-eof))
1034      (comint-send-string proc "\n")))      (comint-send-string proc "\n")))
1035    
# Line 1050  Every newline in STRING will be preceded Line 1050  Every newline in STRING will be preceded
1050      (setq result (concat result (substring string start)))      (setq result (concat result (substring string start)))
1051      (comint-send-string proc result)      (comint-send-string proc result)
1052      (if comint-input-sender-no-newline      (if comint-input-sender-no-newline
1053          (if (not (string-equal input ""))          (if (not (string-equal string ""))
1054              (process-send-eof))              (process-send-eof))
1055        (comint-send-string proc "\n"))))        (comint-send-string proc "\n"))))
1056    

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

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