*** /net/gs/vol3/software/modules-sw/emacs/24.1/Linux/RHEL6/x86_64/share/emacs/24.1/lisp/term.el.gz --- term.el 2012-07-20 14:59:24.835658472 -0700 *************** *** 561,566 **** --- 561,573 ---- :type 'boolean :group 'term) + (defcustom term-suppress-hard-newline nil + "Controls whether interpreter adds newlines where text exceeds a single line. + If non-nil, then don't add these newlines, so that text is automatically + reflowed when window is resized." + :type 'boolean + :group 'term) + ;; Where gud-display-frame should put the debugging arrow. This is ;; set by the marker-filter, which scans the debugger's output for ;; indications of the current pc. *************** *** 2797,2804 **** (setq count (length decoded-substring)) (setq temp (- (+ (term-horizontal-column) count) term-width)) ! (cond ((<= temp 0)) ;; All count chars fit in line. ! ((> count temp) ;; Some chars fit. ;; This iteration, handle only what fits. (setq count (- count temp)) (setq count-bytes --- 2804,2812 ---- (setq count (length decoded-substring)) (setq temp (- (+ (term-horizontal-column) count) term-width)) ! (cond ((or term-suppress-hard-newline (<= temp 0))) ! ;; All count chars fit in line. ! ((> count temp) ;; Some chars fit. ;; This iteration, handle only what fits. (setq count (- count temp)) (setq count-bytes