🚀 go-pugleaf

------- Start of forwarded message -------
Status: RO
X-VM-v5-Data: ([nil nil nil nil nil nil nil nil nil]
	["53482" "Fri" "18" "October" "91" "18:55:02" "CST" "Ken Wood" "kwood@angels " nil "1346" "Epoch highlighting packages: tek-epoch-stuff1.0.0 part 4 of 4" "^From:" nil nil "10"])
Received: from angels.adl.austek (angels.austek) by floyd.adl.austek (4.0/4.2 Austek-CAW)
	id AA13152; Fri, 18 Oct 91 18:55:16 CST
Received: by angels.adl.austek (4.1/4.2 Austek-CAW)
	id AA14816; Fri, 18 Oct 91 18:55:02 CST
Message-Id: <9110180925.AA14816@angels.adl.austek>
X-Face: +Ar(nq[|T7zOhkAD\~cQ9U9>LLq'PDT`!bLk99u`nWaw(-_q8iZ;s;6{VkL^Vl6qq`6'q{h
 /AM&IU4cGo,U!l{@V7fp.3nrk.%5hLaD(i%uQxV1*)xZ^CRV)l4%m2;A"T!j=\rqqdCH3<I}V}
From: kwood@angels (Ken Wood)
To: epoch@cs.uiuc.edu
Subject: Epoch highlighting packages: tek-epoch-stuff1.0.0 part 4 of 4
Date: Fri, 18 Oct 91 18:55:02 CST
Organization: Austek Microsystems, Pty Ltd.


#! /bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #! /bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create the files:
#	COPYING
#	tek-src-hilite.el
#	tek-info-buttons.el
#	tek-vm-hilite.el
#	tek-gnus-hilite.el
#	README
#	tek-motion-setup.el
#	maclib-toolbox.el
#	tek-src-hilite-setup.el
#	tek-info-setup.el
# This archive created: Fri Oct 18 18:37:02 1991
export PATH; PATH=/bin:$PATH
echo shar: extracting "'COPYING'" '(7742 characters)'
if test -f 'COPYING'
then
	echo shar: will not over-write existing file "'COPYING'"
else
sed 's/^	X//' << \SHAR_EOF > 'COPYING'
	X		 GNU EMACS GENERAL PUBLIC LICENSE
	X		    (Clarified 11 Feb 1988)
	X
	X Copyright (C) 1985, 1987, 1988 Richard M. Stallman
	X Everyone is permitted to copy and distribute verbatim copies
	X of this license, but changing it is not allowed.  You can also
	X use this wording to make the terms for other programs.
	X
	X  The license agreements of most software companies keep you at the
	Xmercy of those companies.  By contrast, our general public license is
	Xintended to give everyone the right to share GNU Emacs.  To make
	Xsure that you get the rights we want you to have, we need to make
	Xrestrictions that forbid anyone to deny you these rights or to ask you
	Xto surrender the rights.  Hence this license agreement.
	X
	X  Specifically, we want to make sure that you have the right to give
	Xaway copies of Emacs, that you receive source code or else can get it
	Xif you want it, that you can change Emacs or use pieces of it in new
	Xfree programs, and that you know you can do these things.
	X
	X  To make sure that everyone has such rights, we have to forbid you to
	Xdeprive anyone else of these rights.  For example, if you distribute
	Xcopies of Emacs, you must give the recipients all the rights that you
	Xhave.  You must make sure that they, too, receive or can get the
	Xsource code.  And you must tell them their rights.
	X
	X  Also, for our own protection, we must make certain that everyone
	Xfinds out that there is no warranty for GNU Emacs.  If Emacs is
	Xmodified by someone else and passed on, we want its recipients to know
	Xthat what they have is not what we distributed, so that any problems
	Xintroduced by others will not reflect on our reputation.
	X
	X  Therefore we (Richard Stallman and the Free Software Fundation,
	XInc.) make the following terms which say what you must do to be
	Xallowed to distribute or change GNU Emacs.
	X
	X			COPYING POLICIES
	X
	X  1. You may copy and distribute verbatim copies of GNU Emacs source code
	Xas you receive it, in any medium, provided that you conspicuously and
	Xappropriately publish on each copy a valid copyright notice "Copyright
	X(C) 1988 Free Software Foundation, Inc." (or with whatever year is
	Xappropriate); keep intact the notices on all files that refer to this
	XLicense Agreement and to the absence of any warranty; and give any
	Xother recipients of the GNU Emacs program a copy of this License
	XAgreement along with the program.  You may charge a distribution fee
	Xfor the physical act of transferring a copy.
	X
	X  2. You may modify your copy or copies of GNU Emacs source code or
	Xany portion of it, and copy and distribute such modifications under
	Xthe terms of Paragraph 1 above, provided that you also do the following:
	X
	X    a) cause the modified files to carry prominent notices stating
	X    that you changed the files and the date of any change; and
	X
	X    b) cause the whole of any work that you distribute or publish,
	X    that in whole or in part contains or is a derivative of GNU Emacs
	X    or any part thereof, to be licensed at no charge to all third
	X    parties on terms identical to those contained in this License
	X    Agreement (except that you may choose to grant more extensive
	X    warranty protection to some or all third parties, at your option).
	X
	X    c) if the modified program serves as a text editor, cause it when
	X    started running in the simplest and usual way, to print an
	X    announcement including a valid copyright notice "Copyright (C)
	X    1988 Free Software Foundation, Inc." (or with the year that is
	X    appropriate), saying that there is no warranty (or else, saying
	X    that you provide a warranty) and that users may redistribute the
	X    program under these conditions, and telling the user how to view a
	X    copy of this License Agreement.
	X
	X    d) You may charge a distribution fee for the physical act of
	X    transferring a copy, and you may at your option offer warranty
	X    protection in exchange for a fee.
	X
	XMere aggregation of another unrelated program with this program (or its
	Xderivative) on a volume of a storage or distribution medium does not bring
	Xthe other program under the scope of these terms.
	X
	X  3. You may copy and distribute GNU Emacs (or a portion or derivative of it,
	Xunder Paragraph 2) in object code or executable form under the terms of
	XParagraphs 1 and 2 above provided that you also do one of the following:
	X
	X    a) accompany it with the complete corresponding machine-readable
	X    source code, which must be distributed under the terms of
	X    Paragraphs 1 and 2 above; or,
	X
	X    b) accompany it with a written offer, valid for at least three
	X    years, to give any third party free (except for a nominal
	X    shipping charge) a complete machine-readable copy of the
	X    corresponding source code, to be distributed under the terms of
	X    Paragraphs 1 and 2 above; or,
	X
	X    c) accompany it with the information you received as to where the
	X    corresponding source code may be obtained.  (This alternative is
	X    allowed only for noncommercial distribution and only if you
	X    received the program in object code or executable form alone.)
	X
	XFor an executable file, complete source code means all the source code for
	Xall modules it contains; but, as a special exception, it need not include
	Xsource code for modules which are standard libraries that accompany the
	Xoperating system on which the executable file runs.
	X
	X  4. You may not copy, sublicense, distribute or transfer GNU Emacs
	Xexcept as expressly provided under this License Agreement.  Any attempt
	Xotherwise to copy, sublicense, distribute or transfer GNU Emacs is void and
	Xyour rights to use GNU Emacs under this License agreement shall be
	Xautomatically terminated.  However, parties who have received computer
	Xsoftware programs from you with this License Agreement will not have
	Xtheir licenses terminated so long as such parties remain in full compliance.
	X
	X  5. If you wish to incorporate parts of GNU Emacs into other free programs
	Xwhose distribution conditions are different, write to the Free Software
	XFoundation.  We have not yet worked out a simple rule that can be stated
	Xhere, but we will often permit this.  We will be guided by the two goals of
	Xpreserving the free status of all derivatives of our free software and of
	Xpromoting the sharing and reuse of software.
	X
	XYour comments and suggestions about our licensing policies and our
	Xsoftware are welcome!  Please contact the Free Software Foundation, Inc.,
	X675 Mass Ave, Cambridge, MA 02139, or call (617) 876-3296.
	X
	X			   NO WARRANTY
	X
	X  BECAUSE GNU EMACS IS LICENSED FREE OF CHARGE, WE PROVIDE ABSOLUTELY
	XNO WARRANTY, TO THE EXTENT PERMITTED BY APPLICABLE STATE LAW.  EXCEPT
	XWHEN OTHERWISE STATED IN WRITING, FREE SOFTWARE FOUNDATION, INC,
	XRICHARD M. STALLMAN AND/OR OTHER PARTIES PROVIDE GNU EMACS "AS IS"
	XWITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
	XBUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
	XFITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE RISK AS TO THE QUALITY
	XAND PERFORMANCE OF THE PROGRAM IS WITH YOU.  SHOULD THE GNU EMACS
	XPROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY
	XSERVICING, REPAIR OR CORRECTION.
	X
	X IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW WILL FREE SOFTWARE
	XFOUNDATION, INC., RICHARD M. STALLMAN, AND/OR ANY OTHER PARTY WHO MAY
	XMODIFY AND REDISTRIBUTE GNU EMACS AS PERMITTED ABOVE, BE LIABLE TO YOU
	XFOR DAMAGES, INCLUDING ANY LOST PROFITS, LOST MONIES, OR OTHER
	XSPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR
	XINABILITY TO USE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA
	XBEING RENDERED INACCURATE OR LOSSES SUSTAINED BY THIRD PARTIES OR A
	XFAILURE OF THE PROGRAM TO OPERATE WITH PROGRAMS NOT DISTRIBUTED BY
	XFREE SOFTWARE FOUNDATION, INC.) THE PROGRAM, EVEN IF YOU HAVE BEEN
	XADVISED OF THE POSSIBILITY OF SUCH DAMAGES, OR FOR ANY CLAIM BY ANY
	XOTHER PARTY.
SHAR_EOF
if test 7742 -ne "`wc -c < 'COPYING'`"
then
	echo shar: error transmitting "'COPYING'" '(should have been 7742 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'tek-src-hilite.el'" '(7566 characters)'
if test -f 'tek-src-hilite.el'
then
	echo shar: will not over-write existing file "'tek-src-hilite.el'"
else
sed 's/^	X//' << \SHAR_EOF > 'tek-src-hilite.el'
	X;*****************************************************************************
	X;
	X; Filename:	tek-src-hilite.el
	X;
	X; Copyright (C) 1991  Ken Wood
	X;
	X; This program is free software; you can redistribute it and/or modify
	X; it under the terms of the GNU General Public License as published by
	X; the Free Software Foundation; either version 1, or (at your option)
	X; any later version.
	X;
	X; This program is distributed in the hope that it will be useful,
	X; but WITHOUT ANY WARRANTY; without even the implied warranty of
	X; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
	X; GNU General Public License for more details.
	X;
	X; You should have received a copy of the GNU General Public License
	X; along with this program; if not, write to the Free Software
	X; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
	X;
	X; Author:		Ken Wood, <kwood@austek.oz.au>
	X; Organisation:		Austek Microsystems Pty Ltd, Australia.
	X; Released with permission from Austek Microsystems.
	X;
	X; Description:	Highlight comments in source code buffers. Highlighting is
	X;		updated on find-file and save-buffer.
	X;
	X;		Button styles may be customised by means of X11 resources.
	X;		The resource name to use is "src-comment".
	X;		See the file tek-style-utils.el for details.
	X;
	X;		You may need to modify the variable
	X;		tek-highlight-merge-comments if you change the highlighting
	X;		style away from the default. See the documentation for this
	X;		variable for further details.
	X;
	X;		See the INSTALL file that comes with this package for
	X;		installation details.
	X;
	X;*****************************************************************************
	X
	X; $Id: tek-src-hilite.el,v 1.3 1991/10/18 07:44:05 kwood Exp $
	X
	X(provide 'tek-src-hilite)
	X(require 'epoch-running)
	X
	X; Put the whole thing inside a test to get it to compile under emacs.
	X(if running-epoch
	X    (progn
	X      
	X      (require 'tek-style-utils)
	X
	X      (defvar tek-src-comment-foreground "blue3"
	X	"\
	XForeground color used to highlight comments if no value is defined in
	Xthe X11 resources and the display device supports color. On monochrome
	Xscreens a different font is used in place of the different color.")
	X      
	X      (defvar tek-src-comment-attribute (reserve-attribute)
	X	"Attribute used for displaying comments in source code.")
	X      
	X      (defvar tek-src-comment-style
	X	; If the display supports multiple colors and a default color
	X	; is specified, define the style to use a different color.
	X	(if (and (> (number-of-colors) 2) tek-src-comment-foreground)
	X	    (tek-build-style "src-comment"
	X			     nil nil
	X			     tek-src-comment-foreground (background)
	X			     (background) (foreground))
	X	  ; Otherwise, define the style to use a different font.
	X	  (tek-build-style "src-comment" nil (or tek-italic-bold-fixed-font
	X						 tek-bold-fixed-font
	X						 tek-italic-fixed-font)
	X			   (foreground) (background)
	X			   (background) (foreground)))
	X	"Style used to display characters in source code comments.")
	X
	X      ;Bind the comment style to the comment attribute
	X      (set-attribute-style tek-src-comment-attribute
	X       tek-src-comment-style)
	X
	X
	X      (defvar tek-highlight-done-this-buffer nil
	X	"\
	XBuffer-local variable indicating whether any comments have been
	Xhighlighted in this buffer or not.")
	X
	X      (defvar tek-highlight-comment-continue-regexp nil
	X	"\
	XBuffer-local variable used to decide when adjacent comments may be
	Xconsidered a single block. A search string which allows only
	Xwhitespace between comments.")
	X
	X      (make-variable-buffer-local 'tek-highlight-done-this-buffer)
	X      (make-variable-buffer-local 'tek-highlight-comment-continue-regexp)
	X
	X
	X      (defvar tek-highlight-merge-comments t
	X	"\
	X*If non-nil then adjacent comments which are separated only by
	Xwhitespace may be merged, i.e. highlighted by a single button which
	Xruns from the start of the first comment to the end of the last
	Xcomment. This variable is t by default, as this results in a
	Xsignificant speedup in syntaxes which have newline-terminated
	Xcomments. It should be set to nil if the comment highlighting style
	Xmakes whitespace visible. Underlining and changing the background
	Xcolor are two things that do this.")
	X
	X
	X      ;
	X      ; Function which does the actual highlighting
	X      ;
	X      (defun tek-highlight-comments ()
	X	"\
	XActual source code highlighting function. Called by
	Xtek-highlight-comments-on-find and tek-highlight-comments-on-write."
	X	; Silently do nothing if there are no regexps to search with.
	X	(if (and syndecode-comment-start-regexp
	X		 syndecode-comment-end-regexp)
	X	    (let ((starting-point (point-min))
	X		  comment-start-begin
	X		  comment-start-end
	X		  comment-end-end)
	X	      (save-excursion
	X		(goto-char (point-min))
	X		; Algorithm is: search for start of a comment,
	X		; make sure it really is a comment; then highlight
	X		; from there to the end of the comment.
	X		;
	X		; First, find a comment-start sequence.
	X		(while (re-search-forward syndecode-comment-start-regexp
	X					  nil t)
	X		  (progn
	X		    (setq comment-start-begin (match-beginning 0))
	X		    (setq comment-start-end (match-end 0))
	X		    ; Check that the comment start sequence really does
	X		    ; indicate the start of a comment, and that it's not
	X		    ; inside a string etc.
	X		    (setq state (parse-partial-sexp
	X				 starting-point comment-start-end))
	X		    (if (nth 4 state)
	X			; Yes, this is really the start of a comment
	X			(progn
	X			  (goto-char comment-start-end)
	X			  ; Find the end of the comment by searching
	X			  ; for a comment terminating sequence
	X			  (re-search-forward syndecode-comment-end-regexp
	X					     nil t)
	X			  (setq comment-end-end (point))
	X			  ; Now, searches are faster than adding buttons,
	X			  ; so see if we can extend this button to cover any
	X			  ; following comments.
	X			  (while (and tek-highlight-merge-comments
	X				      (looking-at
	X				       tek-highlight-comment-continue-regexp))
	X			    (progn (re-search-forward
	X				    tek-highlight-comment-continue-regexp
	X				    nil t)
	X				   (re-search-forward
	X				    syndecode-comment-end-regexp
	X				    nil t)
	X				   (setq comment-end-end (point))))
	X			  ; Highlight the comment
	X			  (add-button comment-start-begin comment-end-end
	X				      tek-src-comment-attribute)
	X			  ; Start the next syntax parse at the end of the
	X			  ; comment just processed.
	X			  (setq starting-point comment-end-end)
	X			  )))))
	X	      ; Set a flag to indicate there are highlighted comments in
	X	      ; this buffer.
	X	      (setq tek-highlight-done-this-buffer t)
	X	      ))) ; end of defun
	X
	X
	X      ; Function to be called by find-file-hooks.
	X      (defun tek-highlight-comments-on-find ()
	X	"\
	XFunction to highlight all the comments in the current buffer. Intended
	Xto be called by find-file-hooks."
	X	; Extract comment details from the current syntax table. This will
	X	; do nothing if this function has already been run in this buffer.
	X	(decode-syntax-table)
	X	(if syndecode-comment-start-regexp
	X	    (setq tek-highlight-comment-continue-regexp
	X		  (concat "[ \t\n]*\\(" syndecode-comment-start-regexp
	X			  "\\)")))
	X	(tek-highlight-comments))
	X
	X
	X      ; Function to be called by write-file-hooks.
	X      (defun tek-highlight-comments-on-write ()
	X	"\
	XFunction to highlight all the comments in the current buffer. Intended
	Xto be called by write-file-hooks."
	X	; Check to see if there is any highlighting currently in effect
	X	(if tek-highlight-done-this-buffer
	X	    ; If so, remove & redo highlighting.
	X	    (progn
	X	      ; Clean up first - saves memory
	X	      (clear-buttons)
	X	      (tek-highlight-comments)))
	X	; Have to return nil or write-file-hooks will get stuffed up.
	X	nil)
	X
	X
	X      )) ; end: running-epoch test
SHAR_EOF
if test 7566 -ne "`wc -c < 'tek-src-hilite.el'`"
then
	echo shar: error transmitting "'tek-src-hilite.el'" '(should have been 7566 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'tek-info-buttons.el'" '(6494 characters)'
if test -f 'tek-info-buttons.el'
then
	echo shar: will not over-write existing file "'tek-info-buttons.el'"
else
sed 's/^	X//' << \SHAR_EOF > 'tek-info-buttons.el'
	X;*****************************************************************************
	X;
	X; Filename:	tek-info-buttons.el
	X;
	X; Copyright (C) 1991  Ken Wood
	X;
	X; This program is free software; you can redistribute it and/or modify
	X; it under the terms of the GNU General Public License as published by
	X; the Free Software Foundation; either version 1, or (at your option)
	X; any later version.
	X;
	X; This program is distributed in the hope that it will be useful,
	X; but WITHOUT ANY WARRANTY; without even the implied warranty of
	X; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
	X; GNU General Public License for more details.
	X;
	X; You should have received a copy of the GNU General Public License
	X; along with this program; if not, write to the Free Software
	X; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
	X;
	X; Author:		Ken Wood, <kwood@austek.oz.au>
	X; Organisation:		Austek Microsystems Pty Ltd, Australia.
	X; Released with permission from Austek Microsystems.
	X;
	X; Original concept by:	David Carlton (carlton@linus.mitre.org or 
	X;			carlton@husc9.harvard.edu).
	X;
	X; Description:	Epoch support for Dave Gillespie's "Kitchen Sink" info
	X;		browser. Provides button highlighting and mouse bindings
	X;		which match those Dave provides under emacs.
	X;
	X;		Button styles may be customised by means of X11 resources.
	X;		The resource name to use is "info".
	X;		See the file tek-style-utils.el for details.
	X;
	X;		See the INSTALL file that comes with this package for
	X;		installation details.
	X;
	X;*****************************************************************************
	X
	X; $Id: tek-info-buttons.el,v 1.3 1991/10/18 07:43:45 kwood Exp $
	X
	X(require 'epoch-running)
	X(provide 'tek-info-buttons)
	X
	X; Put the whole guts inside a test to get it to compile under emacs.
	X(if running-epoch
	X    (progn
	X      
	X      (require 'tek-style-utils)
	X
	X      ; Regular expressions which should match all active areas in info
	X      ; pages.
	X      (defvar Info-header-button-regexp
	X	"Up:\\|Next:\\|File:\\|Prev:\\|Previous:"
	X	"Regexp used when searching the header for Info buttons to highlight.")
	X
	X      (defvar Info-button-regexp
	X	(format "\\*%s[ \n][^:]+::?\\|^\\* [^:]+::?" Info-footnote-tag)
	X	"\
	XRegexp used when searching for Info buttons to highlight outside the header.")
	X
	X      ; Set up the highlighting attribute first
	X      
	X      (defvar Info-button-foreground "blue"
	X	"\
	XForeground color used for info buttons if no value is defined in the
	XX11 resources and the display device supports color. On monochrome
	Xscreens a different font is used in place of the different color.")
	X
	X      (defvar Info-button-attribute (reserve-attribute)
	X	"Attribute used for displaying info buttons.")
	X
	X      (defvar Info-button-style
	X	; If the display supports multiple colors and a default color
	X	; is specified, define the style to use a different color.
	X	(if (and (> (number-of-colors) 2) Info-button-foreground)
	X	    (tek-build-style "info" nil nil
	X			     Info-button-foreground (background)
	X			     (background) (foreground))
	X	  ; Otherwise, define the style to use a different font.
	X	  (tek-build-style "info" nil (or tek-bold-fixed-font
	X					  tek-italic-bold-fixed-font
	X					  tek-italic-fixed-font)
	X			   (foreground) (background)
	X			   (background) (foreground)))
	X	"Style used to display characters in info buttons.")
	X
	X      ;Bind the info style to the info attribute
	X      (set-attribute-style Info-button-attribute Info-button-style)
	X
	X
	X      (defvar Info-mouse-map (create-mouse-map mouse::global-map)
	X	"Mousemap for Info buttons.")
	X
	X
	X      ; Bind the mouse buttons to useful functions.
	X      
	X      (define-mouse Info-mouse-map mouse-left mouse-down
	X	'Info-mouse-scroll-up)
	X      (define-mouse Info-mouse-map mouse-middle mouse-down
	X	'Info-mouse-select-item)
	X      (define-mouse Info-mouse-map mouse-right mouse-down
	X	'Info-mouse-scroll-down)
	X      (define-mouse Info-mouse-map mouse-left mouse-shift
	X	'Info-mouse-next)
	X      (define-mouse Info-mouse-map mouse-middle mouse-shift
	X	'Info-mouse-last)
	X      (define-mouse Info-mouse-map mouse-right mouse-shift
	X	'Info-mouse-prev)
	X      (define-mouse Info-mouse-map mouse-middle mouse-control
	X	'Info-mouse-up)
	X
	X
	X      (defun Info-setup-mouse-map ()
	X	"Use the Info mouse bindings in the current buffer."
	X	(use-local-mouse-map Info-mouse-map))
	X
	X      (defun Info-setup-buttons ()
	X	"Setup all buttons in an info-node."
	X	(clear-buttons)
	X	(save-excursion
	X	  ; Set up header buttons.
	X	  (goto-char (point-min))
	X	  (forward-line 1)
	X	  (let ((line2-start (point)))
	X	    (goto-char (point-min))
	X	    ; Search for header buttons will be bound by the start
	X	    ; of the second line.
	X	    (while (re-search-forward Info-header-button-regexp line2-start t)
	X	      (add-button (match-beginning 0) (match-end 0)
	X			  Info-button-attribute)))
	X	  ; Setup menu and cross-reference buttons. Point should already
	X	  ; be at the start of the second line in the buffer.
	X	  (while (re-search-forward Info-button-regexp nil t)
	X	    (if (not (string-equal
	X		      (buffer-substring (match-beginning 0)
	X					(match-end 0))
	X		      "* Menu:"))
	X		(add-button (match-beginning 0) (match-end 0)
	X			    Info-button-attribute)))))
	X
	X      
	X      (defun Info-mouse-select-item (mouse-data)
	X	"Select the info node at the mouse cursor."
	X	(let ((orig-window (selected-window)))
	X	  (select-window (nth 2 mouse-data))
	X	  (Info-follow-nearest-node (car mouse-data))
	X	  (select-window orig-window)))
	X      
	X      (defun Info-mouse-scroll-up (mouse-data)
	X	(let ((orig-window (selected-window)))
	X	  (select-window (nth 2 mouse-data))
	X	  (scroll-up nil)
	X	  (select-window orig-window)))
	X      
	X      (defun Info-mouse-scroll-down (mouse-data)
	X	(let ((orig-window (selected-window)))
	X	  (select-window (nth 2 mouse-data))
	X	  (scroll-down nil)
	X	  (select-window orig-window)))
	X      
	X      (defun Info-mouse-prev (mouse-data)
	X	(let ((orig-window (selected-window)))
	X	  (select-window (nth 2 mouse-data))
	X	  (Info-prev)
	X	  (select-window orig-window)))
	X      
	X      (defun Info-mouse-next (mouse-data)
	X	(let ((orig-window (selected-window)))
	X	  (select-window (nth 2 mouse-data))
	X	  (Info-next)
	X 	  (select-window orig-window)))
	X     
	X      (defun Info-mouse-up (mouse-data)
	X	(let ((orig-window (selected-window)))
	X	  (select-window (nth 2 mouse-data))
	X	  (Info-up)
	X 	  (select-window orig-window)))
	X     
	X      (defun Info-mouse-last (mouse-data)
	X	(let ((orig-window (selected-window)))
	X	  (select-window (nth 2 mouse-data))
	X	  (Info-last)
	X	  (select-window orig-window)))
	X      
	X      )) ; end: running-epoch test
SHAR_EOF
if test 6494 -ne "`wc -c < 'tek-info-buttons.el'`"
then
	echo shar: error transmitting "'tek-info-buttons.el'" '(should have been 6494 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'tek-vm-hilite.el'" '(5464 characters)'
if test -f 'tek-vm-hilite.el'
then
	echo shar: will not over-write existing file "'tek-vm-hilite.el'"
else
sed 's/^	X//' << \SHAR_EOF > 'tek-vm-hilite.el'
	X;*****************************************************************************
	X;
	X; Filename:	tek-vm-hilite.el
	X;
	X; Copyright (C) 1991  Ken Wood
	X;
	X; This program is free software; you can redistribute it and/or modify
	X; it under the terms of the GNU General Public License as published by
	X; the Free Software Foundation; either version 1, or (at your option)
	X; any later version.
	X;
	X; This program is distributed in the hope that it will be useful,
	X; but WITHOUT ANY WARRANTY; without even the implied warranty of
	X; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
	X; GNU General Public License for more details.
	X;
	X; You should have received a copy of the GNU General Public License
	X; along with this program; if not, write to the Free Software
	X; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
	X;
	X; Author:		Ken Wood, <kwood@austek.oz.au>
	X; Organisation:		Austek Microsystems Pty Ltd, Australia.
	X; Released with permission from Austek Microsystems.
	X;
	X; Description:	Highlight fields in messages displayed by the VM
	X;		mailer under epoch.
	X;
	X;		Button styles may be customised by means of X11 resources.
	X;		The resource names to use are "VM-from" and
	X;		"VM-subject". See the file tek-style-utils.el for details.
	X;
	X;		See the INSTALL file that comes with this package for
	X;		installation details.
	X;
	X;*****************************************************************************
	X
	X; $Id: tek-vm-hilite.el,v 1.3 1991/10/18 07:44:20 kwood Exp $
	X
	X(provide 'tek-vm-hilite)
	X(require 'epoch-running)
	X
	X(if running-epoch
	X    (progn
	X      
	X      (require 'tek-style-utils)
	X
	X      (defvar tek-vm-from-foreground "blue3"
	X	"\
	XForeground color used to highlight From: fields in VM if no value is
	Xdefined in the X11 resources and the display device supports color. On
	Xmonochrome screens a different font is used in place of the different
	Xcolor.")
	X
	X      (defvar tek-vm-from-attribute (reserve-attribute)
	X	"\
	XAttribute used for displaying From: fields in mail messages displayed
	Xby VM.")
	X
	X      (defvar tek-vm-from-style
	X	; If the display supports multiple colors and a default color
	X	; is specified, define the style to use a different color.
	X	(if (and (> (number-of-colors) 2) tek-vm-from-foreground)
	X	    (tek-build-style "VM-from"
	X			     nil nil
	X			     tek-vm-from-foreground (background)
	X			     (background) (foreground))
	X	  ; Otherwise, define the style to use a different font.
	X	  (tek-build-style "VM-from" nil (or tek-italic-bold-fixed-font
	X						 tek-bold-fixed-font
	X						 tek-italic-fixed-font)
	X			   (foreground) (background)
	X			   (background) (foreground)))
	X	"\
	XStyle used to display From: fields in mail messages displayed by VM.")
	X
	X      ;Bind the from-style to the from-attribute
	X      (set-attribute-style tek-vm-from-attribute
	X			   tek-vm-from-style)
	X
	X
	X      (defvar tek-vm-subject-foreground "red3"
	X	"\
	XForeground color used to highlight Subject: fields in VM if no value is
	Xdefined in the X11 resources and the display device supports color. On
	Xmonochrome screens a different font is used in place of the different
	Xcolor.")
	X
	X      (defvar tek-vm-subject-underline "red3"
	X	"\
	XForeground color used to underline Subject: fields in VM if no value is
	Xdefined in the X11 resources and the display device supports color. On
	Xmonochrome screens a different font is used in place of the different
	Xcolor.")
	X
	X      (defvar tek-vm-subject-attribute (reserve-attribute)
	X	"\
	XAttribute used for displaying Subject: fields in mail messages displayed
	Xby VM.")
	X
	X      (defvar tek-vm-subject-style
	X	; If the display supports multiple colors and a default color
	X	; is specified, define the style to use a different color.
	X	(if(and (> (number-of-colors) 2)
	X		(or tek-vm-subject-underline
	X		    tek-vm-subject-foreground))
	X	    (tek-build-style "VM-subject" nil nil
	X			     tek-vm-subject-foreground (background)
	X			     (background) (foreground)
	X			     tek-vm-subject-underline)
	X	  (tek-build-style "VM-subject" nil
	X			   (or tek-bold-fixed-font
	X			       tek-italic-bold-fixed-font
	X			       tek-italic-fixed-font)
	X			   (foreground) (background)
	X			   (background) (foreground)
	X			   (foreground))))
	X
	X      ;Bind the subject-style to the subject-attribute
	X      (set-attribute-style tek-vm-subject-attribute
	X       tek-vm-subject-style)
	X
	X
	X      ; Define the highlighting function. Basically just redefine the
	X      ; standard VM function so it uses epoch buttons.
	X      (defun vm-highlight-headers (message window)
	X	"\
	XHighlight From: and Subject: fields in mail messages displayed by
	XVM."
	X	(let ((debug-on-error t))
	X	      (save-excursion
	X	       ;; As of v18.52, this call to save-window-excursion is needed!
	X	       ;; Somehow window point can get fouled in here, and drag the
	X	       ;; buffer point along with it.  This problem only manifests
	X	       ;; itself when operating VM from the summary buffer, subsequent
	X	       ;; to using vm-beginning-of-message or vm-end-of-message.
	X	       ;; After running a next or previous message command, point
	X	       ;; somehow ends up at the end of the message.
	X	      (save-window-excursion
	X		 (progn
	X		   (clear-buttons)
	X		   (goto-char (point-min))
	X		   (if (re-search-forward "^From: \\(.*\\)" nil t)
	X		       (add-button (match-beginning 1) (match-end 1)
	X				   tek-vm-from-attribute))
	X		   (goto-char (point-min))
	X		   (if (re-search-forward "^Subject: \\(.*\\)" nil t)
	X		       (add-button (match-beginning 1) (match-end 1)
	X				   tek-vm-subject-attribute))
	X		   )))))
	X      )) ; end: running-epoch test
SHAR_EOF
if test 5464 -ne "`wc -c < 'tek-vm-hilite.el'`"
then
	echo shar: error transmitting "'tek-vm-hilite.el'" '(should have been 5464 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'tek-gnus-hilite.el'" '(5377 characters)'
if test -f 'tek-gnus-hilite.el'
then
	echo shar: will not over-write existing file "'tek-gnus-hilite.el'"
else
sed 's/^	X//' << \SHAR_EOF > 'tek-gnus-hilite.el'
	X;*****************************************************************************
	X;
	X; Filename:	tek-gnus-hilite.el
	X;
	X; Copyright (C) 1991  Ken Wood
	X;
	X; This program is free software; you can redistribute it and/or modify
	X; it under the terms of the GNU General Public License as published by
	X; the Free Software Foundation; either version 1, or (at your option)
	X; any later version.
	X;
	X; This program is distributed in the hope that it will be useful,
	X; but WITHOUT ANY WARRANTY; without even the implied warranty of
	X; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
	X; GNU General Public License for more details.
	X;
	X; You should have received a copy of the GNU General Public License
	X; along with this program; if not, write to the Free Software
	X; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
	X;
	X; Author:		Ken Wood, <kwood@austek.oz.au>
	X; Organisation:		Austek Microsystems Pty Ltd, Australia.
	X; Released with permission from Austek Microsystems.
	X;
	X; Description:	Highlight fields in articles displayed by the GNUS
	X;		newsreader under epoch.
	X;
	X;		Button styles may be customised by means of X11 resources.
	X;		The resource names to use are "gnus-from" and
	X;		"gnus-subject". See the file tek-style-utils.el for details.
	X;
	X;		See the INSTALL file that comes with this package for
	X;		installation details.
	X;
	X;*****************************************************************************
	X
	X; $Id: tek-gnus-hilite.el,v 1.3 1991/10/18 07:43:39 kwood Exp $
	X
	X(provide 'tek-gnus-hilite)
	X(require 'epoch-running)
	X
	X(if running-epoch
	X    (progn
	X      
	X      (require 'tek-style-utils)
	X
	X      (defvar tek-gnus-from-foreground "blue3"
	X	"\
	XForeground color used to highlight From: fields in GNUS if no value is
	Xdefined in the X11 resources and the display device supports color. On
	Xmonochrome screens a different font is used in place of the different
	Xcolor.")
	X
	X      (defvar tek-gnus-from-attribute (reserve-attribute)
	X	"\
	XAttribute used for displaying From: fields in news articles displayed
	Xby gnus.")
	X
	X      (defvar tek-gnus-from-style
	X	; If the display supports multiple colors and a default color
	X	; is specified, define the style to use a different color.
	X	(if (and (> (number-of-colors) 2) tek-gnus-from-foreground)
	X	    (tek-build-style "gnus-from"
	X			     nil nil
	X			     tek-gnus-from-foreground (background)
	X			     (background) (foreground))
	X	  ; Otherwise, define the style to use a different font.
	X	  (tek-build-style "gnus-from" nil (or tek-italic-bold-fixed-font
	X						 tek-bold-fixed-font
	X						 tek-italic-fixed-font)
	X			   (foreground) (background)
	X			   (background) (foreground)))
	X	"\
	XStyle used to display From: fields in news articles displayed by GNUS.")
	X
	X      ;Bind the from-style to the from-attribute
	X      (set-attribute-style tek-gnus-from-attribute
	X			   tek-gnus-from-style)
	X
	X
	X      (defvar tek-gnus-subject-foreground "red3"
	X	"\
	XForeground color used to highlight Subject: fields in GNUS if no value is
	Xdefined in the X11 resources and the display device supports color. On
	Xmonochrome screens a different font is used in place of the different
	Xcolor.")
	X
	X      (defvar tek-gnus-subject-underline "red3"
	X	"\
	XForeground color used to underline Subject: fields in GNUS if no value is
	Xdefined in the X11 resources and the display device supports color. On
	Xmonochrome screens a different font is used in place of the different
	Xcolor.")
	X
	X      (defvar tek-gnus-subject-attribute (reserve-attribute)
	X	"\
	XAttribute used for displaying Subject: fields in news articles displayed
	Xby GNUS.")
	X
	X      (defvar tek-gnus-subject-style
	X	; If the display supports multiple colors and a default color
	X	; is specified, define the style to use a different color.
	X	(if(and (> (number-of-colors) 2)
	X		(or tek-gnus-subject-underline
	X		    tek-gnus-subject-foreground))
	X	    (tek-build-style "gnus-subject" nil nil
	X			     tek-gnus-subject-foreground (background)
	X			     (background) (foreground)
	X			     tek-gnus-subject-underline)
	X	  (tek-build-style "gnus-subject" nil
	X			   (or tek-bold-fixed-font
	X			       tek-italic-bold-fixed-font
	X			       tek-italic-fixed-font)
	X			   (foreground) (background)
	X			   (background) (foreground)
	X			   (foreground))))
	X
	X      ;Bind the subject-style to the subject-attribute
	X      (set-attribute-style tek-gnus-subject-attribute
	X       tek-gnus-subject-style)
	X
	X
	X      ; Define the highlighting function
	X      (defun tek-article-hilite ()
	X	"\
	XHighlight From: and Subject: fields in news articles displayed by
	XGNUS."
	X	(let (
	X	      (starting-buffer (current-buffer))
	X	      )
	X	  (set-buffer gnus-Article-buffer)
	X	  (save-excursion
	X	    (clear-buttons)
	X	    (goto-char (point-min))
	X	    (if (re-search-forward "^From: \\(.*\\)" nil t)
	X		(add-button (match-beginning 1) (match-end 1)
	X			    tek-gnus-from-attribute))
	X	    (goto-char (point-min))
	X	    (if (re-search-forward "^Subject: \\(.*\\)" nil t)
	X		(add-button (match-beginning 1) (match-end 1)
	X			    tek-gnus-subject-attribute))
	X	    )
	X	  (set-buffer starting-buffer)))
	X
	X
	X      ; Set up the hook to run the highlighting function after displaying
	X      ; each article. Have to explicitly set the variable to an assumed
	X      ; value, since the default GNUS setup doesn't initialise it to
	X      ; a proper list of hook functions.
	X      (setq gnus-Select-article-hook (list 'gnus-Subject-show-thread
	X					   'tek-article-hilite))
	X      
	X      )) ; end: running-epoch test
SHAR_EOF
if test 5377 -ne "`wc -c < 'tek-gnus-hilite.el'`"
then
	echo shar: error transmitting "'tek-gnus-hilite.el'" '(should have been 5377 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'README'" '(5132 characters)'
if test -f 'README'
then
	echo shar: will not over-write existing file "'README'"
else
sed 's/^	X//' << \SHAR_EOF > 'README'
	X		Documentation for tek-epoch-stuff1.0.0
	X		======================================
	X
	XThis release is a bundle of emacs-lisp packages for epoch 3.2.2,
	Xmainly related to highlighting. A couple of packages may be of
	Xinterest to non-epoch users, namely the manual browser and the
	Xsyntax-decode stuff. Read on for details.
	X
	XI don't have time to look at epoch V4 just now, so if somebody else
	Xwould like to port it to V4 please let me know so we can coordinate
	Xour efforts.
	X
	XNote: much of this code is based on code originally written by others.
	XThough I won't mention them here, their names are preserved in the
	Xsource files and I'd like to thank them for their efforts.
	X
	XFor instructions on how to install & use the packages in this release,
	Xsee the file INSTALL. The remainder of this file is documentation on
	Xthe packages themselves.
	X
	X
	XIn Brief
	X========
	X
	XHere is a list of the packages included, and a brief overview of their
	Xfeatures:
	X
	X* Enhanced manual browser: runs in background; supports multiple man
	Xbuffers; man buffers are in a special mode with local key & mouse
	Xbindings; sections of man page are highlighted under epoch. I know
	Xthere are a lot of manual browsers out there, but I think this one is
	Xpretty neat - check it out and tell me what you think.
	X
	X* Comment highlighting in source code buffers: comment structure is
	Xdetermined from the current syntax table; highlighting updated on
	Xfind-file and save-buffer. Several other people have released comment
	Xhighlighting packages, but this is the most complete & elegant
	Xsolution I've seen. Because the comment structure is determined in a
	Xgeneric manner it will work with any editing mode that has a valid
	Xsyntax table. I've tried to optimise it too, and it's reasonably quick.
	X
	X* Interface to Dave Gillespies info browser (included): provides epoch
	Xmouse bindings and highlighting. Once again, this is the most complete
	Ximplementation I've seen, and is reasonably quick (although
	Xsuggestions for improving the speed of any of these packages are very
	Xwelcome).
	X
	X* Header highlighting in news articles displayed under GNUS.
	XHighlights "From:" and "Subject:" fields in news articles.
	X
	X* Header highlighting in mail messages displayed under VM. Highlights
	X"From:" and "Subject:" fields in mail messages.
	X
	X* Customisation of motion highlighting style. Allows you to change the
	Xstyle used to highlight mouse drag regions by setting X resources.
	X
	X* The highlighting styles used in all of the above packages are
	Xinitialised by a package which looks up the X resource database to
	Xfind the appropriate option settings. All of the packages have
	Xsensible defaults though, so you can get started without settting up
	Xany X resources at all: on a color display different colors are used
	Xfor highlighting; on a monochrome display an italic or bold font, the
	Xsame height and width as the minibuffer font, is used for
	Xhighlighting.  See the file tek-style-utils.el for details of how to
	Xcustomise your highlighting styles.
	X
	X
	XManifest
	X========
	X
	X-rw-r--r--   1 condor   tech         7742 Oct 17  1990 COPYING
	X-rw-rw-r--   1 kwood    tech         1572 Oct 18 18:14 INSTALL
	X-rw-rw-r--   1 kwood    tech         5132 Oct 18 18:28 README
	X-r--r-----   1 kwood    tech         1087 Oct 16 14:55 epoch-running.el
	X-rw-rw-r--   1 kwood    tech          942 Aug 23 16:48 get-font.patch
	X-r--r-----   1 kwood    tech         2333 Oct 16 17:40 maclib-toolbox.el
	X-r--r-----   1 kwood    tech        10292 Oct 18 17:18 syntax-decode.el
	X-r--r-----   1 kwood    tech         1548 Oct 18 17:13 tek-gnus-hilite-setup.el
	X-r--r-----   1 kwood    tech         5377 Oct 18 17:13 tek-gnus-hilite.el
	X-r--r-----   1 kwood    tech         6494 Oct 18 17:13 tek-info-buttons.el
	X-r--r-----   1 kwood    tech         1880 Oct 18 17:19 tek-info-setup.el
	X-r--r-----   1 kwood    tech        66401 Oct 16 17:40 tek-info.el
	X-r--r-----   1 kwood    tech         1555 Oct 18 17:18 tek-man-setup.el
	X-r--r-----   1 kwood    tech        28005 Oct 16 17:38 tek-man.el
	X-r--r-----   1 kwood    tech         2481 Oct 18 17:13 tek-motion-setup.el
	X-r--r-----   1 kwood    tech         1938 Oct 18 17:14 tek-src-hilite-setup.el
	X-r--r-----   1 kwood    tech         7566 Oct 18 17:14 tek-src-hilite.el
	X-r--r-----   1 kwood    tech        18204 Oct 18 17:07 tek-style-utils.el
	X-r--r-----   1 kwood    tech         1530 Oct 18 17:14 tek-vm-hilite-setup.el
	X-r--r-----   1 kwood    tech         5464 Oct 18 17:14 tek-vm-hilite.el
	X
	X
	XOther Details
	X=============
	X
	XThe source code highlighting package uses a package I wrote called
	Xsyntax-decode, which extracts the comment structure for the current
	Xmajor mode from the current syntax table. This package could easily be
	Xmodified to extract other data from the syntax table as well, so let
	Xme know if you have a use for it.
	X
	XThis package also stores the data thus extracted in an alist, to avoid
	Xdecoding the same syntax table more than once. This makes it a little
	Xfaster in modes which it's seen before.
	X
	X
	XBugs
	X====
	X
	XThere are probably a few, so feel free to send me (Ken Wood) a bug
	Xreport at kwood@austek.oz.au . I will try and look at it, but I won't
	Xpromise anything.
	X
	X
	X			   === The End ===
SHAR_EOF
if test 5132 -ne "`wc -c < 'README'`"
then
	echo shar: error transmitting "'README'" '(should have been 5132 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'tek-motion-setup.el'" '(2481 characters)'
if test -f 'tek-motion-setup.el'
then
	echo shar: will not over-write existing file "'tek-motion-setup.el'"
else
sed 's/^	X//' << \SHAR_EOF > 'tek-motion-setup.el'
	X;*****************************************************************************
	X;
	X; Filename:	tek-motion-setup.el
	X;
	X; Copyright (C) 1991  Ken Wood
	X;
	X; This program is free software; you can redistribute it and/or modify
	X; it under the terms of the GNU General Public License as published by
	X; the Free Software Foundation; either version 1, or (at your option)
	X; any later version.
	X;
	X; This program is distributed in the hope that it will be useful,
	X; but WITHOUT ANY WARRANTY; without even the implied warranty of
	X; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
	X; GNU General Public License for more details.
	X;
	X; You should have received a copy of the GNU General Public License
	X; along with this program; if not, write to the Free Software
	X; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
	X;
	X; Author:		Ken Wood, <kwood@austek.oz.au>
	X; Organisation:		Austek Microsystems Pty Ltd, Australia.
	X; Released with permission from Austek Microsystems.
	X;
	X; Description:	Set up the highlighting style used for mouse drag regions
	X;		under epoch.
	X;
	X;		The button style may be customised by means of X11 resources.
	X;		The resource name to use is "motion".
	X;		See the file tek-style-utils.el for details.
	X;
	X;*****************************************************************************
	X
	X; $Id: tek-motion-setup.el,v 1.3 1991/10/18 07:43:52 kwood Exp $
	X
	X(require 'epoch-running)
	X(provide 'tek-motion-setup)
	X
	X(if running-epoch
	X    (progn
	X      
	X      (require 'motion)
	X      (require 'tek-style-utils)
	X
	X      (defvar tek-motion-foreground "goldenrod1"
	X	"\
	XForeground color used to underline the drag region if no value is
	Xdefined in the X11 resources and the display device supports color.")
	X
	X      (defvar tek-motion-underline "goldenrod1"
	X	"\
	XForeground color used to underline the drag region if no value is
	Xdefined in the X11 resources and the display device supports color.")
	X
	X      (if(and (> (number-of-colors) 2)
	X	      (or tek-motion-underline tek-motion-foreground))
	X	  (tek-build-style "motion" motion::style
	X			   (or tek-bold-fixed-font
	X			       tek-italic-bold-fixed-font
	X			       tek-italic-fixed-font)
	X			   tek-motion-foreground (background)
	X			   (background) (foreground)
	X			   tek-motion-underline)
	X	(tek-build-style "motion" motion::style
	X			 (or tek-bold-fixed-font
	X			     tek-italic-bold-fixed-font
	X			     tek-italic-fixed-font)
	X			 (foreground) (background)
	X			 (background) (foreground)
	X			 (foreground)))
	X      )) ; end: running-epoch test
SHAR_EOF
if test 2481 -ne "`wc -c < 'tek-motion-setup.el'`"
then
	echo shar: error transmitting "'tek-motion-setup.el'" '(should have been 2481 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'maclib-toolbox.el'" '(2333 characters)'
if test -f 'maclib-toolbox.el'
then
	echo shar: will not over-write existing file "'maclib-toolbox.el'"
else
sed 's/^	X//' << \SHAR_EOF > 'maclib-toolbox.el'
	X;*****************************************************************************
	X;
	X; Filename:	maclib-toolbox.el
	X;
	X; Author:		as attributed below.
	X; Posted by:		Ken Wood, <kwood@austek.oz.au>
	X; Organisation:		Austek Microsystems Pty Ltd, Australia.
	X;
	X; Description:	Miscellaneous useful programming tools.
	X;
	X;*****************************************************************************
	X
	X; $Id: maclib-toolbox.el,v 1.4 1991/10/16 08:09:58 kwood Exp $
	X
	X(provide 'maclib-toolbox)
	X
	X
	X;********** Adding to hooks *********
	X
	X; Author: Daniel LaLiberte, <liberte@cs.uiuc.edu>
	X
	X(defun prepend-unique-hook (hook-var hook-function)
	X  "Prepend HOOK-VAR with HOOK-FUNCTION, if it is not already an element.
	Xhook-var's value may be a single function or a list of functions."
	X  (if (boundp hook-var)
	X      (let ((value (symbol-value hook-var)))
	X	(if (and (listp value) (not (eq (car value) 'lambda)))
	X	    (and (not (memq hook-function value))
	X		 (set hook-var
	X		      (cons hook-function value)))
	X	  (and (not (eq hook-function value))
	X	       (set hook-var
	X		    (list hook-function value)))))
	X    (set hook-var (list hook-function))
	X    ))
	X
	X(defun postpend-unique-hook (hook-var hook-function)
	X  "Postpend HOOK-VAR with HOOK-FUNCTION, if it is not already an element.
	Xhook-var's value may be a single function or a list of functions."
	X  (if (boundp hook-var)
	X      (let ((value (symbol-value hook-var)))
	X	(if (and (listp value) (not (eq (car value) 'lambda)))
	X	    (and (not (memq hook-function value))
	X		 (set hook-var
	X		      (append value (list hook-function ))))
	X	  (and (not (eq hook-function value))
	X	       (set hook-var
	X		    (append value (list hook-function))))))
	X    (set hook-var (list hook-function))
	X    ))
	X
	X
	X; Author: Lynn Slater, <lrs@indetech.com>
	X
	X(defun true-mode-name ()
	X  "Returns the name of the mode in such a form that the mode may be
	X  re-established by calling the function named by appending '-name' to
	X  this string.  This differs from the variable called mode-name in that
	X  this is guaranteed to work while the values held by the variable may
	X  have embedded spaces or other junk.
	X
	X  THIS MODE NAME IS GUARANTEED OK TO USE IN THE MODE LINE."
	X  (let ((major-mode-name (symbol-name major-mode)))
	X    (substring major-mode-name 0
	X	       (or   (string-match "-mode" major-mode-name)
	X		     (length major-mode-name)))))
SHAR_EOF
if test 2333 -ne "`wc -c < 'maclib-toolbox.el'`"
then
	echo shar: error transmitting "'maclib-toolbox.el'" '(should have been 2333 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'tek-src-hilite-setup.el'" '(1938 characters)'
if test -f 'tek-src-hilite-setup.el'
then
	echo shar: will not over-write existing file "'tek-src-hilite-setup.el'"
else
sed 's/^	X//' << \SHAR_EOF > 'tek-src-hilite-setup.el'
	X;*****************************************************************************
	X;
	X; Filename:	tek-src-hilite-setup.el
	X;
	X; Copyright (C) 1991  Ken Wood
	X;
	X; This program is free software; you can redistribute it and/or modify
	X; it under the terms of the GNU General Public License as published by
	X; the Free Software Foundation; either version 1, or (at your option)
	X; any later version.
	X;
	X; This program is distributed in the hope that it will be useful,
	X; but WITHOUT ANY WARRANTY; without even the implied warranty of
	X; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
	X; GNU General Public License for more details.
	X;
	X; You should have received a copy of the GNU General Public License
	X; along with this program; if not, write to the Free Software
	X; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
	X;
	X; Author:		Ken Wood, <kwood@austek.oz.au>
	X; Organisation:		Austek Microsystems Pty Ltd, Australia.
	X; Released with permission from Austek Microsystems.
	X;
	X; Description:	Set up to do comment highlighting in source code buffers.
	X;		Highlighting is updated on find-file and save-buffer.
	X;
	X;		See the INSTALL file that comes with this package for
	X;		installation details.
	X;
	X;*****************************************************************************
	X
	X; $Id: tek-src-hilite-setup.el,v 1.2 1991/10/18 07:43:59 kwood Exp $
	X
	X(require 'maclib-toolbox)
	X(require 'epoch-running)
	X(provide 'tek-src-hilite-setup)
	X
	X(if running-epoch
	X    (progn
	X      ; Update buttons when files are loaded or saved.
	X      (postpend-unique-hook 'find-file-hooks
	X			   'tek-highlight-comments-on-find)
	X      (postpend-unique-hook 'write-file-hooks
	X			   'tek-highlight-comments-on-write)
	X
	X      ; Where to find the comment highlighting functions.
	X      (autoload 'tek-highlight-comments-on-find
	X		"tek-src-hilite" "autoloadable function" t)
	X      (autoload 'tek-highlight-comments-on-write
	X		"tek-src-hilite" "autoloadable function" t)
	X      ))
SHAR_EOF
if test 1938 -ne "`wc -c < 'tek-src-hilite-setup.el'`"
then
	echo shar: error transmitting "'tek-src-hilite-setup.el'" '(should have been 1938 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'tek-info-setup.el'" '(1880 characters)'
if test -f 'tek-info-setup.el'
then
	echo shar: will not over-write existing file "'tek-info-setup.el'"
else
sed 's/^	X//' << \SHAR_EOF > 'tek-info-setup.el'
	X;*****************************************************************************
	X;
	X; Filename:	tek-info-setup.el
	X;
	X; Copyright (C) 1991  Ken Wood
	X;
	X; This program is free software; you can redistribute it and/or modify
	X; it under the terms of the GNU General Public License as published by
	X; the Free Software Foundation; either version 1, or (at your option)
	X; any later version.
	X;
	X; This program is distributed in the hope that it will be useful,
	X; but WITHOUT ANY WARRANTY; without even the implied warranty of
	X; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
	X; GNU General Public License for more details.
	X;
	X; You should have received a copy of the GNU General Public License
	X; along with this program; if not, write to the Free Software
	X; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
	X;
	X; Author:		Ken Wood, <kwood@austek.oz.au>
	X; Organisation:		Austek Microsystems Pty Ltd, Australia.
	X; Released with permission from Austek Microsystems.
	X;
	X; Description:	Set up to use Dave Gillespie's "kitchen sink" info browser
	X;		under epoch. Provides highlighting and mouse bindings.
	X;
	X;		See the INSTALL file that comes with this package for
	X;		installation details.
	X;
	X;*****************************************************************************
	X
	X; $Id: tek-info-setup.el,v 1.4 1991/10/18 07:48:59 kwood Exp $
	X
	X(require 'epoch-running)
	X(provide 'tek-info-setup)
	X
	X(if (fboundp 'info)
	X    (fmakunbound 'info))
	X
	X(if running-epoch
	X    (progn
	X      
	X      (defun tek-info-init-for-epoch ()
	X	"Initialise the info browser for use under epoch."
	X	(require 'tek-info-buttons))
	X
	X
	X      (prepend-unique-hook 'Info-load-hook 'tek-info-init-for-epoch)
	X      (prepend-unique-hook 'Info-mode-hook 'Info-setup-mouse-map)
	X      (prepend-unique-hook 'Info-select-hook 'Info-setup-buttons)
	X      ))
	X
	X; Load emacs-based info
	X(autoload 'info "tek-info" "autoloadable function" t)
SHAR_EOF
if test 1880 -ne "`wc -c < 'tek-info-setup.el'`"
then
	echo shar: error transmitting "'tek-info-setup.el'" '(should have been 1880 characters)'
fi
fi # end of overwriting check
#	End of shell archive
exit 0


Ken Wood, Austek Microsystems, Technology Park, Adelaide, SA 5095, Australia
INTERNET:  kwood@austek.oz.au  UUCP: uunet.uu.net!munnari!austek.oz.au!kwood
------- End of forwarded message -------