From xemacs-m  Sun Jun 15 15:15:46 1997
Received: from bittersweet.inetarena.com (karlheg@bittersweet.inetarena.com [206.129.216.38])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id PAA20550
	for <xemacs-beta@xemacs.org>; Sun, 15 Jun 1997 15:15:44 -0500 (CDT)
Received: (from karlheg@localhost)
	by bittersweet.inetarena.com (8.8.5/8.8.5) id NAA08425;
	Sun, 15 Jun 1997 13:15:59 -0700
Date: Sun, 15 Jun 1997 13:15:59 -0700
Message-Id: <199706152015.NAA08425@bittersweet.inetarena.com>
From: "Karl M. Hegbloom" <karlheg@inetarena.com>
To: <xemacs-beta@xemacs.org>
Subject: [patch] eterm/term.el
X-Face: /Q}=yl}1_v7nP)xXo5XjG8+tl@=uVu7o5u6)f]zN?+<hB!K.m9:[|*p34jVN`O;:XZXVSy>/\R>qDt(t8w!-i{(y0"`jFw^uk8inzO9wXabd'CdjUWfC\GHi:6nO*YC89#-qD>Q4r%9!V"<RYJ=7D#$";q=zML5'!=wvXk^$`6FT=5CMofQX)WUKt0p:OKl.mFOXx/D


8<----------------------------------------------------------------->8
*** term.el.orig	Sun Jun 15 13:14:39 1997
--- term.el	Sun Jun 15 13:14:46 1997
***************
*** 1,4 ****
! ;;; term.el --- general command interpreter in a window stuff
  
  ;; Copyright (C) 1988-1995, 1997 Free Software Foundation, Inc.
  
--- 1,4 ----
! !;;; term.el --- general command interpreter in a window stuff
  
  ;; Copyright (C) 1988-1995, 1997 Free Software Foundation, Inc.
  
***************
*** 1293,1299 ****
  	;; Argument ranges are complex too, so we hive off the input line,
  	;; referenced with plings, with the range string to `term-args'.
  	(setq term-input-ring-index nil)
! 	(cond ((or (= (preceding-char) ?\\)
  		   (term-within-quotes start (point)))
  	       ;; The history is quoted, or we're in quotes.
  	       (goto-char (1+ (point))))
--- 1293,1299 ----
  	;; Argument ranges are complex too, so we hive off the input line,
  	;; referenced with plings, with the range string to `term-args'.
  	(setq term-input-ring-index nil)
! 	(cond ((or (= (char-before (point)) ?\\)
  		   (term-within-quotes start (point)))
  	       ;; The history is quoted, or we're in quotes.
  	       (goto-char (1+ (point))))
***************
*** 2511,2517 ****
  	    (col (term-horizontal-column)))
  	(cond (set
  	       (goto-char (point-max))
! 	       (if (not (eq (preceding-char) ?\n))
  		   (term-insert-char ?\n 1))
  	       (setq term-scroll-with-delete t)
  	       (setq term-saved-home-marker (copy-marker term-home-marker))
--- 2511,2517 ----
  	    (col (term-horizontal-column)))
  	(cond (set
  	       (goto-char (point-max))
! 	       (if (not (eq (char-before (point)) ?\n))
  		   (term-insert-char ?\n 1))
  	       (setq term-scroll-with-delete t)
  	       (setq term-saved-home-marker (copy-marker term-home-marker))
8<----------------------------------------------------------------->8

-- 
Karl M. Hegbloom <karlheg@inetarena.com>
http://www.inetarena.com/~karlheg
Portland, OR  USA
Debian GNU 1.3  Linux 2.1.36 AMD K5 PR-133

