mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(term-is-xemacs): Remove.

Browse Source 
(term-if-xemacs, term-ifnot-xemacs): Test (featurep 'xemacs).
(term-window-width): New function.
(term-mode, term-check-size): Use it.
(term-mode): Disable overflow-newline-into-fringe in term buffer.
This commit is contained in:
Kim F. Storm 2004-04-05 21:34:05 +00:00
parent 571fd4d55d
commit 6781410f61
1 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lisp/term.el
View File

@ -658,14 +658,12 @@ Buffer local variable.")
(put 'term-scroll-show-maximum-output 'permanent-local t)
(put 'term-ptyp 'permanent-local t)
;; True if running under XEmacs (previously Lucid Emacs).
(defmacro term-is-xemacs () '(string-match "Lucid" emacs-version))
;; Do FORM if running under XEmacs (previously Lucid Emacs).
(defmacro term-if-xemacs (&rest forms)
(if (term-is-xemacs) (cons 'progn forms)))
(if (featurep 'xemacs) (cons 'progn forms)))
;; Do FORM if NOT running under XEmacs (previously Lucid Emacs).
(defmacro term-ifnot-xemacs (&rest forms)
(if (not (term-is-xemacs)) (cons 'progn forms)))
(if (not (featurep 'xemacs)) (cons 'progn forms)))
(defmacro term-in-char-mode () '(eq (current-local-map) term-raw-map))
(defmacro term-in-line-mode () '(not (term-in-char-mode)))
@ -923,6 +921,14 @@ is buffer-local.")
(define-key term-raw-map [next] 'term-send-next)))
(term-set-escape-char ?\C-c)
(defun term-window-width ()
(if (featurep 'xemacs)
(1- (window-width))
(if window-system
(window-width)
(1- (window-width)))))
(put 'term-mode 'mode-class 'special)
@ -980,8 +986,10 @@ Entry to this mode runs the hooks on `term-mode-hook'."
(make-local-variable 'term-saved-home-marker)
(make-local-variable 'term-height)
(make-local-variable 'term-width)
(setq term-width (1- (window-width)))
(setq term-width (term-window-width))
(setq term-height (1- (window-height)))
(term-ifnot-xemacs
(set (make-local-variable 'overflow-newline-into-fringe) nil))
(make-local-variable 'term-terminal-parameter)
(make-local-variable 'term-saved-cursor)
(make-local-variable 'term-last-input-start)
@ -1116,9 +1124,9 @@ Entry to this mode runs the hooks on `term-mode-hook'."
(defun term-check-size (process)
(if (or (/= term-height (1- (window-height)))
(/= term-width (1- (window-width))))
(/= term-width (term-window-width)))
(progn
(term-reset-size (1- (window-height)) (1- (window-width)))
(term-reset-size (1- (window-height)) (term-window-width))
(set-process-window-size process term-height term-width))))
(defun term-send-raw-string (chars)