[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: rxvt vs xterm keybindings
From: |
Dan Nicolaescu |
Subject: |
Re: rxvt vs xterm keybindings |
Date: |
Fri, 22 Jul 2005 11:47:01 -0700 |
Eli Zaretskii <address@hidden> writes:
> > From: Dan Nicolaescu <address@hidden>
> > Date: Fri, 22 Jul 2005 08:57:51 -0700
> >
> > How about we put something like that at the beginning of term/xterm.el
> > and do
> >
> > (if (and (getenv "COLORTERM")
> > (string-match "\\`rxvt" (getenv "COLORTERM")))
> > (load "term/rxvt")
> >
> > THE REST OF TERM/XTERM.EL
> > )
>
> Sounds good to me.
Below is what I checked in.
Is there a better way to do this?
Probably the defuns and defvars need to be moved outside the
"if COLORTERM", as it is now the byte compiler warns about undefined
functions...
I didn't change yet the indentation of "THE REST OF TERM/XTERM.EL" to
avoid too many gratuitous changes if a better solution is found.
* term/xterm.el: Load term/rxvt if the terminal is actually an
rxvt terminal.
(xterm-rxvt-set-background-mode): Remove, not used anymore.
*** xterm.el 10 Jul 2005 01:45:13 -0700 1.18
--- xterm.el 22 Jul 2005 11:38:47 -0700
***************
*** 26,31 ****
--- 26,38 ----
;;; Code:
+ ;;; rxvt terminals sometimes set the TERM variable to "xterm", but
+ ;;; rxvt's keybindings that are incompatible with xterm's. It is
+ ;;; better in that case to load rxvt's terminal initialization file.
+ (if (and (getenv "COLORTERM")
+ (string-match "\\`rxvt" (getenv "COLORTERM")))
+ (load "term/rxvt")
+
;;; The terminal intialization C code file might have initialized
;;; function keys F13->F60 from the termcap/terminfo information. On
;;; a PC-style keyboard these keys correspond to
***************
*** 359,396 ****
;; right colors, so clear them.
(clear-face-cache)))
- ;; rxvt puts the default colors into an environment variable
- ;; COLORFGBG. We use this to set the background mode in a more
- ;; intelligent way than the default guesswork in startup.el.
- (defun xterm-rxvt-set-background-mode ()
- "Set background mode as appropriate for the default rxvt colors."
- (let ((fgbg (getenv "COLORFGBG"))
- bg rgb)
- (setq default-frame-background-mode 'light)
- (when (and fgbg
- (string-match ".*;\\([0-9][0-9]?\\)\\'" fgbg))
- (setq bg (string-to-number (substring fgbg (match-beginning 1))))
- ;; The next line assumes that xterm-standard-colors are ordered
- ;; by the color index in the ascending order!
- (setq rgb (car (cddr (nth bg xterm-standard-colors))))
- ;; See the commentary in frame-set-background-mode about the
- ;; computation below.
- (if (< (apply '+ rgb)
- ;; The following line assumes that white is the 15th
- ;; color in xterm-standard-colors.
- (* (apply '+ (car (cddr (nth 15 xterm-standard-colors)))) 0.6))
- (setq default-frame-background-mode 'dark)))
- (frame-set-background-mode (selected-frame))))
-
;; Do it!
(xterm-register-default-colors)
- ;; If this xterm is actually a disguised rxvt, be more intelligent about
- ;; determining the background mode.
- (and (getenv "COLORTERM")
- (string-match "\\`rxvt" (getenv "COLORTERM"))
- (xterm-rxvt-set-background-mode))
;; This recomputes all the default faces given the colors we've just set up.
(tty-set-up-initial-frame-faces)
;; arch-tag: 12e7ebdd-1e6c-4b25-b0f9-35ace25e855a
;;; xterm.el ends here
--- 366,376 ----
;; right colors, so clear them.
(clear-face-cache)))
;; Do it!
(xterm-register-default-colors)
;; This recomputes all the default faces given the colors we've just set up.
(tty-set-up-initial-frame-faces)
+ )
;; arch-tag: 12e7ebdd-1e6c-4b25-b0f9-35ace25e855a
;;; xterm.el ends here
- rxvt vs xterm keybindings, Dan Nicolaescu, 2005/07/22
- Message not available
- Re: rxvt vs xterm keybindings,
Dan Nicolaescu <=
- Re: rxvt vs xterm keybindings, Stefan Monnier, 2005/07/22
- Re: rxvt vs xterm keybindings, Dan Nicolaescu, 2005/07/22
- Re: rxvt vs xterm keybindings, Eli Zaretskii, 2005/07/23
- Re: rxvt vs xterm keybindings, Richard M. Stallman, 2005/07/23
- Re: rxvt vs xterm keybindings, Dan Nicolaescu, 2005/07/23
- Re: rxvt vs xterm keybindings, Eli Zaretskii, 2005/07/23
- Re: rxvt vs xterm keybindings, Richard M. Stallman, 2005/07/24
- Re: rxvt vs xterm keybindings, Eli Zaretskii, 2005/07/24
- Re: rxvt vs xterm keybindings, Richard M. Stallman, 2005/07/24
- Re: rxvt vs xterm keybindings, Jan D., 2005/07/25