;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 123.199
;;; Reason:
;;;  Add three more special symbols to Rubout Handler's Meta-Help list.
;;; Written 2-Feb-88 15:16:32 by pld at site Gigamos Cambridge
;;; while running on Jack Flanders from band 2
;;; with Experimental System 123.197, Experimental Local-File 73.3, Experimental FILE-Server 22.1, Experimental Unix-Interface 11.0, Experimental Tape 18.0, Experimental KERMIT 34.3, Experimental ZMail 71.0, Experimental Lambda-Diag 15.0, microcode 1754, SDU Boot Tape 3.12, SDU ROM 8.


; From modified file DJ: L.WINDOW; RH.LISP#190 at 2-Feb-88 15:16:32
#8R TV#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "TV")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: WINDOW; RH  "

(defun rh-print-special-symbol-help (help-window &optional width)
  (cond (width)
	((operation-handled-p help-window :size-in-characters)
	 (setq width (send help-window :size-in-characters)))
	(t
	 (setq width 85.)))
  (format help-window "Special Symbol Translations:~2%")
  (rh-print-help-double-columns (select-processor
				  ((:lambda :cadr)
				   '((#/ "Greek-a")
				     (#/ "Greek-b")
				     (#/
 "Greek-d")
				     (#/ "Greek-e")
				     (#/	 "Greek-g")
				     (#/ "Greek-l")
				     (#/ "Greek-p")
				     (#/  "Greek-'")
				     (#/ "Greek-//")
				     (#/ "Greek-`")
				     (#/ "Greek-Hand-Down")
				     (#/ "Greek-Hand-Left")
				     (#/ "Top-q")
				     (#/ "Top-w")
				     (#/ "Top-e")
				     (#/ "Top-r")
				     (#/ "Top-t")
				     (#/ "Top-y")
				     (#/ "Top-u")
				     (#/ "Top-i")
				     (#/ "Top-o")
				     (#/ "Top-p")
				     (#/ "Top-g")
				     (#/ "Top-h")
				     (#/ "Top-j")
				     (#/ "Top-k")
				     (#/ "Top-l")
				     (#/ "Top-c")
				     (#/ "Top-m")
				     (#/ "Top-n")
				     (#/ "Top-b")))
				  (:explorer
				   '((#/ "Symbol-a")
				     (#/ "Symbol-b")
				     (#/
 "Symbol-d")
				     (#/ "Symbol-e")
				     (#/	 "Symbol-g")
				     (#/ "Symbol-l")
				     (#/ "Symbol-p")
				     (#/  "Symbol-'")
				     (#/ "Symbol-//")
				     (#/ "Shift-Symbol-q")
				     (#/ "Shift-Symbol-w")
				     (#/ "Shift-Symbol-e")
				     (#/ "Shift-Symbol-r")
				     (#/ "Shift-Symbol-t")
				     (#/ "Shift-Symbol-y")
				     (#/ "Shift-Symbol-u")
				     (#/ "Shift-Symbol-i")
				     (#/ "Shift-Symbol-o")
				     (#/ "Shift-Symbol-p")
				     (#/ "Shift-Symbol-g")
				     (#/ "Shift-Symbol-h")
				     (#/ "Shift-Symbol-j")
				     (#/ "Shift-Symbol-k")
				     (#/ "Shift-Symbol-l")
				     (#/ "Shift-Symbol-c")
				     (#/ "Shift-Symbol-m")
				     (#/ "Shift-Symbol-n")
				     (#/ "Shift-Symbol-b"))))
				help-window
				width)
  (terpri help-window))

))