andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* term.el (term-suppress-hard-newline): New option (tiny change)

Browse source 
(term-emulate-terminal): Respect term-suppress-hard-newline.

Fixes: debbugs:12017
This commit is contained in:
Michael Hoffman 2013-06-12 22:27:05 -07:00 • committed by Glenn Morris
parent 0530d5ca3d
commit 5755011f76
2 changed files with 15 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2013-06-13 Michael Hoffman <9qobl2n02@sneakemail.com> (tiny change)
* term.el (term-suppress-hard-newline): New option. (Bug#12017)
(term-emulate-terminal): Respect term-suppress-hard-newline.
2013-06-13 E Sabof <esabof@gmail.com> (tiny change)
* image-dired.el (image-dired-dired-toggle-marked-thumbs):

12
lisp/term.el
View file

@ -560,6 +560,13 @@ This variable is buffer-local."
:type 'boolean
:group 'term)
(defcustom term-suppress-hard-newline nil
"Non-nil means interpreter should not break long lines with newlines.
This means text can automatically reflow if the window is resized."
:version "24.4"
: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.
@ -2828,8 +2835,9 @@ See `term-prompt-regexp'."
(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.
(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