Mercurial > emacs

comparison lisp/term.el @ 89971:cce1c0ee76ee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-36 Merge from emacs--cvs-trunk--0, emacs--gnus--5.10, gnus--rel--5.10 Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523 Merge from emacs--gnus--5.10, gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-524 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-534 Update from CVS * miles@gnu.org--gnu-2004/emacs--gnus--5.10--base-0 tag of miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-464 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-1 Import from CVS branch gnus-5_10-branch * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-2 Merge from lorentey@elte.hu--2004/emacs--multi-tty--0, emacs--cvs-trunk--0 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-3 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-4 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-18 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-19 Remove autoconf-generated files from archive * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-20 Update from CVS
author Miles Bader <miles@gnu.org>
date Thu, 09 Sep 2004 09:36:36 +0000
parents d8411455de48 bebd8a58e0f8
children 0796fc36c2bd
comparison
equal deleted inserted replaced
89970:a849e5779b8c 89971:cce1c0ee76ee
921 (term-set-escape-char ?\C-c) 921 (term-set-escape-char ?\C-c)
922 922
923 (defun term-window-width () 923 (defun term-window-width ()
924 (if (featurep 'xemacs) 924 (if (featurep 'xemacs)
925 (1- (window-width)) 925 (1- (window-width))
926 (if window-system 926 (if (and window-system overflow-newline-into-fringe)
927 (window-width) 927 (window-width)
928 (1- (window-width))))) 928 (1- (window-width)))))
929 929
930 930
931 (put 'term-mode 'mode-class 'special) 931 (put 'term-mode 'mode-class 'special)
984 (make-local-variable 'term-saved-home-marker) 984 (make-local-variable 'term-saved-home-marker)
985 (make-local-variable 'term-height) 985 (make-local-variable 'term-height)
986 (make-local-variable 'term-width) 986 (make-local-variable 'term-width)
987 (setq term-width (term-window-width)) 987 (setq term-width (term-window-width))
988 (setq term-height (1- (window-height))) 988 (setq term-height (1- (window-height)))
989 (term-ifnot-xemacs
990 (set (make-local-variable 'overflow-newline-into-fringe) nil))
991 (make-local-variable 'term-terminal-parameter) 989 (make-local-variable 'term-terminal-parameter)
992 (make-local-variable 'term-saved-cursor) 990 (make-local-variable 'term-saved-cursor)
993 (make-local-variable 'term-last-input-start) 991 (make-local-variable 'term-last-input-start)
994 (setq term-last-input-start (make-marker)) 992 (setq term-last-input-start (make-marker))
995 (make-local-variable 'term-last-input-end) 993 (make-local-variable 'term-last-input-end)