["Jeff Sheinberg" <jeff@bsrd.net>] re: emacs doesn't restore one's non X windows prompt

[Dan Jacobson <jidanni@dman.ddts.net>]

[-- Attachment #1: Type: text/plain, Size: 97 bytes --]

Fellas, he has a fix.
If this is a terminfo description bug too, then somebody please report it.

[-- Attachment #2: Type: message/rfc822, Size: 2523 bytes --]

[-- Attachment #2.1.1: message body text --]
[-- Type: text/plain, Size: 370 bytes --]

I have a fix for this problem,

    Gentlemen, in good old tty mode, outside of X windows,
    I have in .bashrc
    if test $DISPLAY$EMACS; then :; else
        #VGA-softcursor.txt says to get red non-blinking block prompt
        echo -e '\033[?17;0;64c'
    fi

One must create an edited terminfo entry, so run the attached
Makefile from your ~/.terminfo directory,


[-- Attachment #2.1.2: run make -f Makefile from your .terminfo dir, --]
[-- Type: application/octet-stream, Size: 1404 bytes --]

# Makefile -  to make a modified terminfo entry for "linux".
#
# Note - run this Makefile from the ".terminfo" directory,
#	 except for debugging, then run from "terminfo" instead.
#
# See "/usr/src/linux/Documentation/VGA-softcursor.tx" for details.
#
# 113 = 0x71 = 0x01 (set hardware cursor invisible)
#	       0x10 (apply software cursor)
#	       0x20 (set background color)
#	       0x40 (set foreground color)
# Note - gpm point becomes invisible if on gray software cursor.
#

.PHONY: clean linux

linux:
# Get the source for the original "linux" entry.
	@TERMINFO=/etc/terminfo infocmp -1 $(@)  >$(@).orig
# Change the appropriate fields.
	@awk ' \
	    $$0 ~ "^\\tcivis=.*,$$" { sub(/=.*,$$/, "=\\E[?25l\\E[?1c,") } \
	    $$0 ~ "^\\tcnorm=.*,$$" { sub(/=.*,$$/, "=\\E[?25h\\E[?113c,") } \
	    $$0 ~ "^\\tcvvis=.*,$$" { sub(/=.*,$$/, "=\\E[?25h\\E[?113c,") } \
	    $$0 ~ "^\\trs1=.*,$$"   { sub(/=.*,$$/, "=\\Ec\\E]R\\E[?113c,") } \
	    { print } \
	    '  <$(@).orig  >$(@).new
# Compile "linux.new" to "./l/linux".
	@TERMINFO=. tic ./$(@).new
# De-compile new "./l/linux" over "linux.new" for diff listing.
	@TERMINFO=. infocmp -1 $(@)  >$(@).new
	@diff -U 0 $(@).orig   $(@).new ; test "$$?" -le "1"
# Done - show terminfo database files.
	@rm $(@).orig $(@).new
	@find . -path './*/*' -print | sed -e 's/./\\&/g' | xargs ls -ld

clean:
	rm    l/linux
	rmdir l

# Makefile - end of file.

[-- Attachment #2.1.3: message body and .signature --]
[-- Type: text/plain, Size: 88 bytes --]

I didn't reply on Usenet because I am not yet setup to do so.

HTH,
-- 
Jeff Sheinberg


[-- Attachment #3: Type: text/plain, Size: 45 bytes --]



-- 
http://jidanni.org/ Taiwan(04)25854780

[-- Attachment #4: Type: text/plain, Size: 148 bytes --]

_______________________________________________
Bug-gnu-emacs mailing list
Bug-gnu-emacs@gnu.org
http://mail.gnu.org/mailman/listinfo/bug-gnu-emacs