🚀 go-pugleaf

In <9204201205.AA23154@a.cs.uiuc.edu> G.Joly@cs.ucl.ac.uk (Gordon Joly) writes:
>
>
>In "Epoch 4.0.3 of Wed Apr  8 1992 on porridge.cs.ucl.ac.uk (berkeley-unix)"
>
>I using an SLC (SUN 4/20) with standard (non-greyscale) monitor, which
>"dmesg" reports as "bwtwo0 at SBus slot 3 0x0 pri 7"
>
>Epoch 4.0p0 was compiled under SunOS 4.1.1 with SUN cc.
>
>The problem is that the reverse video "hot-spots" no longer appear,
>although they are there in colour.
>
>I have had a look at the code snippet:
>
>
>    (if (> (number-of-colors) 2)
>      (progn
>        (setq Info-active-style (make-style))
>        (set-style-background Info-active-style "red")
>        (setq Info-inactive-style (make-style))
>        (set-style-background Info-inactive-style "turquoise")
>        (setq Info-underline-style (make-style))
>        (set-style-underline Info-underline-style (foreground))
>    ))
>
>but I am still unclear what to try to make the reverse video appear.
>
>Many thanks for any help,
>Gordon Joly.
>
>____
>
>Gordon Joly                                       +44 71 387 7050 ext 3703
>Internet: G.Joly@cs.ucl.ac.uk        UUCP: ...!{uunet,uknet}!ucl-cs!G.Joly
>Computer Science, University College London, Gower Street, LONDON WC1E 6BT

This is what I did:


*** hyper-man.el.orig	Mon Mar 23 11:10:44 1992
--- hyper-man.el	Sat Apr  4 14:03:06 1992
***************
*** 84,91 ****
      (set-style-background Info-inactive-style "turquoise")
      (setq Info-underline-style (make-style))
      (set-style-underline Info-underline-style (foreground))
  ))
- 
  
  (defvar Default-Info-directory nil)
  (defvar In-Hyper-Man)
--- 84,97 ----
      (set-style-background Info-inactive-style "turquoise")
      (setq Info-underline-style (make-style))
      (set-style-underline Info-underline-style (foreground))
+   )
+   (progn
+     (setq Info-active-style (make-style))
+     (set-style-foreground Info-active-style (background))
+     (set-style-background Info-active-style (foreground))
+     (setq Info-underline-style (make-style))
+     (set-style-underline Info-underline-style (foreground))
  ))
  
  (defvar Default-Info-directory nil)
  (defvar In-Hyper-Man)



=============================================================================
==J.ChrisCoppickTheMitreCorporationPhone:(703)8835903jcc@starbase.mitre.org==
==Ifyoucanreadthisthenyou'vebeenworkingtoohardandyouneedtogetalotmoresleep.==
=============================================================================
One day Soshi,  the Taoist, was walking on the bank of a river with a friend.
"How delightfully the fishes are enjoying themselves in the water!" exclaimed
Soshi.   His friend spake to him thus:   "You are not a fish; how do you know
that the fishes are enjoying themselves?"    "You are not myself,"   returned
Soshi;   "how do you know that I do not know that  the  fishes  are  enjoying
themselves?"