Commits

Anonymous committed e28645c

BS/DEL fixes, color fixes

Comments (0)

Files changed (4)

+1998-06-28  Glynn Clements  <glynn@sensei.co.uk>
+
+	* term.el: remove background pixmap when setting face background
+
+	* etc/e/eterm.ti: add entries describing colour support
+
+1998-05-29  Glynn Clements  <glynn@sensei.co.uk>
+
+	* term.el: Add defcustom options for the strings emitted by
+	term-send-del and term-send-backspace. Make XEmacs use these
+	functions.
+
 1998-04-19  Attila Fülöp  <atf@loa.neuro.biologie.fu-berlin.de> <attilaf@zedat.fu-berlin.de>
 
 	* term.el (term-mode): Added support for ansi colors.
 # the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 # Boston, MA 02111-1307, USA.
 
-VERSION = 1.04
+VERSION = 1.05
 AUTHOR_VERSION =
 MAINTAINER = XEmacs Development Team <xemacs-beta@xemacs.org>
 PACKAGE = eterm
 # These are ordered as in the O'Reilly "termcap and terminfo" book.
 eterm,
-	lines#24,cols#80,
+	lines#24,cols#80,colors#8,pairs#64,ncv#3,
 	cuu1=\E[A,cud1=\n,cub1=\b,cuf1=\E[C,home=\E[H,cr=\r,
 	cuu=\E[%p1%dA,cud=\E[%p1%dB,cub=\E[%p1%dD,cuf=\E[%p1%dC,
 	cup=\E[%i%p1%d;%p2%dH,
 	smul=\E[4m,rmul=\E[m,
 	rev=\E[7m,bold=\E[1m,sgr0=\E[m,
 	bel=^G,xenl,am,
+	setab=\E[4%p1%dm, setaf=\E[3%p1%dm, 
+	op=\E[39;49m,
+
   :type 'hook
   :group 'term)
 
+(defcustom term-delete-string "\C-?"
+  "String to send when Delete is pressed."
+  :type 'string
+  :group 'term)
+
+(defcustom term-backspace-string "\C-H"
+  "String to send when BackSpace is pressed."
+  :type 'string
+  :group 'term)
+
 (defvar term-mode-map nil)
 (defvar term-raw-map nil
   "Keyboard map for sending characters directly to the inferior process.")
     (setq fi (1+ fi))
     )
   (set-face-background 'term-white-inv-face (face-background 'term-default-face))
+  (set-face-background-pixmap 'term-white-inv-face (make-image-instance [nothing]))
 
  (setq term-fnts-tmp-faces [
 	nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
 (defun term-send-end   () (interactive) (term-send-raw-string "\eOw"))
 (defun term-send-prior () (interactive) (term-send-raw-string "\e[5~"))
 (defun term-send-next  () (interactive) (term-send-raw-string "\e[6~"))
-(defun term-send-del   () (interactive) (term-send-raw-string "\C-?"))
-(defun term-send-backspace  () (interactive) (term-send-raw-string "\C-H"))
+(defun term-send-del   () (interactive) (term-send-raw-string term-delete-string))
+(defun term-send-backspace  () (interactive) (term-send-raw-string term-backspace-string))
 
 (defun term-set-escape-char (c)
   "Change term-escape-char and keymaps that depend on it."
 	(define-key term-raw-map [end] 'term-send-end)
 	(define-key term-raw-map [prior] 'term-send-prior)
 	(define-key term-raw-map [next] 'term-send-next)
+	(define-key term-raw-map [delete] 'term-send-del)
+	(define-key term-raw-map [backspace] 'term-send-backspace)
 	(term-if-xemacs
 	 (define-key term-raw-map [button2] 'term-mouse-paste))
 	(term-ifnot-xemacs
 	 (define-key term-raw-map [mouse-2] 'term-mouse-paste)
 	 (define-key term-raw-map [menu-bar terminal] term-terminal-menu)
-	 (define-key term-raw-map [menu-bar signals] term-signals-menu)
-	 (define-key term-raw-map [delete] 'term-send-del)
-	 (define-key term-raw-map [backspace] 'term-send-backspace))
+	 (define-key term-raw-map [menu-bar signals] term-signals-menu))
 	(setq meta-prefix-char save-meta-prefix-char)
 	(term-set-escape-char ?\C-c)))
   ;; FIXME: Emit message? Cfr ilisp-raw-message
 		  (copy-face (aref term-fnts (+ term-fg (* term-fi 8))) bxt-tmp-face)
 		  (set-face-parent bxt-tmp-face (aref term-fnts (+ term-fg (* term-fi 8)))) 
 		  (set-face-background bxt-tmp-face (face-background (aref term-fnts (+ term-bg (* 3 8)))))
+		  (set-face-background-pixmap bxt-tmp-face (make-image-instance [nothing]))
 		  ;; (set-face-doc-string bxt-tmp-face "Do not mess with this.")
 		  (aset term-fnts-tmp-faces  (+ (* term-fi 8 8)  (* term-bg 8) term-fg) bxt-tmp-face)