LMFL#!C(:PADDED T :HOST "SYS" :BACKUP-DATE 2773684087. :SYSTEM-TYPE :LOGICAL :VERSION 6. :TYPE "LISP" :NAME "SUGGESTIONS-STUFF" :DIRECTORY ("REL3-2" "VISIDOC") :SOURCE-PATTERN "( :DIRECTORY (\"REL3-2\") :NAME :WILD :TYPE :WILD :VERSION :NEWEST)" :CHARACTERS T :NOT-BACKED-UP T :CREATION-DATE 2769518875. :AUTHOR "REL3-2" :LENGTH-IN-BYTES 2448. :LENGTH-IN-BLOCKS 3. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     ;;; -*- Mode:Common-Lisp; Package:ZWEI; Fonts:(CPTFONT CPTFONTB CPTFONTBI); Base:10 -*-;;;The data, information, methods, and concepts contained herein are;;;a valuable trade secret of Texas Instruments.   They are licensed;;;in  confidence  by  Texas  Instruments  and  may  only be used as;;;permitted  under the terms of the  definitive  license  agreement;;;under which such use is licensed.;;;;;;                           RESTRICTED RIGHTS LEGEND;;;Use, duplication, or disclosure by the Government is subject to;;;restrictions as set forth in subdivision (b)(3)(ii) of the Rights in;;;Technical Data and Computer Software clause at 52.227-7013.;;;;;;                     TEXAS INSTRUMENTS INCORPORATED.;;;                              P.O. BOX 2909;;;                           AUSTIN, TEXAS 78769;;;                                 MS 2151;;;;;; Copyright (C) 1987, Texas Instruments Incorporated. All rights reserved.;;; CHANGE HISTORY started on 10/8/87 by slm(PUSHNEW '(zwei:doc-viewer-mode zwei:VISIDOC-commands-menu) sugg:*suggestions-zmacs-modes* :test #'EQUAL)(sugg:suggestions-build-menu  'VISIDOC-commands-menu ""  '(("Top Level Commands" :no-select ignore :font sugg:menu-subtitle-std-font)    ("Get New Documentation" . com-doc-viewer-2)    ("List of Manuals" . com-list-of-manuals)    ("Table of Contents" . com-table-of-contents)    ("Find..." . com-doc-viewer-apropos)    ("" :no-select ignore)    ("Viewing Commands" :no-select ignore :font sugg:menu-subtitle-std-font)    ("View Next Topic" . com-find-next)    ("View Previous Topic" . com-find-previous)    ("View Surrounding Topic" . com-find-superior)    ("View Request History" . com-view-reference-history)    ("" :no-select ignore)    ("Location Commands" :no-select ignore :font sugg:menu-subtitle-std-font)    ("Show Buffer Hierarchy" . com-show-buffer-hierarchy)    ("Show Page Number" . com-show-page)    ("Show Overview" . com-show-overview)    ("" :no-select ignore)    ("Miscellaneous Commands" :no-select ignore :font sugg:menu-subtitle-std-font)    ("Expand Section" . com-expand-section)    ("Contract Section" . com-contract-section)    ("Save Request History" . com-save-history)    ("Restore Request History" . com-restore-history)    ("List VISIDOC buffers" . com-list-doc-viewer-buffers)    ("" :no-select ignore)    ("Exit" #\end :documentation "Exit the Viewer, returning to previous buffer")))