Anonymous avatar Anonymous committed 7d55a9b

Import from CVS: tag r20-1b11

Comments (0)

Files changed (235)

 							-*- indented-text -*-
+to 20.1 beta11
+-- Move lisp/auctex/style/*.el to etc/auctex/style/.
+-- regenerated finder database (every lisp file should have a Keywords: line)
+-- VM-6.23
+-- dired-1.15-x4
+-- time-1.13
+-- xmine-1.2
+-- More MS Windows NT patches Courtesy of Marc Paquette
+-- webster-www.el Courtesy of Tomasz Cholewo
+-- webster.el, webster-ucb.el removed from distribution
+-- movemail imported from Emacs 19.34 (With POP/Hesiod/Kerberos support)
+-- Custom-1.69
+-- miscellaneous bug fixes
+-- W3-3.0.79
+-- Gnus-5.4.40
+-- GNATS/send-pr fixes, should work now
+-- edmacro-3.07
+-- configure fixes
+-- cc-mode-4.390
+-- restore inline.c
+
 to 20.1 beta10
 -- custom-1.68 [Beyond 19.15]
 -- W3-3.0.75
+Sat Apr  5 09:11:36 1997  Steven L Baur  <steve@altair.xemacs.org>
+
+	* XEmacs 20.1-b11 is released.
+
+Wed Apr  2 15:27:35 1997  Steven L Baur  <steve@altair.xemacs.org>
+
+	* Makefile.in (install-only): New target.  Functionality suggested 
+	by Larry Schwimmer, correct way of doing it suggested by Chuck
+	Thompson.
+
+	* configure.in: Default to "-Olimit 2000" as suggested by Jamie
+	Zawinski for SGI cc and Irix 6.
+
+Tue Apr  1 12:23:13 1997  Steven L Baur  <steve@altair.xemacs.org>
+
+	* configure.in: Add configuration parameters for Emacs 19.34
+	movemail.c (--with-pop, --with-kerberos, --with-hesiod).
+
+Fri Mar 28 19:58:41 1997  Steven L Baur  <steve@altair.xemacs.org>
+
+	* configure.in: Remove garbage if [ ... ] constructs and a
+	mispatch.
+
 Thu Mar 27 18:24:19 1997  Steven L Baur  <steve@altair.xemacs.org>
 
 	* XEmacs 20.1-b10 is released.
 # Boston, MA 02111-1307, USA.
 
 # make all	to compile and build XEmacs.
-# make install	to install it.
+# make install	to build and install it.
+# make install-only	to install after a previous complete build
 # make TAGS	to update tags tables.
 #
 # make clean  or  make mostlyclean
 ## inconsistency in the build process.  So we go ahead and depend on
 ## all.  --cet
 
+install-only: ${MAKE_SUBDIR} install-arch-dep install-arch-indep
+
 install: all install-arch-dep install-arch-indep;
 
 install-arch-dep: mkdir
 			to run.
 --usage-tracking	Enable some Sun-internal code.  If you don't
 			know what this is, you don't want it.
+--with-pop		support POP for mail retrieval
+--with-kerberos		support Kerberos-authenticated POP
+--with-hesiod		support Hesiod to get the POP server host
 
 Internationalization options:
 
 	with_energize	| \
 	with_sparcworks | \
 	with_tooltalk   | \
+	with_pop	| \
+	with_kerberos	| \
+	with_hesiod	| \
 	external_widget | \
 	extra_verbose   | \
 	const_is_losing | \
   ## Iris 4D
   mips-sgi-irix3.*      ) machine=iris4d opsys=irix3-3 ;;
   mips-sgi-irix4.*      ) machine=iris4d opsys=irix4-0 ;;
-  mips-sgi-irix6*       ) machine=iris4d opsys=irix6-0 ;;
+  mips-sgi-irix6*       ) machine=iris4d
+			opsys=irix6-0
+			NON_GNU_CC="cc -Olimit 2000" ;;
   mips-sgi-irix5.[3-9]* ) machine=iris4d opsys=irix5-3 ;;
   mips-sgi-irix5.2*     ) machine=iris4d opsys=irix5-2 ;;
   mips-sgi-irix5.1*     ) machine=iris4d opsys=irix5-1 ;;
   esac
 elif test "${dynamic}" = "no" ; then
   case "${opsys}" in
-    sol2* | decosf1-3 | decosf3-* | linux ) opsys="${opsys}-static" ;;
+    sol2* | decosf1-3 | decosf3-* | decosf4-* | linux ) opsys="${opsys}-static" ;;
   esac
 fi
 
     # In the IRIX 5.3 ld, only the last -rpath arg has any effect.  This is 
     # fundamentaly incompatible with having separate LD_SWITCH_X_SITE
     # and LD_SWITCH_SITE variables.  Fortunately, SGI fixed this by 6.2.
-    if [ -n "${x_libraries}" ] || [ -n "${site_runtime_libraries}" ]; then
+    if test -n "${x_libraries}" || test -n "${site_runtime_libraries}" ; then
       (echo "WARNING: The IRIX 5 ld ignores all but the last -rpath argument,";
        echo "         so if you need to specify more than one additional";
        echo "         runtime library directory, you will have to do so";
 CPP=`eval "echo $CPP"`
 eval `${CPP} -Isrc ${tempcname} \
        | grep 'configure___' \
-       | sed -n -e 's/^configure___ \(^=*=\)\(.*\)$/\1"\2"/p'`
+       | sed -n -e 's/^configure___ \([^=]*=\)\(.*\)$/\1"\2"/p'`
 if test "x$SPECIFIED_CFLAGS" = x ; then
   eval `${CPP} -Isrc -DTHIS_IS_CONFIGURE ${tempcname} \
 	 | grep 'configure___' \
-	 | sed -n -e 's/^configure___ \(^=*=\)\(.*\)$/\1"\2"/p'`
+	 | sed -n -e 's/^configure___ \([^=]*=\)\(.*\)$/\1"\2"/p'`
 else
   REAL_CFLAGS="$CFLAGS"
 fi
 
 #### Add the libraries to LIBS and check for some functions.
 
-]
+
 CPPFLAGS="${C_SWITCH_SITE} $c_switch_system $c_switch_machine $c_switch_x_system $CPPFLAGS"
 DEFS="${C_SWITCH_SITE} $c_switch_system $c_switch_machine $c_switch_x_system $DEFS"
 LIBS="${LD_SWITCH_SITE} $ld_switch_x_system $libsrc_libs $LIBS"
     case "${arg}" in
 	-L*) if test -f `echo "${arg}/libtt.a" | sed 's/^\-L//'` ; then
 		 dash_r=''
-		 if  "${add_runtime_flag}" = "yes" ; then
+		 if test "${add_runtime_flag}" = "yes" ; then
 		     dash_r=`echo ${arg} | sed "s/^-L */${runtime_arg}/"`
 		 fi
 		 LD_SWITCH_X_SITE="${LD_SWITCH_X_SITE} ${arg} ${dash_r}"
 "
 }
 
+test "${with_pop}" = yes && 
+{
+test -n "$verbose" && \
+echo "	defining MAIL_USE_POP"
+echo "#define" MAIL_USE_POP "1" >> confdefs.h
+DEFS="$DEFS -DMAIL_USE_POP=1"
+ac_sed_defs="${ac_sed_defs}\${ac_dA}MAIL_USE_POP\${ac_dB}MAIL_USE_POP\${ac_dC}1\${ac_dD}
+\${ac_uA}MAIL_USE_POP\${ac_uB}MAIL_USE_POP\${ac_uC}1\${ac_uD}
+\${ac_eA}MAIL_USE_POP\${ac_eB}MAIL_USE_POP\${ac_eC}1\${ac_eD}
+"
+}
+
+test "${with_kerberos}" = yes && 
+{
+test -n "$verbose" && \
+echo "	defining KERBEROS"
+echo "#define" KERBEROS "1" >> confdefs.h
+DEFS="$DEFS -DKERBEROS=1"
+ac_sed_defs="${ac_sed_defs}\${ac_dA}KERBEROS\${ac_dB}KERBEROS\${ac_dC}1\${ac_dD}
+\${ac_uA}KERBEROS\${ac_uB}KERBEROS\${ac_uC}1\${ac_uD}
+\${ac_eA}KERBEROS\${ac_eB}KERBEROS\${ac_eC}1\${ac_eD}
+"
+}
+
+test "${with_hesiod}" = yes && 
+{
+test -n "$verbose" && \
+echo "	defining HESIOD"
+echo "#define" HESIOD "1" >> confdefs.h
+DEFS="$DEFS -DHESIOD=1"
+ac_sed_defs="${ac_sed_defs}\${ac_dA}HESIOD\${ac_dB}HESIOD\${ac_dC}1\${ac_dD}
+\${ac_uA}HESIOD\${ac_uB}HESIOD\${ac_uC}1\${ac_uD}
+\${ac_eA}HESIOD\${ac_eB}HESIOD\${ac_eC}1\${ac_eD}
+"
+}
+
 
 test "${error_check_extents}" = yes && 
 {
 
 
 
-echo "$0 $configure_args" >> Installation
+(
+echo "uname -a: `uname -a`" 
+echo "" 
+echo "$0 $configure_args" 
+) >> Installation
 # Start stdout redirection to '| tee -a Installation'
 (
 echo "
 elif test -n "$site_runtime_libraries"; then
   echo "  Additional libraries:                                   ${site_runtime_libraries}"
 fi
-if test "$with_wnn"; then
+if test "$with_wnn" = yes ; then
   echo "  Finding WNN includes with:                              ${wnn_includes}"
   echo "  Loading WNN libs with:                                  ${wnn_libraries}"
 fi
 test "$with_database_dbm"    = yes && echo "  Compiling in support for DBM."
 test "$with_database_gnudbm" = yes && echo "  Compiling in support for GNU DBM."
 
-test "$with_ncurses"  = yes && echo "  Compiling in support for ncurses."
+test "$have_ncurses"  = yes && echo "  Compiling in support for ncurses."
 test "$with_socks"    = yes && echo "  Compiling in support for SOCKS."
 
 test "$with_mule"     = yes && echo "  Compiling in Mule (multi-lingual) support."
 test "$with_dialogs"    = motif  && echo "  Using the Motif dialog boxes."
 test "$with_dialogs"    = athena && echo "  Using the Athena dialog boxes."
 test "$with_dialogs"    = athena3d && echo "  Using the Athena-3d dialog boxes."
+test "$with_pop"	= yes && "Using POP for mail access"
+test "$with_kerberos"	= yes && "Using Kerberos for POP authentication"
+test "$with_hesiod"	= yes && "Using Hesiod to get POP server host"
 
 test "${use_union_type}"     = yes && echo "  Using the union type for Lisp_Objects."
 test "${debug}"              = yes && echo "  Compiling in extra code for debugging."
 test "${memory_usage_stats}" = yes && echo "  Compiling in code for checking XEmacs memory usage."
 test "$usage_tracking"       = yes && echo "  Compiling with usage tracking active (Sun internal)."
+echo ""
 ) | tee -a Installation
-echo " | tee -a Installation
-"
+echo 'The above configure report is appended to "Installation" file.'
+echo ""
+
 
  
 # Remove any trailing slashes in these variables.
 			to run.
 --usage-tracking	Enable some Sun-internal code.  If you don't
 			know what this is, you don't want it.
+--with-pop		support POP for mail retrieval
+--with-kerberos		support Kerberos-authenticated POP
+--with-hesiod		support Hesiod to get the POP server host
 
 Internationalization options:
 
 	with_energize	| \
 	with_sparcworks | \
 	with_tooltalk   | \
+	with_pop	| \
+	with_kerberos	| \
+	with_hesiod	| \
 	external_widget | \
 	extra_verbose   | \
 	const_is_losing | \
   ## Iris 4D
   mips-sgi-irix3.*      ) machine=iris4d opsys=irix3-3 ;;
   mips-sgi-irix4.*      ) machine=iris4d opsys=irix4-0 ;;
-  mips-sgi-irix6*       ) machine=iris4d opsys=irix6-0 ;;
+  mips-sgi-irix6*       ) machine=iris4d
+			opsys=irix6-0
+			NON_GNU_CC="cc -Olimit 2000" ;;
   mips-sgi-irix5.[3-9]* ) machine=iris4d opsys=irix5-3 ;;
   mips-sgi-irix5.2*     ) machine=iris4d opsys=irix5-2 ;;
   mips-sgi-irix5.1*     ) machine=iris4d opsys=irix5-1 ;;
   esac
 elif test "${dynamic}" = "no" ; then
   case "${opsys}" in
-    sol2* | decosf1-3 | decosf3-* | linux ) opsys="${opsys}-static" ;;
+    sol2* | decosf1-3 | decosf3-* | decosf4-* | linux ) opsys="${opsys}-static" ;;
   esac
 fi
 
     # In the IRIX 5.3 ld, only the last -rpath arg has any effect.  This is 
     # fundamentaly incompatible with having separate LD_SWITCH_X_SITE
     # and LD_SWITCH_SITE variables.  Fortunately, SGI fixed this by 6.2.
-    if [ -n "${x_libraries}" ] || [ -n "${site_runtime_libraries}" ]; then
+    if test -n "${x_libraries}" || test -n "${site_runtime_libraries}" ; then
       (echo "WARNING: The IRIX 5 ld ignores all but the last -rpath argument,";
        echo "         so if you need to specify more than one additional";
        echo "         runtime library directory, you will have to do so";
 esac
 
 if test -n "${x_libraries}" ; then
-    if test "${add_runtime_flag}" = "yes" ]; then
+    if test "${add_runtime_flag}" = "yes" ; then
 	LD_SWITCH_X_SITE="-L${x_libraries} ${runtime_arg}${x_libraries}"
   else
     LD_SWITCH_X_SITE="-L${x_libraries}"
     case "${arg}" in
 	-L*) if test -f `echo "${arg}/libtt.a" | sed 's/^\-L//'` ; then
 		 dash_r=''
-		 if [ "${add_runtime_flag}" = "yes" ]; then
+		 if test "${add_runtime_flag}" = "yes" ; then
 		     dash_r=`echo ${arg} | sed "s/^-L */${runtime_arg}/"`
 		 fi
 		 LD_SWITCH_X_SITE="${LD_SWITCH_X_SITE} ${arg} ${dash_r}"
 IF_YES_AC_DEFINE(debug,          DEBUG_XEMACS)
 IF_YES_AC_DEFINE(quantify,       QUANTIFY)
 IF_YES_AC_DEFINE(memory_usage_stats, MEMORY_USAGE_STATS)
+IF_YES_AC_DEFINE(with_pop,	 MAIL_USE_POP)
+IF_YES_AC_DEFINE(with_kerberos,	 KERBEROS)
+IF_YES_AC_DEFINE(with_hesiod,	 HESIOD)
 
 IF_YES_AC_DEFINE(error_check_extents,   ERROR_CHECK_EXTENTS)
 IF_YES_AC_DEFINE(error_check_typecheck, ERROR_CHECK_TYPECHECK)
 dnl #                     Report on what we decided to do                      #
 dnl ############################################################################
 
-echo "$0 $configure_args" >> Installation
+(
+echo "uname -a: `uname -a`" 
+echo "" 
+echo "$0 $configure_args" 
+) >> Installation
 # Start stdout redirection to '| tee -a Installation'
 (
 echo "
 elif test -n "$site_runtime_libraries"; then
   echo "  Additional libraries:                                   ${site_runtime_libraries}"
 fi
-if test "$with_wnn"; then
+if test "$with_wnn" = yes ; then
   echo "  Finding WNN includes with:                              ${wnn_includes}"
   echo "  Loading WNN libs with:                                  ${wnn_libraries}"
 fi
 test "$with_database_dbm"    = yes && echo "  Compiling in support for DBM."
 test "$with_database_gnudbm" = yes && echo "  Compiling in support for GNU DBM."
 
-test "$with_ncurses"  = yes && echo "  Compiling in support for ncurses."
+test "$have_ncurses"  = yes && echo "  Compiling in support for ncurses."
 test "$with_socks"    = yes && echo "  Compiling in support for SOCKS."
 
 test "$with_mule"     = yes && echo "  Compiling in Mule (multi-lingual) support."
 test "$with_dialogs"    = motif  && echo "  Using the Motif dialog boxes."
 test "$with_dialogs"    = athena && echo "  Using the Athena dialog boxes."
 test "$with_dialogs"    = athena3d && echo "  Using the Athena-3d dialog boxes."
+test "$with_pop"	= yes && "Using POP for mail access"
+test "$with_kerberos"	= yes && "Using Kerberos for POP authentication"
+test "$with_hesiod"	= yes && "Using Hesiod to get POP server host"
 
 test "${use_union_type}"     = yes && echo "  Using the union type for Lisp_Objects."
 test "${debug}"              = yes && echo "  Compiling in extra code for debugging."
 test "${memory_usage_stats}" = yes && echo "  Compiling in code for checking XEmacs memory usage."
 test "$usage_tracking"       = yes && echo "  Compiling with usage tracking active (Sun internal)."
+echo ""
 ) | tee -a Installation
-echo " | tee -a Installation
-"
+echo 'The above configure report is appended to "Installation" file.'
+echo ""
+
 dnl ############################################################################
 dnl #                                Now generate!                             #
 dnl ############################################################################

etc/auctex/style/amsart.el

+;;; amsart.el --- AMS article style hook.
+
+;;; Code:
+
+(TeX-add-style-hook "amsart"
+ (function
+  (lambda ()
+    (TeX-run-style-hooks "amstex"))))
+
+;;; amsart.el ends here.

etc/auctex/style/amsbook.el

+;;; amsbook.el --- AMS book style hook.
+
+;;; Code:
+
+(TeX-add-style-hook "amsbook"
+ (function
+  (lambda ()
+    (TeX-run-style-hooks "amstex"))))
+
+;;; amsbook.el ends here.

etc/auctex/style/amstex.el

+;;; amstex.el --- AMS LaTeX support.
+
+;;; Code:
+
+(TeX-add-style-hook "amstex"
+ (function
+  (lambda ()
+    (TeX-add-symbols
+     '("eqref" TeX-arg-label)))))
+
+;;; amstex.el ends here.

etc/auctex/style/article.el

+;;; article.el - Special code for article style.
+
+;; $Id: article.el,v 1.1 1997/04/05 17:56:45 steve Exp $
+
+;;; Code:
+
+(TeX-add-style-hook "article"
+ (function (lambda ()
+  (setq LaTeX-largest-level (LaTeX-section-level "section")))))
+
+;;; article.el ends here

etc/auctex/style/book.el

+;;; book.el - Special code for book style.
+
+;; $Id: book.el,v 1.1 1997/04/05 17:56:45 steve Exp $
+
+;;; Code:
+
+(TeX-add-style-hook "book"
+ (function (lambda () 
+  (setq LaTeX-largest-level (LaTeX-section-level "chapter")))))
+
+;;; book.el ends here

etc/auctex/style/dinbrief.el

+;;; dinbrief.el - Special code for LaTeX-Style dinbrief.
+
+;; Contributed by Werner Fink <tex@itap.physik.uni-stuttgart.de>
+;; Please direct comments to him.
+
+;;; Commentary:
+
+;; LaTeX-Style: dinbrief.sty
+;;      Server: rusinfo.rus.uni-stuttgart.de
+;;   Directory: /pub/soft/tex/macros/latex/contrib/letters
+
+;;; Code:
+
+(TeX-add-style-hook "dinbrief"
+ (function
+  (lambda ()
+    (LaTeX-add-environments
+     '("letter" LaTeX-recipient-hook))
+    (TeX-add-symbols
+     '("Absender" "Absender: ")
+     '("Postvermerk" "Postvermerk: ")
+     '("Datum" "Datum: ")
+     '("Betreff" "Betreff: ")
+     '("Behandlungsvermerk" "Behandlungsvermerk: ")
+     '("Verteiler" "Verteiler: ")
+     "makelabel" "Retourlabel"
+     '("Anlagen" "Anlagen: ")
+     '("Fenster" "Fenster \(ja/nein\): ")
+     '("Retouradresse" "Retouradresse: ")
+     '("signature" "Unterschrift: ")
+     '("opening" "Anrede: ")
+     '("closing" "Schlu\"s: ")))))
+
+(defun LaTeX-recipient-hook (environment)
+  "Insert ENVIRONMENT and prompt for recipient and address."
+  (let ((sender (read-input "Absender: " (user-full-name)))
+	(recipient (read-input "Empf\"anger: "))
+	(address (read-input "Anschrift: "))
+	(postvermerk (read-input "Postvermerk: "))
+	(date (read-input "Datum: " (LaTeX-today)))
+	(betreff (read-input "Betreff: "))
+	(vermerk (read-input "Behandlungsvermerk: "))
+	(verteil (read-input "Verteiler: "))
+	(anlage (read-input "Anlagen: "))
+	(opening (read-input "Anrede: "))
+	(closing (read-input "Schlu\"s: "))
+	(fenster (read-input "Fenster \(ja/nein\): "))
+	(signature (read-input "Unterschrift: "))
+	)
+
+    (if (not (zerop (length sender)))
+	(progn
+	  (insert TeX-esc "Absender" TeX-grop sender TeX-grcl)
+	  (newline-and-indent)))
+    (if (not (zerop (length postvermerk)))
+	(progn
+	  (insert TeX-esc "Postvermerk" TeX-grop postvermerk TeX-grcl)
+	  (newline-and-indent)))
+    (if (not (zerop (length betreff)))
+	(progn
+	  (insert TeX-esc "Betreff" TeX-grop betreff TeX-grcl)
+	  (newline-and-indent)))
+    (if (not (zerop (length vermerk)))
+	(progn
+	  (insert TeX-esc "Behandlungsvermerk" TeX-grop vermerk TeX-grcl)
+	  (newline-and-indent)))
+    (if (not (zerop (length verteil)))
+	(progn
+	  (insert TeX-esc "Verteiler" TeX-grop verteil TeX-grcl)
+	  (newline-and-indent)))
+    (if (not (zerop (length anlage)))
+	(progn
+	  (insert TeX-esc "Anlagen" TeX-grop anlage TeX-grcl)
+	  (newline-and-indent)))
+    (if (string= fenster "ja")
+	(progn
+	  (insert TeX-esc "Fenster")
+	  (let ((retouradr (read-input "Retouradresse: " (user-full-name))))
+	    (newline-and-indent)
+	  (if (not (zerop (length retouradr)))
+	      (progn
+		(insert TeX-esc "Retouradresse" TeX-grop retouradr TeX-grcl)
+		(newline-and-indent))))))
+    (if (not (zerop (length signature)))
+	(progn
+	  (insert TeX-esc "signature" TeX-grop signature TeX-grcl)
+	  (newline-and-indent)))
+    (if (not (zerop (length date)))
+	(progn
+	  (insert TeX-esc "Datum" TeX-grop date TeX-grcl)
+	  (newline-and-indent)))
+    (newline-and-indent)
+
+    (let ((indentation (current-column)))
+      (LaTeX-insert-environment
+       environment
+       (concat TeX-grop recipient
+	       (if (not (zerop (length address)))
+		   (concat
+		    (if (not (zerop (length recipient)))
+			(concat " " TeX-esc TeX-esc " "))
+		    address))
+	       TeX-grcl))
+      (save-excursion			; Fix indentation of address
+	(if (search-backward TeX-grcl nil 'move)
+	    (let ((addr-end (point-marker)))
+	      (if (search-backward TeX-grop nil 'move)
+		  (let ((addr-column (current-column)))
+		    (while (search-forward
+			    (concat TeX-esc TeX-esc)
+			    (marker-position addr-end) 'move)
+		      (progn
+			(newline)
+			(indent-to addr-column))))))))
+      (insert "\n")
+      (indent-to indentation))
+    (insert TeX-esc "opening"
+	    TeX-grop
+	    (if (zerop (length opening))
+		(concat TeX-esc " ")
+	      opening)
+	    TeX-grcl "\n")
+
+    (indent-relative-maybe)
+    (save-excursion
+      (insert "\n" TeX-esc "closing"
+	      TeX-grop
+	      (if (zerop (length closing))
+		  (concat TeX-esc " ")
+		closing)
+	      TeX-grcl "\n")
+      (indent-relative-maybe))))
+
+(defun LaTeX-today nil
+  "Return a string representing todays date according to flavor."
+  (interactive)
+   (let ((ctime-string (current-time-string))
+	(month-alist '(("Jan" . "Januar")
+		       ("Feb" . "Februar")
+		       ("Mar" . "M\\\"arz")
+		       ("Apr" . "April")
+		       ("May" . "Mai")
+		       ("Jun" . "Juni")
+		       ("Jul" . "Juli")
+		       ("Aug" . "August")
+		       ("Sep" . "September")
+		       ("Oct" . "Oktober")
+		       ("Nov" . "November")
+		       ("Dec" . "Dezember"))))
+    (string-match
+     "^\\S-+\\s-+\\(\\S-+\\)\\s-+\\(\\S-+\\)\\s-+\\S-+\\s-+\\(\\S-+\\)"
+     ctime-string)
+    (let ((year (substring ctime-string (match-beginning 3) (match-end 3)))
+	  (month (substring ctime-string (match-beginning 1) (match-end 1)))
+	  (day (substring ctime-string (match-beginning 2) (match-end 2))))
+      (if (assoc month month-alist)
+	  (progn
+	    (setq month (cdr (assoc month month-alist)))
+	    (if (> 2 (length day))
+		(setq day (concat "0" day)))))
+      (format "Stuttgart, den %s. %s %s" day month year))))
+
+;;; dinbrief.el ends here

etc/auctex/style/dk.el

+;;; dk.el - Setup AUC TeX for editing Danish text.
+
+;; $Id: dk.el,v 1.1 1997/04/05 17:56:45 steve Exp $
+
+;;; Code:
+
+(TeX-add-style-hook "dk"
+ (function (lambda ()
+   (run-hooks 'TeX-language-dk-hook))))
+
+;;; dk.el ends here

etc/auctex/style/dutch.el

+;;; dutch.el - Setup AUC TeX for editing Dutch text.
+
+;; $Id: dutch.el,v 1.1 1997/04/05 17:56:45 steve Exp $
+
+;;; Code:
+
+(TeX-add-style-hook "dutch"
+ (function (lambda ()
+   (run-hooks 'TeX-language-nl-hook))))
+
+;;; dutch.el ends here

etc/auctex/style/epsf.el

+;;; epsf.el - Support for the epsf style option.
+
+;; Contributed by Marc Gemis <makke@wins.uia.ac.be>
+
+;;; Code: 
+
+(TeX-add-style-hook "epsf"
+ (function
+  (lambda ()
+    (TeX-add-symbols
+     '("epsfsize" TeX-arg-epsfsize)
+     '("epsffile" TeX-arg-file)
+     '("epsfbox" TeX-arg-file)
+     "epsflly" "epsfury" "testit" "epsfgetlitbb"
+     "epsfnormal" "epsfgetbb" "other" "epsfsetgraph"
+     "PsFragSpecialArgs" "epsfaux" "testit" "epsfgrab"
+     "epsfllx" "epsflly" "epsfury" "epsfverbosetrue"
+     )
+    (LaTeX-add-environments
+     '("epsffig" LaTeX-env-epsffigure)
+     )
+
+    )))
+
+
+(defun LaTeX-env-epsffigure (environment)
+  "Create a `figure'-environment with \\label and \\caption and \\epsfbox
+commands. Eventually a `psfrags'-environment is inserted round the \\epsfbox."
+
+  (let ((float (read-input "Float to: " LaTeX-float))
+	(caption (read-input "Caption: "))
+	(label (read-input "Label: " LaTeX-figure-label))
+        ; gf: ask if there is an psfrag environment needed
+	(psfrag (y-or-n-p "PS fragments: "))
+	(psfile (read-file-name "EPS-file: " "" "" nil))
+	)
+
+    (setq LaTeX-float (if (zerop (length float))
+			  LaTeX-float
+			float))
+
+    (LaTeX-insert-environment "figure"
+			      (concat LaTeX-optop LaTeX-float LaTeX-optcl))
+    (LaTeX-insert-environment "center")
+    (if psfrag
+	(progn
+	  (LaTeX-insert-environment "psfrags")
+	  (newline-and-indent)
+	  ))
+    (if (or (zerop (length label))
+	    (and (string= "figure" environment)
+		 (equal LaTeX-figure-label label))
+	    )
+	()
+      (newline-and-indent)
+      (insert TeX-esc "label" TeX-grop label TeX-grcl)
+      (end-of-line 0)
+      (LaTeX-indent-line))
+
+
+    (newline-and-indent)
+    (insert TeX-esc "leavevmode")
+    (newline-and-indent)
+    (insert TeX-esc "epsfbox" TeX-grop psfile TeX-grcl)
+    (if (zerop (length caption))
+	()
+      (newline-and-indent)
+      (insert TeX-esc "caption" TeX-grop caption TeX-grcl))
+    (newline)
+    (forward-line 4)
+    (newline)
+
+))
+
+(defun TeX-arg-epsfsize (optional &optional prompt definition)
+  "Create a line that print epsf figures at a certain percentage"
+  (interactive)
+  (let ((scale (read-input "Scale (%): "))
+	)
+    (setq scalestr (if (zerop (length scale))
+		       "75"
+		     (format "%s" scale)
+		     ))
+    (save-excursion
+      ; append #1#{scale#1}
+      (insert "#1#2" TeX-grop "0." scale "#1" TeX-grcl)
+      ; insert \def before \epsfsize
+      (beginning-of-line 1)
+      (newline)
+      (insert TeX-esc "def")
+      (forward-line -1)
+      (insert "% From now on print figures at " scale "% of original size")
+      )
+    (end-of-line)))
+
+;;; epsf.el ends here

etc/auctex/style/foils.el

+;;; foils.el - Special code for FoilTeX.
+
+;; $Id: foils.el,v 1.1 1997/04/05 17:56:45 steve Exp $
+
+;;; Code:
+
+(require 'latex)
+
+(TeX-add-style-hook "foils"
+ (function
+  (lambda ()
+    (add-hook 'LaTeX-document-style-hook 'LaTeX-style-foils)
+    (setq LaTeX-default-style "foils")
+    (setq LaTeX-default-options '("landscape"))
+    (TeX-add-symbols
+     '("foilhead" [ "Rubric-body separation" ] "Foil rubric")))))
+
+(defun LaTeX-style-foils nil
+  "Prompt for and insert foiltex options."
+  (require 'timezone)
+  (let* ((date (timezone-parse-date (current-time-string)))
+	 (year   (string-to-int (aref date 0)))
+	 (month  (string-to-int (aref date 1)))
+	 (day    (string-to-int (aref date 2)))
+	 (title (read-input "Title: ")))
+    (save-excursion
+      (goto-char (point-max))
+      (re-search-backward ".begin.document.")
+      (insert TeX-esc "title"
+	      TeX-grop title TeX-grcl "\n")
+      (insert TeX-esc "author"
+	      TeX-grop (user-full-name) TeX-grcl "\n")
+      (insert TeX-esc "date" TeX-grop
+	      (format "%d-%02d-%02d" year month day)
+	      TeX-grcl "\n")
+      (insert "" TeX-esc "\nMyLogo" TeX-grop TeX-grcl "\n")
+      (insert "%" TeX-esc "Restriction" TeX-grop TeX-grcl "\n")
+      (insert "%" TeX-esc "rightfooter" TeX-grop TeX-grcl "\n")
+      (insert "%" TeX-esc "leftheader" TeX-grop TeX-grcl "\n")
+      (insert "%" TeX-esc "rightheader" TeX-grop TeX-grcl "\n\n")
+      (re-search-forward ".begin.document.")
+      (end-of-line)
+      (newline-and-indent)
+      (insert "" TeX-esc "maketitle\n\n"))
+    (forward-line -1)))
+
+;;; foils.el ends here

etc/auctex/style/german.el

+;;; german.el - Setup AUC TeX for editing German text.
+
+;; $Id: german.el,v 1.1 1997/04/05 17:56:46 steve Exp $
+
+;;; Commentary:
+;;
+;; `german.sty' use `"' to give next character an umlaut.
+
+;;; Code:
+
+(defvar LaTeX-german-mode-syntax-table
+  (copy-syntax-table LaTeX-mode-syntax-table)
+  "Syntax table used in LaTeX mode when using `german.sty'.")
+
+(modify-syntax-entry ?\"  "w"  LaTeX-german-mode-syntax-table)
+
+(TeX-add-style-hook "german"
+ (function (lambda ()
+   (set-syntax-table LaTeX-german-mode-syntax-table)
+   (make-local-variable 'TeX-open-quote)
+   (make-local-variable 'TeX-close-quote)
+   (make-local-variable 'TeX-quote-after-quote)
+   (setq TeX-quote-after-quote t)
+   (setq TeX-open-quote "\"`")
+   (setq TeX-close-quote "\"'")
+   (run-hooks 'TeX-language-de-hook))))
+
+;;; german.el ends here

etc/auctex/style/harvard.el

+;; harvard.el --- Support for Harvard Citation style package for AUC-TeX
+
+;; Copyright (C) 1994 Berwin Turlach <berwin@core.ucl.ac.be>
+
+;; Version: $Id: harvard.el,v 1.1 1997/04/05 17:56:46 steve Exp $
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 1, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with this program; if not, write to the Free Software
+;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+;;; Commentary:
+
+;; Harvard citation style is from Peter Williams available on the CTAN
+;; servers
+
+;;; Code:
+
+(require 'latex)
+
+(TeX-add-style-hook "harvard"
+ (function
+  (lambda ()
+
+    (LaTeX-add-environments
+     '("thebibliography" LaTeX-env-harvardbib ignore))
+
+    (TeX-add-symbols
+     "harvardand"
+     '("citeasnoun"
+       (TeX-arg-conditional TeX-arg-cite-note-p ([ "Note" ]) nil)
+       TeX-arg-cite)
+     '("possessivecite"
+       (TeX-arg-conditional TeX-arg-cite-note-p ([ "Note" ]) nil)
+       TeX-arg-cite)
+     '("citeaffixed"
+       (TeX-arg-conditional TeX-arg-cite-note-p ([ "Note" ]) nil)
+       TeX-arg-cite "Affix")
+     '("citeyear"
+       (TeX-arg-conditional TeX-arg-cite-note-p ([ "Note" ]) nil)
+       TeX-arg-cite)
+     '("citename"
+       (TeX-arg-conditional TeX-arg-cite-note-p ([ "Note" ]) nil)
+       TeX-arg-cite)
+     '("citationstyle"
+       (TeX-arg-eval completing-read "Citation style: " '(("agsm") ("dcu"))))
+     '("citationmode"
+       (TeX-arg-eval completing-read "Citation mode: "
+                     '(("full") ("abbr") ("default"))))
+     '("harvardparenthesis"
+       (TeX-arg-eval completing-read "Harvardparenthesis: "
+                     '(("round") ("curly") ("angle") ("square"))))
+     '("bibliographystyle"
+       (TeX-arg-eval
+	completing-read "Bibliography style: "
+        '(("agsm") ("dcu") ("jmr") ("jphysicsB") ("kluwer") ("nederlands")))
+       ignore)
+     '("harvarditem" [ "Short citation" ]
+       "Complete citation" "Year" TeX-arg-define-cite))
+
+    (setq TeX-complete-list
+	  (append '(("\\\\citeasnoun{\\([^{}\n\m\\%]*\\)"
+		     1 LaTeX-bibitem-list "}")
+		    ("\\\\citeyear{\\([^{}\n\m\\%]*\\)"
+		     1 LaTeX-bibitem-list "}")
+		    ("\\\\citename{\\([^{}\n\m\\%]*\\)"
+		     1 LaTeX-bibitem-list "}"))
+		  TeX-complete-list))
+
+    (setq LaTeX-item-list
+	  (cons '("thebibliography" . LaTeX-item-harvardbib)
+		LaTeX-item-list)))))
+
+(defun LaTeX-env-harvardbib (environment &optional ignore)
+  "Insert ENVIRONMENT with label for harvarditem."
+  (LaTeX-insert-environment environment
+			    (concat TeX-grop "xx" TeX-grcl))
+  (end-of-line 0)
+  (delete-char 1)
+  (delete-horizontal-space)
+  (LaTeX-insert-item))
+
+;; Analog to LaTeX-item-bib from latex.el
+(defun LaTeX-item-harvardbib ()
+  "Insert a new harvarditem."
+  (TeX-insert-macro "harvarditem"))
+
+;; harvard.el ends here

etc/auctex/style/j-article.el

+;;; j-article.el - Special code for j-article style.
+
+;; $Id: j-article.el,v 1.1 1997/04/05 17:56:46 steve Exp $
+
+;;; Code:
+
+(TeX-add-style-hook "j-article"
+ (function (lambda ()
+  (setq LaTeX-largest-level (LaTeX-section-level "section")))))
+
+;;; j-article.el ends here

etc/auctex/style/j-book.el

+;;; j-book.el - Special code for j-book style.
+
+;; $Id: j-book.el,v 1.1 1997/04/05 17:56:46 steve Exp $
+
+;;; Code:
+
+(TeX-add-style-hook "j-book"
+ (function (lambda () (setq LaTeX-largest-level
+			    (LaTeX-section-level "chapter")))))
+
+;;; j-book.el ends here

etc/auctex/style/j-report.el

+;;; j-report.el - Special code for j-report style.
+
+;; $Id: j-report.el,v 1.1 1997/04/05 17:56:46 steve Exp $
+
+;;; Code:
+
+(TeX-add-style-hook "j-report"
+ (function (lambda () (setq LaTeX-largest-level
+			    (LaTeX-section-level "chapter")))))
+
+;;; j-report.el ends here

etc/auctex/style/jarticle.el

+;;; jarticle.el - Special code for jarticle style.
+
+;; $Id: jarticle.el,v 1.1 1997/04/05 17:56:46 steve Exp $
+
+;;; Code:
+
+(TeX-add-style-hook "jarticle"
+ (function (lambda () (setq LaTeX-largest-level 2))))
+
+;;; jarticle.el ends here

etc/auctex/style/jbook.el

+;;; jbook.el - Special code for jbook style.
+
+;; $Id: jbook.el,v 1.1 1997/04/05 17:56:46 steve Exp $
+
+;;; Code:
+
+(TeX-add-style-hook "jbook"
+ (function (lambda () (setq LaTeX-largest-level
+			    (LaTeX-section-level "chapter")))))
+
+;;; jbook.el ends here

etc/auctex/style/jreport.el

+;;; jreport.el - Special code for jreport style.
+
+;; $Id: jreport.el,v 1.1 1997/04/05 17:56:47 steve Exp $
+
+;;; Code:
+
+(TeX-add-style-hook "jreport"
+ (function (lambda () (setq LaTeX-largest-level
+			    (LaTeX-section-level "chapter")))))
+
+
+;;; jreport.el ends here

etc/auctex/style/latexinfo.el

+;;; latexinfo.el - Support for LaTeXinfo files.
+
+;; Copyright (C) 1993 Marc Gemis <makke@wins.uia.ac.be>
+
+;; Author: Marc Gemis <makke@wins.uia.ac.be>
+;; Version: $Id: latexinfo.el,v 1.1 1997/04/05 17:56:47 steve Exp $
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;; 
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;; 
+;; You should have received a copy of the GNU General Public License
+;; along with this program; if not, write to the Free Software
+;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+;;; Code:
+
+(require 'latex)
+
+;;; LaTeXinfo mode
+
+(defvar TeX-latexinfo-node-regexp
+  '("\\\\node[ \t]+\\([^,\n\r%]+\\)" 1 TeX-auto-label)
+  "Matches LaTeXinfo \\node commands, only current node will be found.
+We ignore next, previous and up fields.")
+
+(defvar LaTeXinfo-mode nil
+  "Non-nil means LaTeXinfo minor mode is active.")
+  (make-variable-buffer-local 'LaTeXinfo-mode)
+
+(defvar LaTeXinfo-mode-map nil
+  "Keymap containing LaTeXinfo commands.")
+
+(if LaTeXinfo-mode-map
+    ()
+  (setq LaTeXinfo-mode-map (make-sparse-keymap))
+  (define-key LaTeXinfo-mode-map "\C-c\C-u\C-b" 'latexinfo-format-buffer)
+  (define-key LaTeXinfo-mode-map "\C-c\C-u\C-r" 'latexinfo-format-region)
+  (define-key LaTeXinfo-mode-map "\C-c\C-u\C-s" 'latexinfo-show-structure)
+  (define-key LaTeXinfo-mode-map "\C-c\C-ud" 'makke:latexinfo-delete-structure)
+  (define-key LaTeXinfo-mode-map "\C-c\C-ug" 'latexinfo-goto-node)
+  (define-key LaTeXinfo-mode-map "\C-c\C-ui" 'makke:latexinfo-structure))
+
+(or (assq 'LaTeXinfo-mode minor-mode-map-alist)
+    (setq minor-mode-map-alist
+	  (cons (cons 'LaTeXinfo-mode LaTeXinfo-mode-map)
+		minor-mode-map-alist)))
+
+(defun TeX-arg-latexinfo-index (optional &optional prompt)
+  "Prompt for a LaTeXinfo index type with completion."
+  (TeX-argument-insert
+   (completing-read (TeX-argument-prompt optional prompt "Index")
+		    '(("cp") ("vr") ("fn") ("tp") ("pg") ("ky"))
+		    nil t)
+   optional))
+
+(defun LaTeX-item-latexinfo-menu ()
+  "Insert a new menu item"
+  (insert "* ::")
+  (backward-char 2))
+
+(defun latexinfo-goto-node () ; temporarily here, later in latexinfo-upd.el ??
+  "Place pointer on the node given by the user, read node with completion
+This fails when the user types in the label of something else"
+  (interactive)
+  (let ((node-name (completing-read "Goto Node: " (LaTeX-label-list))))
+    (goto-char (point-min))
+    (if (re-search-forward
+	 (concat
+	  TeX-esc "node[ \\t]+" node-name ","
+	  "\\|"
+	  TeX-esc "label{" LaTeX-section-label node-name
+	  "\\|"
+	  TeX-esc "label{" node-name
+	  )
+	 (point-max) t)
+	(beginning-of-line 1)
+    (error "No such node"))))
+
+;;; Hook
+
+(TeX-add-style-hook "latexinfo"
+ (function
+  (lambda ()
+    (require 'latexinfo)
+    (require 'latexinfo-structure)
+
+    (require 'min-map)
+    (setq LaTeXinfo-mode t)
+    
+    (TeX-auto-add-regexp TeX-latexinfo-node-regexp)
+
+    (TeX-add-symbols
+     '("node"
+       (TeX-arg-literal " ")
+       (TeX-arg-free TeX-arg-define-label "Node name")
+       (TeX-arg-literal ", ")
+       (TeX-arg-free TeX-arg-label "Next node")
+       (TeX-arg-literal ", ")
+       (TeX-arg-free TeX-arg-label "Previous node")
+       (TeX-arg-literal ", ")
+       (TeX-arg-free TeX-arg-label "Up node"))
+     '("setfilename" TeX-arg-file)
+
+     '("var" t)
+     '("dfn" t)
+     '("emph" t)
+     '("kbd" t)
+     '("code" t)
+     '("samp" t)
+     '("key" t)
+     '("ctrl" t)
+     '("file" t)
+
+     '("comment"
+       (TeX-arg-literal " ")
+       (TeX-arg-free "Comment"))
+     '("c"
+       (TeX-arg-literal " ")
+       (TeX-arg-free "Comment"))
+
+     '("cindex" t)
+     '("cpsubindex" 2)
+     '("cpindexbold" t)
+
+     '("newindex" TeX-arg-latexinfo-index)
+
+     '("br" nil)
+     '("w" "Text")
+     '("dots" nil)
+     '("refill" nil)
+     '("bullet" nil)
+     '("copyright" nil)
+     '("sp" nil)
+
+     '("xref" TeX-arg-label)
+     '("pxref" TeX-arg-label)
+     '("inforef"
+       (TeX-arg-literal "{")
+       (TeX-arg-free "Name of node")
+       (TeX-arg-literal ", ")
+       (TeX-arg-free "Name for note")
+       (TeX-arg-literal ", ")
+       (TeX-arg-free TeX-arg-file "Info file")
+       (TeX-arg-literal "}")))
+
+    (LaTeX-add-environments "menu" "tex" "ignore" "ifinfo" "iftex"
+			    "example" "same" "display" "format")
+
+    ; Menu's have a special kind of items
+    (make-local-variable 'LaTeX-item-list)
+    (setq LaTeX-item-list (cons '("menu" . LaTeX-item-latexinfo-menu)
+				LaTeX-item-list))
+
+    (make-local-variable 'TeX-font-list)
+    (setq TeX-font-list
+	  (list (list ?\C-b (concat TeX-esc "b{") "}")
+		(list ?\C-c (concat TeX-esc "sc{") "}")
+		(list ?\C-e (concat TeX-esc "emph{") "}")
+		(list ?\C-i (concat TeX-esc "i{") "}")
+		(list ?\C-r (concat TeX-esc "r{") "}")
+		(list ?\C-s (concat TeX-esc "samp{") "}")
+		(list ?\C-t (concat TeX-esc "t{") "}")
+		(list ?s    (concat TeX-esc "strong{") "}")
+		(list ?\C-f (concat TeX-esc "file{") "}")
+		(list ?\C-d (concat TeX-esc "dfn{") "}")
+		(list ?\C-v (concat TeX-esc "var{") "}")
+		(list ?k    (concat TeX-esc "key{") "}")
+		(list ?\C-k (concat TeX-esc "kbd{") "}")
+		(list ?c    (concat TeX-esc "code{") "}")
+		(list ?C    (concat TeX-esc "cite{") "}")))
+
+    ;; need the following stuff to let xref and pxref work
+    (make-local-variable 'LaTeX-section-label)
+    (setq LaTeX-section-label ""))))
+
+;;; latexinfo.el ends here

etc/auctex/style/letter.el

+;;; letter.el - Special code for letter style.
+
+;; $Id: letter.el,v 1.1 1997/04/05 17:56:47 steve Exp $
+
+;;; Code:
+
+;; You may want to define this in tex-site.el to contain your
+;; organizations address.  
+(defvar LaTeX-letter-sender-address ""
+  "Initial value when prompting for a sender address in the letter style.")
+
+(TeX-add-style-hook "letter"
+ (function
+  (lambda ()
+    (LaTeX-add-environments
+     '("letter" LaTeX-env-recipient))
+    (TeX-add-symbols
+     '("name" "Sender: ") 
+     '("address" "Sender address: ")
+     '("signature" "Signature: ")
+     '("opening" "Opening: ")
+     '("closing" "Closing: ")))))
+
+(defun LaTeX-env-recipient (environment)
+  "Insert ENVIRONMENT and prompt for recipient and address."
+  (let ((sender (read-input "Sender: " (user-full-name)))
+	(sender-address (read-input "Sender address: "
+				    LaTeX-letter-sender-address))
+	(recipient (read-input "Recipient: "))
+	(address (read-input "Recipient address: "))
+	(signature (read-input "Signature: "))
+	(opening (read-input "Opening: "))
+	(closing (read-input "Closing: "))
+	(date (read-input "Date: " (LaTeX-today))))
+
+    (insert TeX-esc "name" TeX-grop sender TeX-grcl)
+    (newline-and-indent)
+    (if (not (zerop (length sender-address)))
+	(progn
+	  (setq LaTeX-letter-sender-address sender-address)
+	  (insert TeX-esc "address" TeX-grop sender-address TeX-grcl)
+	  (newline-and-indent)))
+    (if (not (zerop (length signature)))
+	(progn
+	  (insert TeX-esc "signature" TeX-grop signature TeX-grcl)
+	  (newline-and-indent)))
+    (if (not (zerop (length date)))
+	(progn
+	  (insert TeX-esc "def" TeX-esc "today" TeX-grop date TeX-grcl)
+	  (newline-and-indent)))
+    (newline-and-indent)
+
+    (let ((indentation (current-column)))
+      (LaTeX-insert-environment
+       environment
+       (concat TeX-grop recipient
+	       (if (not (zerop (length address)))
+		   (concat
+		    (if (not (zerop (length recipient)))
+			(concat " " TeX-esc TeX-esc " "))
+		    address))
+	       TeX-grcl))
+      (save-excursion			; Fix indentation of address
+	(if (search-backward TeX-grcl nil 'move)
+	    (let ((addr-end (point-marker)))
+	      (if (search-backward TeX-grop nil 'move)
+		  (let ((addr-column (current-column)))
+		    (while (search-forward
+			    (concat TeX-esc TeX-esc)
+			    (marker-position addr-end) 'move)
+		      (progn
+			(newline)
+			(indent-to addr-column))))))))
+      (insert "\n")
+      (indent-to indentation))
+    (insert TeX-esc "opening"
+	    TeX-grop
+	    (if (zerop (length opening))
+		(concat TeX-esc " ")
+	      opening)
+	    TeX-grcl "\n")
+
+    (indent-relative-maybe)
+    (save-excursion
+      (insert "\n" TeX-esc "closing"
+	      TeX-grop
+	      (if (zerop (length closing))
+		  (concat TeX-esc " ")
+		closing)
+	      TeX-grcl "\n")
+      (indent-relative-maybe))))
+
+(defun LaTeX-today nil
+  "Return a string representing todays date according to flavor."
+  (interactive)
+  (let ((ctime-string (current-time-string))
+	(month-alist '(("Jan". "01")
+		       ("Feb" . "02")
+		       ("Mar" . "03")
+		       ("Apr" . "04")
+		       ("May" . "05")
+		       ("Jun" . "06")
+		       ("Jul" . "07")
+		       ("Aug" . "08")
+		       ("Sep" . "09")
+		       ("Oct" . "10")
+		       ("Nov" . "11")
+		       ("Dec" . "12"))))
+    (string-match
+     "^\\S-+\\s-+\\(\\S-+\\)\\s-+\\(\\S-+\\)\\s-+\\S-+\\s-+\\(\\S-+\\)"
+     ctime-string)
+    (let ((year (substring ctime-string (match-beginning 3) (match-end 3)))
+	  (month (substring ctime-string (match-beginning 1) (match-end 1)))
+	  (day (substring ctime-string (match-beginning 2) (match-end 2))))
+      (if (assoc month month-alist)
+	  (progn
+	    (setq month (cdr (assoc month month-alist)))
+	    (if (> 2 (length day))
+		(setq day (concat "0" day)))))
+      (format "%s-%s-%s" year month day))))
+
+;;; letter.el ends here

etc/auctex/style/plfonts.el

+;;; plfonts.el - Setup AUC TeX for editing Polish text with plfonts.sty
+
+;; $Id: plfonts.el,v 1.1 1997/04/05 17:56:47 steve Exp $
+
+;;; Commentary:
+;;
+;; `plfonts.sty' use `"' to make next character Polish.
+;; `plfonts.sty' <C> L. Holenderski, IIUW, lhol@mimuw.edu.pl
+
+;;; Code:
+
+(defvar LaTeX-plfonts-mode-syntax-table
+  (copy-syntax-table LaTeX-mode-syntax-table)
+  "Syntax table used in LaTeX mode when using `plfonts.sty'.")
+
+(modify-syntax-entry ?\"  "w"  LaTeX-plfonts-mode-syntax-table)
+
+(TeX-add-style-hook "plfonts"
+ (function (lambda ()
+   (set-syntax-table LaTeX-plfonts-mode-syntax-table)
+   (make-local-variable 'TeX-open-quote)
+   (make-local-variable 'TeX-close-quote)
+   (make-local-variable 'TeX-quote-after-quote)
+   (make-local-variable 'TeX-command-default)
+   (setq TeX-open-quote "\"<")
+   (setq TeX-close-quote "\">")
+   (setq TeX-quote-after-quote t)
+   (setq TeX-command-default "plLaTeX")
+   (run-hooks 'TeX-language-pl-hook))))
+
+;;; plfonts.el ends here

etc/auctex/style/plhb.el

+;;; plhb.el - Setup AUC TeX for editing Polish text with plhb.sty
+
+;; $Id: plhb.el,v 1.1 1997/04/05 17:56:47 steve Exp $
+
+;;; Commentary:
+;;
+;; `plhb.sty' use `"' to make next character Polish.
+;; `plhb.sty' <C> J. S. Bie\'n, IIUW, jsbien@mimuw.edu.pl
+
+;;; Code:
+
+(defvar LaTeX-plhb-mode-syntax-table
+  (copy-syntax-table LaTeX-mode-syntax-table)
+  "Syntax table used in LaTeX mode when using `plhb.sty'.")
+
+(modify-syntax-entry ?\"  "w"  LaTeX-plhb-mode-syntax-table)
+
+(TeX-add-style-hook "plhb"
+ (function (lambda ()
+   (set-syntax-table LaTeX-plhb-mode-syntax-table)
+   (make-local-variable 'TeX-open-quote)
+   (make-local-variable 'TeX-close-quote)
+   (make-local-variable 'TeX-command-default)
+   (make-local-variable 'TeX-quote-after-quote)
+   (setq TeX-open-quote "\"<")
+   (setq TeX-close-quote "\">")
+   (setq TeX-quote-after-quote t)
+   (setq TeX-command-default "plLaTeX")
+   (run-hooks 'TeX-language-pl-hook))))
+
+;;; plhb.el ends here

etc/auctex/style/psfig.el

+;;; psfig.el - Support for the psfig style option.
+
+;; Contributed by Marc Gemis <makke@wins.uia.ac.be>
+;; Please direct comments to him.
+
+;;; Code:
+
+(TeX-add-style-hook "psfig"
+ (function
+  (lambda ()
+	;; probable some of the following symbols may be removed
+    (TeX-add-symbols "protect" "figurepath"  "fbox"
+		     "other" "letter" "other" "then" "Sine" "Cosine"
+		     "psdraft" "psfull" "psscalefirst" "psrotatefirst"
+		     "psnodraftbox" "psdraftbox" "pssilent" "psnoisy"
+		     "minmaxtest"
+     '("psfig" TeX-arg-psfig)
+     '("psfigurepath" t)
+		     )
+    (LaTeX-add-environments
+     '("psfigure" LaTeX-env-psfigure)
+     )
+    )))
+
+(defun TeX-arg-psfig (optional)
+   "Ask for file, width and length. Insert psfig macro"
+   (let ((psfile (read-file-name "PS-file: " "" "" nil))
+	 (figwidth (read-input "Figure width: "))
+	 (figheight (read-input "Figure height: "))
+	 )
+
+     (insert TeX-grop "figure=" psfile)
+     (if (not (zerop (length figwidth)))
+	 (insert ",width=" figwidth))
+     (if (not (zerop (length figheight)))
+	 (insert ",height=" figheight))
+     (insert TeX-grcl)
+     )
+   )
+
+
+(defun LaTeX-env-psfigure (environment)
+  "Create  with \\label and \\caption and \\psfig commands."
+  (let ((float (read-input "Float to: " LaTeX-float))
+	(caption (read-input "Caption: "))
+	(label (read-input "Label: " LaTeX-figure-label))
+        ; gf: ask if this should be centered
+	(psfile (read-file-name "PS-file: " "" "" nil))
+	(figwidth (read-input "Figure width: "))
+	(figheight (read-input "Figure height: "))
+	)
+
+    (setq LaTeX-float (if (zerop (length float))
+			  LaTeX-float
+			float))
+
+    (LaTeX-insert-environment "figure"
+			      (concat LaTeX-optop LaTeX-float LaTeX-optcl))
+
+    (insert TeX-esc "centerline" TeX-grop TeX-esc "psfig" TeX-grop
+	    "figure=" psfile)
+    (if (not (zerop (length figwidth)))
+	(insert ",width=" figwidth))
+    (if (not (zerop (length figheight)))
+	(insert ",height=" figheight))
+    (insert TeX-grcl TeX-grcl)
+    (if (zerop (length caption))
+	()
+      (newline-and-indent)
+      (insert TeX-esc "caption" TeX-grop caption TeX-grcl))
+    (if (or (zerop (length label))
+	    (equal LaTeX-figure-label label))
+	()
+      (newline-and-indent)
+      (insert TeX-esc "label" TeX-grop label TeX-grcl))
+
+    (forward-line 2)))
+
+;;; psfig.el ends here

etc/auctex/style/report.el

+;;; report.el - Special code for report style.
+
+;; $Id: report.el,v 1.1 1997/04/05 17:56:47 steve Exp $
+
+;;; Code:
+
+(TeX-add-style-hook "report"
+ (function (lambda () 
+  (setq LaTeX-largest-level (LaTeX-section-level "chapter")))))
+
+;;; report.el ends here

etc/auctex/style/slides.el

+;;; slides.el - Special code for slitex.
+;;
+;; $Id: slides.el,v 1.1 1997/04/05 17:56:47 steve Exp $
+
+(require 'latex)
+
+;;; Code:
+
+(TeX-add-style-hook "slides"
+ (function
+  (lambda ()
+    (setq LaTeX-default-style "slides")
+    (add-hook 'LaTeX-document-style-hook 'LaTeX-style-slides)
+    (LaTeX-add-environments '("slide" LaTeX-env-slide)
+			    '("overlay" LaTeX-env-slide))
+    (TeX-run-style-hooks "SLITEX"))))
+
+(defvar LaTeX-slide-color "" 
+  "*Default slide color.")
+
+ (make-variable-buffer-local 'LaTeX-slide-color)
+
+(defun LaTeX-style-slides ()
+  "Prompt for and insert SliTeX options."
+  (let ((slide-file (read-input "Slide file: "))
+	(slide-colors (read-input "Slide colors (comma separetade list): "
+				  "black")))
+    (save-excursion
+      (goto-char (point-min))		; insert before \end{document}
+      (if (re-search-forward ".end.document." (point-max) t)
+	  (beginning-of-line 1))
+      (open-line 2)
+      (indent-relative-maybe)
+      (if (equal slide-colors "black")
+	  (insert TeX-esc "blackandwhite"
+		  TeX-grop slide-file TeX-grcl)
+	(progn
+	  (insert TeX-esc "colors"
+		  TeX-grop slide-colors TeX-grcl)
+	  (newline-and-indent)
+	  (insert TeX-esc "colorslides"
+		  TeX-grop slide-file TeX-grcl))))))
+
+(defun LaTeX-env-slide (environment)
+  "Insert ENVIRONMENT and prompt for slide colors."
+  (setq LaTeX-slide-color
+	(read-input "Slide colors: " LaTeX-slide-color))
+  (LaTeX-insert-environment environment
+			    (concat TeX-grop LaTeX-slide-color TeX-grcl)))
+
+
+;;; slides.el ends here

etc/auctex/style/swedish.el

+;;; swedish.el - Setup AUC TeX for editing Swedish text.
+
+;; $Id: swedish.el,v 1.1 1997/04/05 17:56:48 steve Exp $
+
+;;; Commentary:
+;;
+;; Apparently the Swedes use ''this style'' quotations.
+
+(TeX-add-style-hook "swedish"
+ (function (lambda ()
+   (make-local-variable 'TeX-open-quote)
+   (setq TeX-open-quote "''")
+   (run-hooks 'TeX-language-sv-hook))))

etc/auctex/style/virtex.el

+;;; virtex.el - Common code for all TeX formats.
+
+;; $Id: virtex.el,v 1.1 1997/04/05 17:56:48 steve Exp $
+
+;;; Code:
+
+(TeX-add-style-hook "virtex"
+ (function
+  (lambda ()
+    (TeX-add-symbols "/" "above" "abovedisplayshortskip"
+		     "abovedisplayskip" "abovewithdelims" "accent"
+		     "adjdemerits" "advance" "afterassignment"
+		     "aftergroup" "atop" "atopwithdelims" "badness"
+		     "baselineskip" "batchmode" "begingroup"
+		     "belowdisplayshortskip" "belowdisplayskip"
+		     "binoppenalty" "botmark" "box" "boxmaxdepth"
+		     "brokenpenalty" "catcode" "char" "chardef"
+		     "cleaders" "closein" "closeout" "clubpenalty"
+		     "copy" "count" "countdef" "cr" "crcr" "csname"
+		     "day" "deadcycles" "def" "defaulthyphenchar"
+		     "defaultskewchar" "delcode" "delimiter"
+		     "delimiterfactor" "delimitershortfall" "dimen"
+		     "dimendef" "discretionary" "displayindent"
+		     "displaylimits" "displaystyle"
+		     "displaywidowpenalty" "displaywidth" "divide"
+		     "doublehyphendemerits" "dp" "dump" "edef" "else"
+		     "emergencystretch" "end" "endcsname" "endgroup"
+		     "endinput" "endlinechar" "eqno" "errhelp"
+		     "errmessage" "errorcontextlines" "errorstopmode"
+		     "escapechar" "everycr" "everydisplay"
+		     "everyhbox" "everyjob" "everymath" "everypar"
+		     "everyvbox" "exhyphenpenalty" "expandafter"
+		     "fam" "fi" "finalhyphendemerits" "firstmark"
+		     "floatingpenalty" "font" "fontdimen" "fontname"
+		     "futurelet" "gdef" "global" "globaldefs"
+		     "halign" "hangafter" "hangindent" "hbadness"
+		     "hbox" "hfil" "hfill" "hfilneg" "hfuzz"
+		     "hoffset" "holdinginserts" "hrule" "hsize"
+		     "hskip" "hss" "ht" "hyphenpenation" "hyphenchar"
+		     "hyphenpenalty" "if" "ifcase" "ifcat" "ifdim"
+		     "ifeof" "iffalse" "ifhbox" "ifinner" "ifhmode"
+		     "ifmmode" "ifnum" "ifodd" "iftrue" "ifvbox"
+		     "ifvoid" "ifx" "ignorespaces" "immediate"
+		     "indent" "input" "inputlineno" "insert"
+		     "insertpenalties" "interlinepenalty" "jobname"
+		     "kern" "language" "lastbox" "lastkern"
+		     "lastpenalty" "lastskip" "lccode" "leaders"
+		     "left" "lefthyphenmin" "leftskip" "leqno" "let"
+		     "limits" "linepenalty" "lineskip"
+		     "lineskiplimit" "long" "looseness" "lower"
+		     "lowercase" "mag" "markaccent" "mathbin"
+		     "mathchar" "mathchardef" "mathchoise"
+		     "mathclose" "mathcode" "mathinner" "mathhop"
+		     "mathopen" "mathord" "mathpunct" "mathrel"
+		     "mathsurround" "maxdeadcycles" "maxdepth"
+		     "meaning" "medmuskip" "message" "mkern" "month"
+		     "moveleft" "moveright" "mskip" "multiply"
+		     "muskip" "muskipdef" "newlinechar" "noalign"
+		     "noboundary" "noexpand" "noindent" "nolimits"
+		     "nonscript" "nonstopmode" "nulldelimiterspace"
+		     "nullfont" "number" "omit" "openin" "openout"
+		     "or" "outer" "output" "outputpenalty"
+		     "overfullrule" "parfillskip" "parindent"
+		     "parskip" "pausing" "postdisplaypenalty"
+		     "predisplaypenalty" "predisplaysize"
+		     "pretolerance" "relpenalty" "rightskip"
+		     "scriptspace" "showboxbreadth" "showboxdepth"
+		     "smallskipamount" "spaceskip" "splitmaxdepth"
+		     "splittopskip" "tabskip" "thickmuskip"
+		     "thinmuskip" "time" "tolerance" "topskip"
+		     "tracingcommands" "tracinglostchars"
+		     "tracingmacros" "tracingonline" "tracingoutput"
+		     "tracingpages" "tracingparagraphs"
+		     "tracingrestores" "tracingstats" "uccode"
+		     "uchyph" "underline" "unhbox" "unhcopy" "unkern"
+		     "unpenalty" "unskip" "unvbox" "unvcopy"
+		     "uppercase" "vadjust" "valign" "vbadness" "vbox"
+		     "vcenter" "vfil" "vfill" "vfilneg" "vfuzz"
+		     "voffset" "vrule" "vsize" "vskip" "vss" "vtop"
+		     "wd" "widowpenalty" "write" "xdef" "xleaders"
+		     "xspaceskip" "year"))))
+
+;;; virtex.el ends here

Binary file added.

Binary file added.

Add a comment to this file

etc/frame-icon/tree.xbm

Old
Old image
New
New image
 #define tree_width 64
 #define tree_height 64
-static char tree.bits[] = {
+static char tree_bits[] = {
    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,

etc/gnats/xemacs.org

+pending
+auxillary
+configuration
+documentation
+frames
+i18n
+lisp
+menubars
+misc
+performance
+redisplay
+scrollbars
+tooblbars
+test
Add a comment to this file

etc/mine/1_16_flat_sel.gif

Added
New image
Add a comment to this file

etc/mine/2_16_flat_sel.gif

Added
New image
Add a comment to this file

etc/mine/3_16_flat_sel.gif

Added
New image
Add a comment to this file

etc/mine/4_16_flat_sel.gif

Added
New image
Add a comment to this file

etc/mine/5_16_flat_sel.gif

Added
New image
Add a comment to this file

etc/mine/6_16_flat_sel.gif

Added
New image
Add a comment to this file

etc/mine/7_16_flat_sel.gif

Added
New image
Add a comment to this file

etc/mine/8_16_flat_sel.gif

Added
New image
Add a comment to this file

etc/mine/empty_16_flat_sel.gif

Added
New image
Add a comment to this file

etc/mine/empty_16_up.gif

Old
Old image
New
New image
Add a comment to this file

etc/mine/empty_16_up_sel.gif

Added
New image
Add a comment to this file

etc/mine/flagged_16_up.gif

Old
Old image
New
New image
Add a comment to this file

etc/mine/flagged_16_up_sel.gif

Added
New image
Added
New image
Added
New image
Added
New image
Added
New image

Binary file modified.

Added
New image
+/* XPM */
+static char *document2[] = {
+/* width height num_colors chars_per_pixel */
+"    24    30       32            1",
+/* colors */
+". c #000000",
+"# c #a4a5a4",
+"a c #9f9f9f",
+"b c #999999",
+"c c #919191",
+"d c #818181",
+"e c #6d6d6d",
+"f c #5d5d5d",
+"g c #494949",
+"h c #eaeaea",
+"i c #373737",
+"j c #e3e4e3",
+"k c #d4d4d4",
+"l c #c8c8c8",
+"m c #0d0d0d",
+"n c #b4b4b4",
+"o c #b0aeb0",
+"p c #aeaeae",
+"q c #aaaaaa s background",
+"r c #888888",
+"s c #767676",
+"t c #646464",
+"u c #545454",
+"v c #ffffff",
+"w c #f6f7f6",
+"x c #efefef",
+"y c #dfdfdf",
+"z c #dad9da",
+"A c #242424",
+"B c #cfcfcf",
+"C c #bfbfbf",
+"D c #b9b9b9",
+/* pixels */
+"qqqqqaetr#qqqqqqqqqqqqqq",
+"qqqq#errefd#qqqqqqqqqqqq",
+"qqq#rzklCqcdsdra#qqqqqqq",
+"qqqrkvvxzkkln#rtfdaqqqqq",
+"qq#dvvvvvvxxzklCqcrdsr#q",
+"qq#rresr#lxvvvvxhzl#tisq",
+"qqqqqdsefgieCxvvvvxiAiiq",
+"qqqqqrCttffuuuernkagtiiq",
+"qqqq#nxvxxcsuetsuigrsitq",
+"qqqqczhzxhzzlC#seffscifq",
+"qqqqrvlyxxzlCCzxxkCaCmrq",
+"qqqq#vvlzqhzvvvklalvciaq",
+"qqqckhlkzzhlCCkhhxvvguqq",
+"qqqrvvxvklalxxxlq#xvmd#q",
+"qqqcvxklkvxvxllkhxvlArqq",
+"qq#Cvvvvvvvvvvvvhxvtgqqq",
+"qqrxxvvvvvvvvvvvvvvAeqqq",
+"qqrvkzhzhxxvvvvvvvkmrqqq",
+"qqqlhvvlCrnkhvvvvvci#qqq",
+"qckxxxhxxkzzllllvvguqqqq",
+"qrvklklxxxhlnlzxvhmrqqqq",
+"qahzvvhCcCnxvxlhvqicqqqq",
+"clxkkqlzhkkklCzvvfg#qqqq",
+"txvvvvxlrzlzvvkvvAeqqqqq",
+"dtalvvvvvvxknzhvlArqqqqq",
+"rgimmgdqhvvvvvvvei#qqqqq",
+"qq#rtiA..i#xvvvvitqqqqqq",
+"qqqqqarsgimmis#Cmrqqqqqq",
+"qqqqqqqqq#ceiA..icqqqqqq",
+"qqqqqqqqqqqq#rdfeqqqqqqq"
+};
Added
New image
+/* XPM */
+static char *noname[] = {
+/* width height ncolors chars_per_pixel */
+"24 30 8 1",
+/* colors */
+"` c #000000",
+"a c #818181",
+"b c #EAEAEA",
+"c c #D4D4D4",
+"d c #AAAAAA s background",
+"e c #545454",
+"f c #FFFFFF",
+"g c #242424",
+/* pixels */
+"ddddddaeaddddddddddddddd",
+"dddddaaaaeaddddddddddddd",
+"ddddacccddaaaaaddddddddd",
+"dddacffbccccddaeeadddddd",
+"dddaffffffbbcccddaaaaadd",
+"dddaaaaadcbffffbbccdegad",
+"dddddaaaeegadbffffbggggd",
+"dddddadeeeeeeeaadcdeeggd",
+"ddddddbfbbaaeaeaegeaaged",
+"ddddacbcbbcccddaaeeaaged",
+"ddddafccbbccddcbbcddd`ad",
+"dddddffccdbcfffccdcfagdd",
+"dddacbccccbcddcbbbffeedd",
+"dddaffbfccdcbbbcddbf`add",
+"dddafbcccfbfbcccbbfcgadd",
+"ddddffffffffffffbbfeeddd",
+"ddabbffffffffffffffgaddd",
+"ddafccbcbbbfffffffc`addd",
+"dddcbffcdadcbfffffagdddd",
+"dacbbbbbbcccccccffeedddd",